Блок схема

@orakul77 · Регистрация: 21.11.2012

Author24 — интернет-сервис помощи студентам

Всем доброго вечера , можете пожалуйста помочь , сделал блок схему к программе = завтра сдавать надо , хочу узнать у вас правильно-ли все или нет , немного не уверен на счет FOR (вроде по другому рисовалось ) может кто пожалуйста посмотреть и сказать - и если есть ошибки сказать где и как сделать :

Простите что не в тот раздел если что , просто я незнаю где еще можно задать такой вопрос .....

Вот код который я взял :

Pascal

const n=2;
type mas=array[1..2*n] of integer;
var
  a:mas;
  i,j,l:integer;
  s:string;
procedure print(a:mas;s:string);
var
  i:integer;
begin
  writeln(s);
  for i:=1 to 2*n do write (a[i]:4);
  writeln;
end;
function check(a:mas):boolean;
var
  i:integer;
  ok:boolean;
begin
  ok:=true;
  for i:=1 to 2*n do if a[i]>0 then ok:=false;
  check:=ok;
end;  
begin
  randomize;
  for i:=1 to 2*n do a[i]:=random(100);
  j:=0;
    print(a,'Исходный массив:');  
  repeat
    l:=a[1];
    for i:=1 to 2*n-1 do a[i]:=abs(a[i]-a[i+1]);
    a[2*n]:=abs(l-a[2*n]);
    inc(ninja);
    str(j,s);
    print(a,s+'-ая итерация:');
  until check(angel);
end.

@orakul77 · 22.02.2015, 20:26 **[ТС]**

вот схема

@orakul77 · 23.02.2015, 18:28 **[ТС]**

Ну есть тут люди кто может помочь , реально очень надо = завтра сдавать и не знаю правильно или нет......

@orakul77 -11 / 1 / 0 Регистрация: 21.11.2012 Сообщений: 215
	22.02.2015, 20:26 [ТС]	2
	вот схема Миниатюры 1

@orakul77 -11 / 1 / 0 Регистрация: 21.11.2012 Сообщений: 215
	23.02.2015, 18:28 [ТС]	3
	Ну есть тут люди кто может помочь , реально очень надо = завтра сдавать и не знаю правильно или нет...... 0