Нарисовать блок-схему по коду

@zoyd · Регистрация: 17.05.2016

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

Доброго времени суток. Имеется программа, необходимо сделать к ней блок-схему. Вроде блок-схема есть, однако сказали, что есть ошибка( указали, что не до конца все проставлено рядом с for). Подскажите как быть.

Pascal

1 var a:array[1..12,1..12] of integer;
2 i,j, sum : integer;
3  fout:Text;
4 begin
5  Randomize;
6  for i:=1 to 12 do begin
7   for j:=1 to 12 do begin
8     a[i,j] := Random(151);
9    Write(a[i,j]:5);
10   end;
11   WriteLn
12 end; 
13 
14 sum:=0;
15 i:=1;
16 while i<=12 do begin
17   for j:=1 to 12 do sum := sum + a[i,j];
18   Inc(i,2)
19 end;
20 
21 WriteLn('sum of odd rows = ',sum);
22 
23 Assign(fout,'D:\TPascal\Pascal_u\kurs\output\output.txt');
24 Rewrite(fout);
25 WriteLn(fout, sum);
26 Close(fout);
27 
28 ReadLn
29 end.

ФедосеевПавел · 23.05.2016, 23:34

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

Вроде блок-схема есть, однако сказали, что есть ошибка( указали, что не до конца все проставлено рядом с for).

"Он сказал, что ты сказал. А я говорю, что ты лжёшь. Что ты скажешь на это?" ( (с)"Великолепная семёрка")

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

Подскажите как быть.

Читать в методичке о блок-схемах.

Или вы ждёте, что кто-то скопирует главу из вашей методички?

Добавлено через 1 минуту
Я пошутил. Ждите - кто-нибудь сделает.

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	23.05.2016, 23:34	2
	Сообщение от zoyd Вроде блок-схема есть, однако сказали, что есть ошибка( указали, что не до конца все проставлено рядом с for). "Он сказал, что ты сказал. А я говорю, что ты лжёшь. Что ты скажешь на это?" ( (с)"Великолепная семёрка") Сообщение от zoyd Подскажите как быть. Читать в методичке о блок-схемах. Или вы ждёте, что кто-то скопирует главу из вашей методички? Добавлено через 1 минуту Я пошутил. Ждите - кто-нибудь сделает. 0