Помогите пожалуйста с лабораторной, выдаёт ошибку(на скрине показано), не понимаю в чём проблема:((((program ZADANIE4;var Z, x,
Помогите пожалуйста с лабораторной, выдаёт ошибку(на скрине показано), не понимаю в чём проблема:((((
program ZADANIE4;
var Z, x, y: real;
N: integer;
D: real;
begin
writeln('|N|x|y|Z|');
N:=0;
x:=0;
while(x<=1.5) do
begin
y:=0;
while(y<=1.5) do
begin
N:=N+1;
D:=1-(exp(2*ln(x))/8)-(exp(2*ln(y))/12);
if(D=>0) then
begin
Z:=sqrt(D);
writeln(N,x,y,Z);
writeln('__');
end
else
begin
writeln('*****');
writeln('__');
end;
y:=y+0.15;
end;
x:=x+0.15;
end;
end.
program ZADANIE4;
var Z, x, y: real;
N: integer;
D: real;
begin
writeln('|N|x|y|Z|');
N:=0;
x:=0;
while(x<=1.5) do
begin
y:=0;
while(y<=1.5) do
begin
N:=N+1;
D:=1-(exp(2*ln(x))/8)-(exp(2*ln(y))/12);
if(D=>0) then
begin
Z:=sqrt(D);
writeln(N,x,y,Z);
writeln('__');
end
else
begin
writeln('*****');
writeln('__');
end;
y:=y+0.15;
end;
x:=x+0.15;
end;
end.
1 ответ:
Читайте также
