Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Проверка блок-схемы

Автор: -Антон- 21.12.2006 21:14

Скажите правильно ли составлена блок-схема для следующей задачи:


program p51;
const m=5;
n=4;
var ar: array[1..n,1..m] of integer;
i,j,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
ar[i,j]:=random(5);
write(ar[i,j],' ');
end;
writeln;
end;
for i:=1 to n do
if ar[i,1]=ar[i,m] then
inc(k);
writeln(‘количество строк, в которых первый элемент совпадает с последним:’,k);
readln;
end.



Автор: klem4 21.12.2006 21:21

Где схема - то ?


ps http://forum.pascal.net.ru/index.php?showtopic=4270

Автор: -Антон- 21.12.2006 21:29

Не удаётся прикрепить файл. В каком формате нужно?

Автор: klem4 21.12.2006 21:36

bmp, jpeg, rar ...

Автор: -Антон- 21.12.2006 21:47

Блок-схема

Автор: klem4 21.12.2006 21:49

Зарегистрироваться тебе надо судя по всему ...

Автор: Антон 777 21.12.2006 21:57

Зарегистрировался. Вот схема.


Прикрепленные файлы
Прикрепленный файл  5.rar ( 4.94 килобайт ) Кол-во скачиваний: 166

Автор: polic 21.12.2006 22:23

const m=5;
n=4;
вот это не надо в блоке
k:=0;а где это?
вывод параллелограмом

Автор: polic 21.12.2006 22:39

----------
тема пусть звечит так Оператор Условия

Автор: Антон 777 21.12.2006 23:53

Меня больше интересует правильность стрелок

Автор: Антон 777 22.12.2006 1:49

Так что? Значит стрелки расставлены верно?