Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблици, первый столбец который - значения аргумента, второй - соответствующей значения функции. F(x)=tg x. F(x)=tg x/2+2cos x.
klem4
24.04.2007 14:03
Поиск -> Табулирование функции
решалось десятки раз
samec
24.04.2007 14:37
program tab; var fx,x,a,b,h:real; flag:boolean; begin {ввод исходных данных} write('Введите a: '); readln(a); write('Введите b: '); readln(b); write('Введите шаг: '); readln(h); {проверка ОДЗ} x:=a; flag:=false; while(x<=b) do begin if(cos(x)=0)or(2+2*cos(x)=0) then {в знаменателе не может быть нуля!} flag:=true; x:=x+h; end; {расчеты} if flag then writeln('Ошибка! Смотрите ОДЗ!') else begin x:=a; writeln('======================='); writeln('| x | F(x) |'); while(x<=b) do begin fx:=((sin(x)/cos(x))/(2+2*cos(x))); writeln('|',x:10:2,'|',fx:10:2,'|'); x:=x+h; end; writeln('======================='); end; readln; end.
вот как то так.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.