нарисовать блок схему к готовой задаче(Паскаль).

[Hallas]

Соб-но сама задача:
Найти среднее арифметическое в каждой строке масива B[1..7,1..6] и отнять его от кажого значения этой строки, кроме последнего

а вот полное решение:
program s_1;
uses crt;
var n:integer;
a:array[1..7,1..6] of integer;
b:array[1..7,1..6] of real;
s:array[1..7] of real;
i,j:integer;
BEGIN
clrscr;
writeln('rabota s massivom');
writeln('------------------');
writeln;
writeln('sformirovat matricu');
writeln;
randomize;
for i:=1 to 7 do
for j:=1 to 6 do
a[i,j]:=random(10);
for i:=1 to 7 do begin
for j:=1 to 6 do
write(a[i,j]:5);
writeln; end;
writeln('srednee strok');
writeln;
for i:=1 to 7 do begin
s[i]:=0;
for j:=1 to 6 do
s[i]:=s[i] + a[i,j];
s[i]:=s[i]/6;
write(s[i]:7:2);
end;
writeln;
for i:=1 to 7 do begin
for j:=1 to 5 do
b[i,j]:=a[i,j]-s[i];
b[i,6]:=a[i,6];
end;
writeln;
writeln(' rezultat');
writeln('-----------------');
writeln;
for i:=1 to 7 do begin
for j:=1 to 6 do
write(b[i,j]:7:2);
writeln; end;
writeln;
writeln('konec zadachi');
readkey;
END.



прошу помочь с блок схемой, т.к. вообще не в курсах как ее делать. спасибо зараннее!

[Mad_Cat]

http://zalil.ru/32248673 здесь лучше качество

[Hallas]

простите, но как я должен это прочитать?!

[Mad_Cat]

но как я должен это прочитать?

сохранить на комп ! открыть ! и увеличить (кнопачка "увеличительное стекло с +")
а по идее сами нарисовать должны были а не читать)

[Hallas]

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

сохранить на комп ! открыть ! и увеличить (кнопачка "увеличительное стекло с +")
а по идее сами нарисовать должны были а не читать)

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

[Mad_Cat]

я не идиот если что...

А если еще раз на пост №2 глянуть, а не брызгать слюной?

[Hallas]

вижу..спасибо конечно, но у меня тоже проги для рисовалки схем есть..если я сдам такое - меня выпрут из лицея =\

[Mad_Cat]

меня выпрут из лицея

перерисуй аналог в visio)

[Hallas]

КАк бы сказать..я качал куча прог, но они все ахинею выдают.Я так понял, что мне нужно получить что-то типо http://kazus.ru/nuke/spaw/images/1/31.gif. Вот его я и просил нарисовать) Думаю для шарящего человека это не есть большая проблема. А для меня есть)

[екатерина к]

{ For35. Решение написано в Free Pascal 2.4.4
Дано целое число N (> 2). Последовательность целых чисел АК определяется следующим образом:
A1 = 1, A2 = 2, A3 = 3, AK = AK-1 + AK-2 ? 2*AK-3, K = 4, 5, ... .
Вывести элементы A1, A2, ... , AN. }
Program Solution;
Var
i, N : Integer;
A1, A2, A3, A : Double;
Begin
A1 := 1;
A2 := 2;
A3 := 3;
Write('N = ');
ReadLn(N);
If N > 0 Then
Begin
For i := 4 To N Do
Begin
A := A1 + A2 - 2 * A3;
A1 := A2;
A2 := A3;
A3 := A;
WriteLn(A:6:3);
End;
End;
ReadLn;
End.