Программирование паскаль - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста! Нужно решить любую задачу в pasсal - 4 способами.

Решение задачи: «Программирование паскаль»

textual
Листинг программы
var
  sum, i: integer;
 
label
again;
 
begin
  // for
  sum := 0;
  for i := 1 to 3 do
    sum := sum + i;
  writeln('Sum: ', sum);
  // while
  sum := 0;
  i := 1;
  while i <= 3 do
  begin
    sum := sum + i;
    inc(i);
  end;  
  writeln('Sum: ', sum);  
  // repeat
  sum := 0;
  i := 1;
  repeat
    sum := sum + i;
    inc(i);
  until i > 3;  
  writeln('Sum: ', sum);    
  // goto
  sum := 0;
  i := 1;
  again:
  if i <= 3 then
  begin
    sum := sum + i;    
    inc(i);
    goto again;
  end;
  writeln('Sum: ', sum);      
end.

Объяснение кода листинга программы

  1. Объявлены две переменные: sum (сумма) и i (счетчик).
  2. Выполняется цикл for, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика и выводит результат.
  3. Выполняется цикл while, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика, увеличивает его на 1 и выводит результат.
  4. Выполняется цикл repeat, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика, увеличивает его на 1 и выводит результат, пока значение счетчика не станет больше 3.
  5. Выполняется цикл again, который выполняется, пока значение счетчика не станет больше 3. На каждой итерации прибавляет к сумме значение счетчика, увеличивает его на 1 и повторяет цикл снова.
  6. Выводится значение суммы.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы