Program Program1; var x,y:real; begin write('Введите значение X: '); readln(x); if x=0 then begin y:=0;writeln('Y= ',y); end; if (x>0) and (x<=1) then begin y:=x;writeln('Y= ',y); end; if x>1 then begin y:=sqr(x);writeln('Y= ',y); end; end.
program ggl; Это название программы var n, i, sum : integer; Описание переменных a : array [1..1000] of integer; Описание массива а (он целочиленный, в интервале от 1 до 1000) begin readln (n); Начало программы, запрос значение переменной n sum := 0; Присвоение переменной sum значение 0 begin readln (n); sum := 0; for i := 1 to n do begin a[i] := random (100); write (a[i], ' '); sum := sum + a[i]; end; begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран. После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается. writeln; write (sum / n); end. Вывод значения деления переменной sum на переменную n. Конец всей программы.
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x=0 then
begin
y:=0;writeln('Y= ',y);
end;
if (x>0) and (x<=1) then begin
y:=x;writeln('Y= ',y);
end;
if x>1 then begin
y:=sqr(x);writeln('Y= ',y);
end;
end.