Протабулировать функцию на интервале - Turbo Pascal

  1. Протабулировать функцию на интервале : -0.2≤x≤0.8 с шагом h=0.1: Помогите пожалуйста, буду очень благодарен и признателен


textual

Код к задаче: «Протабулировать функцию на интервале - Turbo Pascal»

x:=-0.2;
while x<=0.85 do begin
  d:=Sqr(Sqr(x))/2+Sqr(Sin(x));
  if Abs(d)>1e-7
  then WriteLn('x=',x:4:1,' y=',(1+Cos(Sqr(x)-1))/d:8:4);
  else WriteLn('x=',x:4:1,' y не определён');
  x:=x+0.1;
end;

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.167 из 5



Похожие ответы
  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. При условии, что для x=1(0.5)4 при K=3, a=0.5 , b=0.7

  1. ; при условии ; x=0,25(0,05)0,65

  1. Здравствуйте. Подскажите что не правильно делаю, и возможно ли вообще - вызвать процедуру\функцию из другого объекта\класса, в турбо паскале? Хочу сделать из одного класса\объекта два.. Но чё-т как-то не получается. Исходный код не влез, прикрепил тхт файлом. И переделанное тоже прикрепил. Вот во что пытался переделать:

  1. Написать не рекурсивную функцию, которая используя стек, вычисляет значение F(m,n) для любой пары положительных чисел n и m за соотношением: Не могу совсем разобраться с задачей, не соображаю даже с чего мне начать. Уравнение через if'ы смогу решить но что такое стеки и как их сюда прикрутить не знаю.

  1. Составьте текст программы, содержащий две функции: 1. функцию сложения двух чисел, используя только прибавление единицы, реализованную с помощью циклов; 2. функцию сложения двух чисел, используя только прибавление единицы, реализованную с помощью рекурсии;

  1. составить программу расчета и вывода на экран функции y=(x*x-1)/x для х от -15 до 15 с шагом 1