Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения - Turbo Pascal

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

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

Помогите с решением: На каждом следующем дне рождения Вини Пух съедает столько же пищи, что и на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения?(нигде не нашел понятного решения)

Решение задачи: «Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения»

textual
Листинг программы
uses crt;
const n = 15;
var a:array[1..n] of real;
    i: integer;
begin
clrscr;
a[1] := 0.1;
a[2] := 0.1;
writeln(' 1= 0.1 kg');
writeln(' 2= 0.1 kg');
for i := 3 to n do
 begin
  a[i]:=a[i-1]+a[i-2];
  writeln(i:2,'=',a[i]:4:1, ' kg');
 end;
readln;
end.

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

  1. В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Затем определяется константа n, которая представляет собой количество дней в задаче.
  3. Далее объявляются переменные a и i. Переменная a представляет собой массив из n элементов типа real, а переменная i - целое число.
  4. Выводится начальное значение a[1] и a[2].
  5. Затем идет цикл for, который начинается с i = 3 и продолжается до i = n. Внутри цикла каждый элемент массива a[i] вычисляется как сумма предыдущих двух элементов.
  6. После каждого вычисления значение a[i] выводится на экран вместе с его индексом.
  7. В конце программы выводится символ новой строки readln, чтобы перейти на следующую строку вывода.
  8. Конец программы обозначается точкой end.

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

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