Как добавить счетчик для первых 5 членов последовательности, кратные 3 - Pascal
Формулировка задачи:
Последовательность [a][/n] строится так: [a][/1]=1, [a][/2]=3,…., [a][/n] =[a][/n-2] -[2a][/n-1] для каждого n>2. Найти первые 5 членов последовательности, кратные 3.
var i,a,a1,a2,b,a3:integer; begin a1:=1; a2:=3; i:=1; b:=0; while b<>3 do begin a:=a1-2*a2; a1:=a2; a2:=a; if (a mod 3 =0) then begin writeln(a); b:=b+1; end; end; i:=i+1; end.
Решение задачи: «Как добавить счетчик для первых 5 членов последовательности, кратные 3»
textual
Листинг программы
var a,a1,a2,b:integer; begin a1:=1; a2:=3; b:=0; while b<5 do begin a:=a1-2*a2; if a mod 3=0 then begin writeln(a); b:=b+1; end; a1:=a2; a2:=a; end; end.
Объяснение кода листинга программы
- Объявляются переменные:
a
,a1
,a2
,b
типа integer.
- Присваиваются начальные значения переменным:
a1
получает значение 1,a2
получает значение 3,b
получает значение 0.
- Запускается цикл
while
:- Пока
b
меньше 5, выполняется блок команд.
- Пока
- В блоке команд:
- Вычисляется значение переменной
a
по формуле a1 - 2 * a2. - Проверяется, делится ли
a
на 3 без остатка:if a mod 3 = 0
. - Если условие выполняется, то выполняются следующие действия:
- Выводится значение
a
на экран с помощьюwriteln
. - Значение
b
увеличивается на 1 (b:=b+1).
- Выводится значение
- Вычисляется значение переменной
- В конце блока команд значение
a1
присваивается переменнойa2
, а значениеa2
присваивается переменнойa
. - Цикл
while
продолжается, покаb
меньше 5.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д