Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклы.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Таня
Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблици, первый столбец который - значения аргумента, второй - соответствующей значения функции. F(x)=tg x. F(x)=tg x/2+2cos x. mega_chok.gif
klem4
Поиск -> Табулирование функции

решалось десятки раз
samec

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.



вот как то так.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.