Оглавление

Задача 1 3

Блок-схема 3

Текст программы 3

Задача 2(а) 5

Текст программы 5

Задача 2(б) 6

Текст программы 6

Задача 3 7

Блок-схема 7

Текст программы 7

Задача 4 9

Блок-схема 9

Текст программы 9

Задача 5 11

Блок-схема 11

Текст программы 11

Задача 1

Блок-схема

Текст программы

program z1;

var

x,y,z,t:real;

begin

writeln('Vvedite x:');

read(x);

writeln('Vvedite z:');

read(z);

if x*x+z*z>1 then

begin

t:=1+x*x+z*z;

end;

if x*x+z*z<1 then

begin

t:=x*x+z*z;

end;

if x*x+z*z=1 then

begin

t:=z;

end;

y:=(exp(1/3*ln(x)));

writeln('y=',y:6:2);

end.

Задача 2(а)

Текст программы

program z2a;

var

x,dx,y:real;

label l;

begin

dx:=0.2;

x:=-2-dx;

l: