Блок схемы.

[fara2105]

Люди, помогите пожалуйста, составить блок схемы, очень надо...(((( По этим программам...:

1.

Program massiv;
Uses crt;
Const n=10;
Var 
mass: array [1..n] of integer;
i, j, x:integer;
Begin 
Clrscr;
Randomize;
For i:=1 to n do mass [i]:=random (50);
For i:=1 to n-1 do begin
For j:=i+1 to n do begin
If mass [1] >mass [j] then begin
X:=mass [1]; mass[i]:=mass[j]; mass[j]:=x;
End;
End;
End;
For I:=1 to n do write (mass [i], ‘’);
End.

2.

Program primer;
Var f1,f2:text;
I,n: integer;
S: string;
Begin
Assign(f1, ‘file1.txt’); 
Rewrite(f1); 
Readln(n) 
for i:=1 to n do
begin
readln(s); 
writeln(f1,s); 
end;
close(f1); 
Reset(f1); Assign(f2, ‘file2.txt’); Rewrite(f2); While not eof(f1) do
Begin
Readln(f1,s); 
If (s[1]=’A’) or (s[1]=’a’) then
Writeln(f2,s); 
End;
Close(f1,f2); 
Writeln;
Writeln(‘Второй файл содержит строки:’);
Reset(f2); 
While not eof(f2) do 
Begin
Readln(f2,s); 
Writeln(s); 
End;
End.

3.

var
a,b,c:array [1..100] of integer;
i,n,j:integer;
begin
write ('Razmer massiva(N<100): ');readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(20)+1;
write (a[i],' ');
end;
writeln;
j:=1;
for i:=1 to n do
if i mod 2 = 0 then
begin
b[j]:=a[i];
j:=j+1;
end else c[j]:=a[i];
writeln ('2 massiv: ');
for i:=1 to n div 2 do write (b[i],' ');
writeln;
writeln ('3 massiv: ');
if n mod 2 = 0 then
for i:=1 to n div 2 do write (c[i],' ') else
for i:=1 to (n div 2)+1 do write (c[i],' ');
readln;
end.

4.

uses crt;
const n=10;
type toy=record
name:string;
price:integer;
age:integer;
t:boolean;
end;
var x:array[1..100] of toy;
i,k,z:integer;
max,min:integer;
naz:string;
begin
ClrScr;
Writeln('Введите значения: ');
for i:=1 to n do
with x[i] do
begin
Write(' Name: ');
Readln(name);
Write('(1-конструктор, 2-игрушка): ');
Readln(z);
if z=1 then
t:=true
else
if z=2 then
t:=false;
Write(' Price: ');
Readln(price);
Write(' Age: ');
Readln(age);
end;
Writeln;
Writeln('Table: ');
Writeln('----------------------------');
Writeln('| Name | Price | Age |');
Writeln('----------------------------');
for i:=1 to n do
Writeln('|',x[i].name:8,'|',x[i].price:9,'|',x[i].age:7,'|');
Writeln('----------------------------');
Writeln('Игрушки меньше 14000 рублей и подходят детям до 5 лет: ');
Writeln('----------');
Writeln('| Name |');
Writeln('----------');
for i:=1 to n do
if (x[i].age in [1..5]) and (x[i].price<14000) then
Writeln('|',x[i].name:8,'|');
Writeln('----------');
max:=-1;
for i:=1 to n do
if (x[i].price>max) and (x[i].t=true) then
max:=x[i].price;
Writeln('Цена самого дорогого конструктора: ',max,' rub.');
min:=-1;
for i:=1 to n do
if (x[i].price<min) and (x[i].t=false) then
begin
min:=x[i].price;
naz:=x[i].name;
end;
Writeln('Название наиболее дорогих игрушек: ',x[i].name);
Readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Bugrimov]

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

[BDA]

FCEditor и DiamFC Вам в помощь.

[Joker_vad]

sqr4@yandex.ru сделаю за умеренную плату