Перейти к содержимому

Фото
- - - - -

блок-схемка(((


  • Вы не можете создать новую тему
  • Please log in to reply
3 ответов в этой теме

#1 Альбиша

Альбиша
  • Новобранец
  • 3 сообщений

Отправлено 21 Май 2009 - 23:07

У меня такая просьба: может найдется тот добрый человек, который мне поможет с блок-схемой. Нужно составить блок-схему по данной программе:
const
  m=100;

var
  i,j,k,n,d,x: integer;
  Goals: array[1..m,1..m]of integer;
  Teams: array[1..m]of string[15];
  Score: array[1..m]of integer;
  List: set of byte;

begin
  WriteLn('Type in team names one at a time, finish with empty line:');
  n:=0;
  repeat
	Inc(n);
	Write(n,' => ');
	ReadLn(Teams[n])
  until (n=m)or(Teams[n]='');
  if Teams[n]='' then Dec(n);
  for i:=1 to n do for j:=1 to n do Goals[i,j]:=Random(6);
  WriteLn;
  WriteLn('The Cup table:');
  Write('':15);
  for i:=1 to n do Write(i:5);
  WriteLn;
  for i:=1 to n do begin
	Write(Teams[i]:15,' ',i,' ');
	for j:=1 to n do if j>i then Write(Goals[i,j],':',Goals[j,i],'  ') else Write('':5);



	WriteLn
  end;
  for i:=1 to n do begin
	Score[i]:=0;
	for j:=1 to n do begin
	  d:=0;
	  if Goals[i,j]>Goals[j,i] then d:=3 else if Goals[i,j]=Goals[j,i] then d:=2;
	  Inc(Score[i],d)
	end
  end;
  WriteLn;
  WriteLn('Teams rating list:');
  List:=[];
  for i:=1 to n do begin
	x:=-1;
	for j:=1 to n do if not(j in List)and(Score[j]>x) then begin
	  k:=j;
	  x:=Score[j]
	end;
	List:=List+[k];
	WriteLn(i:2,Teams[k]:16,Score[k]:5)
  end;
  ReadLn
end.
Буду очень благодарна!!!

Сообщение изменено: Альбиша (21 Май 2009 - 23:07 )

  • 0

#2 ParadoxL

ParadoxL
  • Постоялец
  • 4 756 сообщений
  • Откуда:Edinburg

Отправлено 21 Май 2009 - 23:39

Альбиша, по какой семантике .. Джексона или другой?
  • 0
Victoria nulla est, Quam quae confessos animo quoque subjugat hostes ...
Верю в смерть после жизни, любовь после секса и в крем после бритья ...

#3 Альбиша

Альбиша
  • Новобранец
  • 3 сообщений

Отправлено 22 Май 2009 - 07:42

Альбиша, по какой семантике .. Джексона или другой?

Да обычную простую блок-схему
Вот такого типа:

Прикрепленные файлы

  • Прикрепленный файл  Doc2.doc   33,5К   21 Количество загрузок

Сообщение изменено: Альбиша (22 Май 2009 - 07:49 )

  • 0

#4 Альбиша

Альбиша
  • Новобранец
  • 3 сообщений

Отправлено 22 Май 2009 - 16:00

Ну помогите, пропадаююююююю(((
  • 0