Лена
Pascal ABC Вычисление таблицы значений функции одного аргумента с выбором формулы
Составить программу вычисления N значений функции Y для Х, изменяющегося от Х1 с шагом dX
Составить программу вычисления N значений функции Y для Х, изменяющегося от Х1 с шагом dX
var A, X1, dX : Real; N : Integer; begin Write('A, X1, dX, N = '); ReadLn(A, X1, dX, N); var X : Real := X1; for var i := 1 to N do begin WriteLn('y(', X, ') = ', X < 0? A * cos(X*X/2) : A / 2*(exp(X / A) + exp(-X / A))); X += dX; end; end.
Чёй-то мне эйбиси-нет со временем нравится всё больше и больше!