Одномерные массивы - 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.

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

  1. В первой строке объявляются переменные a1, a2, a и s типа real.
  2. Во второй и третьей строках считываются значения переменных a1 и a2.
  3. В четвертой строке считывается количество итераций n.
  4. В пятой строке переменной s присваивается сумма a1 и a2.
  5. В шестой строке начинается цикл for, который выполняется от 3 до n включительно.
  6. В каждой итерации цикла проверяется, является ли k нечетным числом.
  7. Если k нечетное, то переменной a присваивается значение cos(pi*a1/2).
  8. Если k четное, то переменной a присваивается значение sin(pi*a2/2).
  9. После завершения итерации значения a1 и a2 обновляются таким образом, чтобы они были равны a.
  10. В конце цикла значение переменной s выводится на экран.

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

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