Кто может сделать Блок Схему?, нужна блок схема по паскалю Опции

[mirka23]

вот задача именно по ней нужна блко схема

{ Найти наибольшее из четырёх чисел. }
uses crt;
var a,b,c,d,max,max1,max2 : real;
procedure bol2( aa,bb : real; var maxmax : real );
begin
if aa>bb then maxmax:=aa
else maxmax:=bb;
end;
begin
clrscr;
write(‘введте a,b,c,d через пробел ‘);
readln(a,b,c,d);
bol2(a,b,max1);
bol2(c,d,max2);
bol2(max1,max2,max);
writeln(‘max=’,max);
readln;
end.

Добавлено через 13 мин.
ебанетый сайт! сук

[Rian]

блок схема именно по вот этому ?
как-нибудь так?

или мож сам код другой?

ЗЫ: ****** сайт, как назовешь таким и будет, убери плз

Сообщение отредактировано: Rian - 29.06.2012 0:06