Question

Постройте блок схему:
y=x^2, если x<0
x-1, если x=0
2*x, если x>0

Answer 1

1. Напишем полную программу для программы Pascal:

var x: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then x:=x*x;
if x=0 then x:=x-1;
if x>0 then x:=2*x;
writeln(x);
end.


2. По программе составим блок-схему. (см. картинку).