VPascal

[elektro]

Доброе время суток
код,простейший..
Program Cycle;
uses crt;
var
i,k:integer

Begin
For i:=1 to 100 do k:=k+i;
for i:= 100 downto 0 do begin
writeln('осталось',i,' секунд');
delay(1000)
end;
end.

Цикл с обратным счётчиком.

Проблема в том что не могу составить для него блок схему,т.е. разложить на элементарные действия. Всё отлично получаеться при сокращённой схеме,с тем же diamFC (прога для составления блок-схем по коду) однако требуеться детальная схема,с каждым действием.

И главное-нельзя ошибиться,т.к. действие действительно элементарное и сдавать его надо без единой ошибки,

причина

т.к. заставляет заниматься этой,простите,фигнёй,на экзамене,как бы допуск к нему. Т.е. не сделаешь с первого раза-будешь экзамен пересдавать. А в универе это несколько накладно. Итак,схемка

блоки от проги

(старт)->

@темы: Pascal

Comments

[Vj_o-oy]

если нужно разложить блок цикла, то состоит он из следующих: проверка условия останова, изменение счетчика, выполнение тушки цикла. циклы бывают с пост-условием и пред-условием. for - с пред-условием.

[elektro]

На словах не совсем понятно,можно хотябы в скобках,типо (старт) <условие> [приравнивание] и тд
пс
Текст краскозабрами в одном из блоков-это "осталось i секунд" из кода. Просто diamFC не поддерживает кириллицу походу.

[Vj_o-oy]

elektro стройте схемы в визио. она все поддерживает.

распишу цикл на паскале
for i := 100 downto 0 do
эквивалент:
i := 100;
cycle:
if(i > 0) then
begin
тело цикла
i := i - 1;
goto cycle;
end

для инкремента - аналогично

[elektro]

а визио это что? Visio?

[Vj_o-oy]

elektro да