Программирование паскаль - 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.
Объяснение кода листинга программы
- Объявлены две переменные: sum (сумма) и i (счетчик).
- Выполняется цикл for, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика и выводит результат.
- Выполняется цикл while, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика, увеличивает его на 1 и выводит результат.
- Выполняется цикл repeat, который выполняет три итерации, на каждой из которых прибавляет к сумме значение счетчика, увеличивает его на 1 и выводит результат, пока значение счетчика не станет больше 3.
- Выполняется цикл again, который выполняется, пока значение счетчика не станет больше 3. На каждой итерации прибавляет к сумме значение счетчика, увеличивает его на 1 и повторяет цикл снова.
- Выводится значение суммы.