Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A*D, A*D^2, A*D^3+ ...}
Категория: Delphi/Pascal
2012-12-21 16:42:19
code: #pascal
program Array4; var a: array of real; i, n: integer; d: real; begin WriteLn ('Количество членов прогрессии:'); ReadLn (n); SetLength(a, n); WriteLn('Первый член прогрессии:'); ReadLn (a[0]); WriteLn ('Знаменатель прогрессии:'); ReadLn (d); WriteLn ('Прогрессия: '); Write (a[0]:5:2, ' '); for i := 1 to n - 1 do begin a[i] := a[0]*exp(ln(d)*i); Write (a[i]:5:2, ' '); end; WriteLn; ReadLn; end.
автор: Zaharov Nikolay a.k.a. hacker19_90
Поделиться: