Нужно написать код по простой блок схеме.

[Cavin]

Пожалуйста помогите составить код для блок схемы. Блок схема очень простая. Заранее спасибо!
ps Напишу на всякий случай, код буду набирать в ABC Pascal

[Serge_Bliznykov]

формально ответ такой:

var B,C,D : integer;
begin
  B := 2;
  while (B<2) do begin
     if (B=2) then B := B + 1;
     D := B;
     B := B + 1 
  end; 
  C := B + D;
end.

[Cavin]

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

формально ответ такой:

var B,C,D : integer;
begin
  B := 2;
  while (B<2) do begin
     if (B=2) then B := B + 1;
     D := B;
     B := B + 1 
  end; 
  C := B + D;
end.

Огромное спасибо!
ps Насторожило слово "Формально".

[Serge_Bliznykov]

пожалуйста.

ps Насторожило слово "Формально".

Алгоритм так себе..
во-первых, если кто-то ВДРУГ задаст B в начале не 2 (как в алгоритме),
а больше 5 - то значение D будет неопределёно. Это не ошибка, это просто вопрос универсальности и гибкости алгоритма.

во-вторых, полученное значение C нигде не используется (не выводится на экран, например). непонятно, для чего мы это всё считали!

[Cavin]

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

пожалуйста.


Алгоритм так себе..
во-первых, если кто-то ВДРУГ задаст B в начале не 2 (как в алгоритме),
а больше 5 - то значение D будет неопределёно. Это не ошибка, это просто вопрос универсальности и гибкости алгоритма.

во-вторых, полученное значение C нигде не используется (не выводится на экран, например). непонятно, для чего мы это всё считали!

Мне тоже не понятно, зачем мы это все считали, но с информатичкой не поспоришь!!!