По заданной программе постройте блок-схему.
var x , y , z : real;
begin
writeln ('Введите три числа');
readln (x , y , z);
if (x<=y) and (y<=z)
then
begin
x:=2*x;
y:=2*y;
z:=2*z
end
else
begin
x:=abs(x);
y:=abs(y);
z:=abs(z);
end
writeln (x,'',y,'',z)
end.
1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;
1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;