Найти значение y(x) по формуле линейной интерполяции - Turbo Pascal

Узнай цену своей работы

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

Найти значение y(x) по формуле линейной интерполяции
Листинг программы
  1. х 1 1,1 2 2,2
  2. у 0 0,1 0,2 0,3
число х = 1,18

Решение задачи: «Найти значение y(x) по формуле линейной интерполяции»

textual
Листинг программы
  1. uses crt;
  2. const n=4;
  3.       x:array[1..n] of real=(1,1.1,2,2.2);
  4.       y:array[1..n] of real=(0,0.1,0.2,0.3);
  5. var x1,y1:real;
  6.     i,i1:byte;
  7. begin
  8. clrscr;
  9. x1:=1.18;
  10. i:=0;
  11. while(i<n)and(i1=0) do
  12. if x[i]>=x1 then i1:=i
  13. else inc(i);
  14. y1:=y[i-1]+(x1-x[i1-1])/(x[i]-x[i1-1])*(y[i]-y[i-1]);
  15. write('При х=1.18 y=',y1:0:4);
  16. readln
  17. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы