Одномерные массивы - Pascal ABC (12674)
Формулировка задачи:
задание задать a1 и a2 , вычислить систему уравнений до n повторения
Правильно ли я сделал?
Решение задачи: «Одномерные массивы»
textual
Листинг программы
var a1,a2,a,s:real; n,k:integer; begin write('Введите а1 '); readln(a1); write('Введите а2 '); readln(a2); write('Количество итераций n>2 n='); readln(n); s:=a1+a2; for k:=3 to n do begin if odd(k) then a:=cos(pi*a1/2) else a:=sin(pi*a2/2); a1:=a2; a2:=a; end; write('Сумма=',s:0:6) end.
Объяснение кода листинга программы
- В первой строке объявляются переменные a1, a2, a и s типа real.
- Во второй и третьей строках считываются значения переменных a1 и a2.
- В четвертой строке считывается количество итераций n.
- В пятой строке переменной s присваивается сумма a1 и a2.
- В шестой строке начинается цикл for, который выполняется от 3 до n включительно.
- В каждой итерации цикла проверяется, является ли k нечетным числом.
- Если k нечетное, то переменной a присваивается значение cos(pi*a1/2).
- Если k четное, то переменной a присваивается значение sin(pi*a2/2).
- После завершения итерации значения a1 и a2 обновляются таким образом, чтобы они были равны a.
- В конце цикла значение переменной s выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д