begin. casey of. ifx mod2 <> 0 then. ifx < -1.5 then. if(x >= -1.5) and(x<=1) then. ifx > 1 then. fori:=1 to15 do. fori:=1 to15 do

⇐ ПредыдущаяСтр 4 из 4

var

y:integer;

begin

Writeln('Введите день недели:');

Readln(y);

casey of

1..5:Writeln('Рабочий день');

6:Writeln('Суббота');

7:Writeln('Выходной');

else

Writeln('Нет такого дня');

end;

end.

Билет 21

programbillet21;

var

x:integer;

begin

Writeln('Введите число x');

readln(x);

ifx mod2 <> 0 then

Writeln('Число ',x,' является нечётным')

else

Writeln('Число ',x,' является чётным');

end.

Билет 22

programbillet22;

var

x,y:real;

begin

Writeln('Введите x:');

Readln(x);

ifx < -1.5 then

begin

y:=-2*x+abs(x);

Writeln('Функция вычисляется по формуле y = -2x+|x|, и она равна: ',y);

end;

if(x >= -1.5) and(x<=1) then

begin

y:=sqr(x)-1;

Writeln('Функция вычисляется по формуле y = x^2-1, и она равна: ',y);

end;

ifx > 1 then

begin

y:=1/x;

Writeln('Функция вычисляется по формуле y = 1/x, и она равна: ',y);

end;

end.

Билет 23

programbillet23;

usesGraphABC;

begin

Pen.Color:=clRed;

Circle(200,300,100);

FloodFill(200,300,clBlue);

end.

Билет 24

programbillet24;

var

a:array[1..15] ofinteger;

i,u,m:integer;

begin

fori:=1 to15 do

begin

Writeln('Введите ',i,' элемент массива');

read(u);

a[i]:=u;

end;

write('Первоначальный массив: ',a);

fori:=1 to15 do

a[i]:=a[i]*-1;

Writeln;

Writeln('Преобразованный массив: ',a);

end.

⇐ Предыдущая 1 2 34