Помогите зделать блок-схему к готовой задаче

[ShnapS]

Сообственно в блок-схемах плохо розбераюсь и чаще всего путаюсь, прошу опытных людей помочь зделать блок-схему к готовой задачке. Заранее спасибо.

program zad2;
uses crt;
const c=2; d=10;
a: array [1..7] of real = (1,3.5,4,-0.8,1.9,5,13);
var
i, k: integer;
z: array [1..7] of real;
n: real;
begin
clrscr;
k:=1;
writeln ('Вывод масива А на экран :');
for i:=1 to 7 do
begin
writeln ('A[',i,']= ',A[i]:3:1);
if (a[i]>=c) and (a[i]<d) then begin
z[k]:=a[i];
k:=k+1;
end;
end;
writeln;
n:=1;
writeln ('Вывод масива Z на экран :');
for i:=1 to k-1 do
begin
writeln ('Z[',i,']= ',Z[i]:3:1);
n:=n*z[i];
end;
writeln;
writeln('Произведение элементов= ',n:3:1);
end.

[Cannibal]

вот, пожалуйста

[ShnapS]

Сообщение от Cannibal

вот, пожалуйста

Слушай большое спасибо. Принцип я понял, но вот очень мелкая она, можно ли хоть немного увиличить?

[Cannibal]

Крупней не могу

[puporev]

To Cannibal
Не скажете, в каком редакторе делали?

[ShnapS]

Большое спасибо Cannival.
Если не сложно помоги ещо с этим :

program zad5;
uses crt;
const
n=4;
var
A:array[1..4,1..4] of integer;
B:array[1..4,1..4] of real;
R:real;
S,max,maxi,maxj,i,j,t:integer;
F,C:text;
procedure ShowArray;
begin
writeln ('Вывод массива А на экран:');
writeln (c,'Вывод массива А на экран:');
for i:=1 to n do
begin
writeln;
writeln(c);
for j:=1 to n do
begin
read(F,A[i,j]);
write(A[i,j]:4,' ');
write(c,A[i,j]:4,' ');
end;
end;
end;

procedure ShowMax;
begin
write ('‚Вывод максимального элемента массива А - ');
write (c,'Вывод максимального элемента массива А - ');

maxi:=1;
maxj:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if max<a[i,j] then begin

max:=a[i,j];
maxi:=i;
maxj:=j;
end;
end;
end;
a[maxi,maxj]:=max;
writeln(max);
writeln(c,max);
writeln;
S:=maxj;
writeln('Номер столбца максимального элемента массива А - ',S);
writeln(c,'Номер столбца максимального элемента массива А - ',S);

end;

function ShowR(R:real):real;
begin
writeln('‚Вывод массива В на экран:');
writeln(c,'Вывод массива В на экран:');

for i:=1 to n do begin
for t:=1 to s do begin
B[i,t]:=a[i,n]/a[t,s];
end;

writeln(B[i,t]:1:2);
writeln(c,B[i,t]:1:2);

if B[i,t]>0 then R:=B[i,t];
end;
writeln('Наименьшее из положительных элементов массива В - ',R:1:2);
writeln(c,'Наименьшее из положительных элементов массива В - ',R:1:2);

end;




begin
clrscr;
assign(F,'C:\5.txt');reset(F);
assign(C,'C:\6.txt');rewrite(C);

while not eoln(F) do begin
ShowArray;
end;

writeln;
writeln(c);
ShowMax;

writeln;

ShowR(R);

close(F);
close(C);
end.

[Cannibal]

To pupover FCEditor

to ShnapS

[puporev]

To Cannibal
Скачал, что-то не очень и картинка мелкая.

[ShnapS]

Ув. Cannibal
Посмотрите пожалуйста правильность создания мною блок-схемы по примеру этой задачи:

program zad4_2;
uses crt;
var
P:array [1..2,1..3] of real;
f,c:text;
max:real;
i,j:integer;
begin
clrscr;
assign(f,'C:\1.txt');reset(f);
assign(c,'C:\2.txt');rewrite(c);
writeln('Вывод массива на экран:');
while not eoln(f) do
begin
for i:=1 to 2 do begin
writeln;
for j:=1 to 3 do begin
read(f,P[i,j]);

write(P[i,j]:5:2,' ');

end;
end;
end;
writeln;
writeln;

for i:=1 to 2 do
for j:=1 to 1 do

if max < p[i,j] then max:=p[i,j];

writeln('Максимальный элемент массива- ',max:1:2);
writeln;

writeln('Результат');writeln;
writeln(c,'Результат');writeln(c);

writeln ('Вывод второго массива на экран:');
writeln (c,'Вывод второго массива на экран:');

for i:=1 to 2 do begin
writeln;
writeln(c);
for j:=1 to 3 do begin

P[i,j]:=P[i,j]/max;


write(P[i,j]:5:2,' '); write(c,P[i,j]:5:2,' ');
end;
end;

close(c);
close(f);
end.

http://shnaps.ho.ua/2.jpg

[Ирке]

program xxx;
uses crt;
type dan=record
fam:string[25];
kol:array[1..5] of integer;
k_ned:integer;
end;
var rab:array[1..100] of dan;
s,f_max,dn_ned:string;c:char;
max,max_n,max_dn,x,y,i,n:integer;
st_det,zarpl:real;
f:text;
begin
clrscr;
assign(f,'dddd.txt');
reset(f);
readln(f,n);
for i:=1 to n do
begin
s:='';y:=1;
with rab[i] do
repeat
begin
read(f,c);

if (c<>' ')
then
begin
s:=s+c;
end;

if(c=' ')or(eoln(f)) then begin
case y of
1: fam:=s;
2: begin val(s,kol[1],x);k_ned:=k_ned+kol[1] end;
3: begin val(s,kol[2],x);k_ned:=k_ned+kol[2] end;
4: begin val(s,kol[3],x);k_ned:=k_ned+kol[3] end;
5: begin val(s,kol[4],x);k_ned:=k_ned+kol[4] end;
6: begin val(s,kol[5],x);k_ned:=k_ned+kol[5] end;
end;
s:='';y:=y+1;
end;

end;
until (eoln(f));
end;
writeln;
for i:=1 to n do
with rab[i] do
begin
write(fam);
for y:=1 to 5 do
write(kol[y]:4);
writeln;
end;
{---------------1-----------------}
writeln('1:');
for i:=1 to n do
with rab[i] do
begin
write(fam);
write(k_ned:4);
writeln;
end;
{---------------2------------------}
writeln('2:');
max:=0;
for i:=1 to n do
with rab[i] do
begin
for y:=1 to 5 do
begin
if kol[y]>max then
begin
max:=kol[y];
max_n:=i;
max_dn:=y;
end;

end;
end;
case max_dn of
1n_ned:='pn';
2n_ned:='vt';
3n_ned:='sr';
4n_ned:='4tv';
5n_ned:='pt';
end;
writeln(rab[max_n].fam,' ',dn_ned);
{-----------------3-----------------------}
writeln('3:');
writeln('vvedite stoim detali');
readln(st_det);

for i:=1 to n do
with rab[i] do
begin
zarpl:=k_ned*st_det;
write(fam);
write(zarpl:10:2);
writeln;
end;

readln;
end.