Найти наибольшее из значений функции в расчётных точках с нечётными номерами - Pascal ABC

Формулировка задачи:

Найти наибольшее из значений функции в расчётных точках с нечётными номерами y=6(1-e^-1x)*sin(4*pi*x+30градусов)

Код к задаче: «Найти наибольшее из значений функции в расчётных точках с нечётными номерами - Pascal ABC»

textual
var a,b,dx,x,y,max:real;
    n,i:integer;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>a b=');
readln(b);
until b>a;
repeat
write('Введите кол-во расчётных точек n>1 n=');
readln(n);
until n>1;
dx:=(b-a)/(n-1);
x:=a;
max:=a;
for i:=1 to n do
 begin
  y:=5*(1-exp(-2*x))*sin(4*pi*x+pi/6);
  writeln(i:2,' x=',x:5:2,'  y=',y:8:2);
  if odd(i)and(y<max) then max:=y;
  x:=x+dx;
 end;
writeln('Наибольшее значение с нечетным номером= ',max:8:2);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ