Составить блок-схемы к простым программам (Pascal)

Дмитрий17 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
16.10.2012

Требуется составить блок схемы к 4 простейшим программам. Схемы нарисовать и предоставить в видео графических файлов.

Укажите цену. Задача срочная и требует решения сейчас.

12.

=====

program zadacha;

var

a,b:integer;

begin

Write('введите 1-е число: '); readln(a);

Write('введите 2-у число: '); readln(b);

Writeln('сумма ',a, и ',b,'=',a+b);

Writeln('разность ',a,' и ',b,'=',a-b);

Writeln('произведение ',a,' и ',b,'=',a*b);

Writeln('частное ',a,' и ',b,' = ',(a/b):5:2);

readln;

end.

===

21.

program zadacha;

var

X1,Y1, X2, Y2, D: Real;

begin

Writeln('Введите координаты первой точки');

Readln(X1, Y2);

Writeln('Введите координаты второй точки');

Readln(X2, Y2);

D :=Sqrt(Sqr(X2 - X1) + Sqr(Y1 - Y2));

Writeln('Растояние между точками=', D:2:2);

Readln;

end.

========

4.

program chetyre;

var

I:integer;

S,P:real;

begin

S:=0;

For I:=20 to 90 do

S:=S+I;

P:=1;

For I:=5 to 15 do

P:=P*I;

S:=S*P;

writeln('S='S);

end.

=====

6.

program zadacha;

var

a,v,s:integer;

begin

write ('a=');

read (a);

v:=sqr(a)*a;

s:=6*sqr(a);

writeln('обьем равен', v);

writeln('пролощадь равна',s);

readln;

readln;

end.

Заявки фрилансеров