Задача с функциями - Free Pascal

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

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

Пользователь вводит два ряда чисел, первая функция должна сложить в первом ряду такую последовательность чисел(1,3,5,7..и.т.д), вторая функция должна сложить во втором ряду такую последовательность чисел(2,4,6,8..и.т.д) Главное нельзя использовать: стандартные функции,массивы, модули.
Имеется ввиду: первая функция складывает не парные числа из первого ряда чисел. Вторая функция складывает парные числа из второго ряда чисел.

Решение задачи: «Задача с функциями»

textual
Листинг программы
function nechet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 <> 0 then
      sum := sum + x;
  until x = 0;
  nechet := sum;
end;
 
function chet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 = 0 then
      sum := sum + x;
  until x = 0;
  chet := sum;
end;
 
begin
  writeln('Сумма нечетных: ', nechet);
  writeln('Сумма четных:   ', chet);  
end.

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

  1. Написан код на языке Free Pascal.
  2. Задача заключается в подсчете суммы четных и нечетных чисел.
  3. Объявлены две функции: nechet и chet.
  4. В каждой функции объявлены две переменные: x и sum.
  5. Переменная x используется для хранения введенного числа.
  6. Переменная sum используется для хранения суммы чисел.
  7. В каждой функции используется цикл repeat-until для чтения чисел до тех пор, пока не будет введено ноль.
  8. Если число нечетное (x mod 2 <> 0), то оно добавляется к сумме в функции nechet.
  9. Если число четное (x mod 2 = 0), то оно добавляется к сумме в функции chet.
  10. Функции nechet и chet возвращают сумму нечетных и четных чисел соответственно.
  11. В основной части программы вызываются функции nechet и chet, и выводятся результаты.
  12. Результат вычислений выводится на экран с помощью функции writeln.
  13. Результатом выполнения программы будет сумма нечетных и четных чисел.

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

12   голосов , оценка 4 из 5