Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Дабы создать документ текстовый, необходимо вам программу открыть соответствующую. Microsoft Office Word, например. Затем, когда программушка открыта, должно вам положить рученьки свои на клавиатурушку и понажимать кнопочки, символике алфавита русского соответствующие. По завершении действа сего форматирование текста идет: шрифт, размер, цвет и прочие прелести. Завершается процедура сия дивная нажатием кнопки "Сохранить".
Готово! Вы - лучший!
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
1)2
3)Заключается в тои,что данные с одного источника передвются на другой.
1) создание, подготовка к работе, а так же определение параметров функции
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего
б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"
