ItaKKa

Как составить блок схему???подскажите плизззззззззззззз
program 3;
uses crt;
var y,b,x,c: real;
a:integer;
begin
clrscr;
write ('a='); readln (a);
write ('x='); readln (x);
write ('b='); readln (b);
write ('c='); readln (c);
if a=2 then y:=a+b*x+c*sqr(x);
if a=3 then y:=sqr(a*sin(x));
if a=4 then y:=a+b*x;
if a=5 then y:=a*exp(4*ln(x))/4+b*sqr(x)/2;
if a in [2..5] then
writeln('y=',y:0:5);
writeln('net reshenia');
readln
end.






program 2;
uses crt;
var mx,sr,mn:integer;
a,b,c:integer;
begin
clrscr;
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
a,b,c,d,max,srd,min:integer;
begin
clrscr;
repeat
writeln('Vvodite po 3 chisla, okonchanie vvoda c=0:');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b<=c)or (a+c<=b)or(b+c<=a) then
writeln('eto ne treugolnik!');
else if (a=b) and (b=c) then writln('eto ravnostoroney treugolnik!');
else if ((a=b) and (b<>c)) or ((a=c)and (b<>c))or ((b=c) and (a<>c));
writeln('eto ravnobedrenniy treugolnik!');
else
begin
Sort(a,b,c,max,min,srd);
d:=sqr(min)+sqr(srd);
e:=sqr(max);
if d>e then writeln('eto ostrougolniy treugolnik!');
else if d<e then writeln('eto tupougolniy treugolnik!');
else if d=e then writeln('eto priamougolniy treugolnik!');
end:
until c=0;
readln
end.

@BasicMan

1. разбить программу на составляющие логические элементы (в основном 1 оператор - элемент)
2. каждому логическому элементу представить соответсвуюющий графический
3. нарисовать (сначала в уме, потом на бумаге, потом при необходимости на компутере, обычно рисуют в Visio)
подробнее здесь

0