program z5 программирование

Оглавление
ЗАДАЧА 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:
x:=x+dx;
y:=x*x*sin(x)+exp(-(x+2));
writeln('y(',x:6:2,')=',y:6:2);
if (x>=-2) and (x<=2) then goto l;
end.

Задача 2(б)
Текст программы
program z2b;
var
y:real;
x:array[1..5] of real;
n:integer;
label l;
begin
x[1]:=-3;
x[2]:=-2.1;
x[3]:=-0.67;
x[4]:=1;
x[5]:=5.1;
n:=1;
while n<=5 do
begin
y:=x[n]*x[n]*sin(x[n])+exp(-(x[n]+2));
writeln('y(',x[n]:6:2,')=',y:6:2);
n:=n+1;
end;
end.
Задача 3
Блок-схема

Текст программы
program z3;
var
n,m:integer;
x,s:real;
begin
x:=1/6;
n:=6;
s:=0;
for m:=1 to n do
begin
s:=s+cos(m*x)/m;
end;
writeln('VICHISLENNAYA SUMMA ',s:6:2);
end.

Задача 4
Блок-схема

Текст программы
program z4;
var
x:array[1..5] of real;
s,p:real;
n:integer;
begin
x[1]:=0.321;
x[2]:=4;
x[3]:=0;
x[4]:=-2.1;
x[5]:=-16;
s:=0;
p:=1;
for n:=1 to 5 do
begin
if x[n]<>0 then
begin
s:=s+x[n];
p:=p*x[n];
end;
end;
writeln('SUMMA NENULEVIH ELEMENTOV ',s:6:2);
writeln('PROIZVEDENIE NENULEVIH ELEMENTOV ',p:6:2);
end.

Задача 5
Блок-схема

Во внешнем цикле изменяется n, во внутреннем на каждую n y изменяется пять раз. Так как n от 1 до 3, то значение z выведется на экран 15 раз.

Текст программы
program z5;
var
x,y,z,dy:real;
x_ar:array[1..3] of real;
n:integer;
begin
x_ar[1]:=4;
x_ar[2]:=-3;
x_ar[3]:=2.5;
dy:=0.6;
for n:=1 to 3 do
begin
x:=x_ar[n];
y:=2;
while (y>=2) and (y<=5) do
begin
z:=(x-y-exp(-y))/(sqr(x*x-y));
writeln('z=',z:6:2);
y:=y+dy;
end;
end;
end.