Блок схема для программы в паскале

[AnKS]

Всем приветик=)))) Пожалуйста, помогите мне составить блок схему к программе. Программа довольно объемная, но не очень сложная. А то последняя зачетная неделя осталась, нада курсовую сдавать помогите пожалуйста, нужно как можно быстрее сделать...моя ася 334861375

[Дима82]

Напиши программку...

[AnKS]

Я уже её тебе на мыло отправила...спасибочки большое, что возьмешься за блок схему, спасибооо..@}->--

[Дима82]

Ну, что получила...

[Лярик]

Привет. У меня есть парочка коротких программ, мне надо составить к ним блок схему. Помогите пожалуйста!

[IT-man]

стучи в аську нарисую

[Лярик]

Вот 1:

program lab5;
var a,b:real;
    c,d:char;
    e:integer;
Begin writeln('char'); readln(c);
      writeln('Real'); readln(a);
      writeln('integer'); readln(e);
      writeln('real'); readln(b);
      writeln('char'); readln(d);
writeln('Введенные числа');
writeln(c);
writeln(e);
writeln(a);
writeln(d);
writeln(b);
   writeln(c:7,'  ',a:7:2,'  ',d:7,'  ',e:7,'  ',b:7:2);
   writeln(c:7,'  ',a:7:2,'  ',d:7,'  ',e:7,'  ',b:7:2);
   writeln(c:9,'  ',a:9:3,'  ',d:9,'  ',e:9,'  ',b:9:3);


   readln;
   readln;

end.

2:

program lab7;
var a,b:boolean;
    c,d:integer;
Begin
a:=false;
b:=false;
c:=10;
d:=1;
    IF ((a=b) and (c>d)=true or not a)
        then if ((true<>a) and (c-d<3))
          then writeln('s1')
          else writeln('s2')
     else writeln('s3');
     readln;
     end.

Ща постучу))

В аську зайди

[IT-man]

вот ваши блок-схемы!
перерисуйте так как вас учили

[Лярик]

Program p14;
Uses crt;
Var
   a, b, e, c, f, I, I2, h, x, y: real;
   n: integer;
Begin
   ClrScr;
   write(' Введите c=');
   readln(c);
   write(Введите f=');
   readln(f);
   writeln(' Задайте границы интервала [a, b]');
   repeat
     write('a=');
     readln(a);
     write('b=');
     readln(b);
     write(' Задайте точность вычисления e=');
     readln(e);
   until (a<b) and (e>0);
   n:= 10;
   I:= 0;
   repeat
   h:=(b-a)/n;
   x:= a;
   I2:= 0;
   repeat
     if x<-c then y:=-f;
     if (x>=-c) and (x<=c) then y:=exp(-sqr(x));
     if (x>c) then y:=(-f/c)*x;
     I2:= I2+y;
     x:= x+h;
   until x>=b;
   I2:= I2*h;
   n:= n*2;
   if abs(I2-I)<e then
   begin
     write(I2:5:2);
     readkey;
     break;
   end
   else I:=I2;
 until true=false;
End.

[henkka]

а мне бы написать текст программы на Паскале с блок-схемы)
напишите плз)
заранее спасибо)