Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Разные задачи https://www.cyberforum.ru/ pascal/ thread54269.html 1. Обчислити значення функції використовуючи скорочений запис умовного оператора: (система) (Вычислить значение функции используя краткую запись условного оператора) \| lg(11-x)+4, x<10 y= \| (sin^2 (pi x))/(18+x), 10<=x<=18 \| x+ sqrt(x-14), x>18 2. на заданому проміжку знайти всі натуральні числа, що дорівнюють кубу суми своїх цифр. (На данном промежутке найти...	Pascal Решить систему линейных уравнений Розвязати систему двох лінійних рівнянь з двома невідомими за формулами Крамера Знайти суму трицифрових чисел, які мають в своему записі цифру а. и еще можно вот это найти высоту триугольника площи S, если его основа больше за высоту на велечину а
Pascal нужно заменить в массиве числа меньшие Y на 0 помогите написать программу! нужно заменить в массиве числа меньшие Y на 0! пожалуйста помогите! https://www.cyberforum.ru/ pascal/ thread54266.html	Pascal Текстовые файлы https://www.cyberforum.ru/ pascal/ thread54261.html Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в другом файле тот же текст, записанный заглавными буквами.
Pascal Графы Не могу решить задачу. Помогите с решением!!! В заданном графе необходимо определить существует ли цикл, проходящий по каждому ребру графа ровно один раз.	Pascal массивы Срочно помогите, Определить координаты первого минимального элемента побочной диагонали массива в паскале ,заранее спасибо https://www.cyberforum.ru/ pascal/ thread54230.html
Pascal Удалить из него все четные элементы, стоящие на нечетных местах https://www.cyberforum.ru/ pascal/ thread54229.html Пожайлуста помогите решить задачу в паскале, дан одномерный массив целых чисел, удалить из него все четные элементы, стоящие на нечетных местах, pleaseee	Табулирование функции Pascal Оч нужно!!))
Pascal Списки Вот еще с одной задачкой нужна помощь program laba4; type link = ^linelink; linelink = record number : integer; next : link end; https://www.cyberforum.ru/ pascal/ thread54200.html	Pascal Массивы Помогите плз переделать программу. Сама задача звучит так Вывести на печать элементы целочисленных матриц N(5,8) и M(10,6), кратные трем. Вот решение program ameba; var n: array of integer; m: array of integer; i,j: byte; begin Randomize; for i := 1 to 5 do for j := 1 to 8 do https://www.cyberforum.ru/ pascal/ thread54198.html
Формирование списка Pascal Помогите решить две задачи: 1. Составить программу, которая вставляет в циклический однонаправленный список из L целых элементов новый элемент F перед первым вхождением элемента E, если E входит в L. Вывести список. 2. Даны два однонаправленных списка L1 и L2 из N пар вещественных чисел. Возвратить новый список L, не включающий в себя пары (x,y) списка L1, не встречающиеся в списке L2. У...	Pascal Задача про треугольник Помоги решить задачу с треугольником: Заданы две вершины треугольника своими координатами на плоскости и координаты точки пересечения высот. Если возможно, составить уравнения сторон треугольника. Добавлено через 6 минут У меня есть метод его решения но дойдя до стадии решения системы уравнения я не могу http://a-geometry.narod.ru/decisions/img_12/0268.gif это ссылка на метод помогите... https://www.cyberforum.ru/ pascal/ thread54182.html

Ardatov

21 / 21 / 1

Регистрация: 13.12.2009

Сообщений: 43

13.12.2009, 17:53

Линейная интерполяция (интересная задача) - Pascal - Ответ 412917

13.12.2009, 17:53. Показов 3657. Ответов 5

Метки (Все метки)

Ответ

Сообщение от vVv-3

1. Задать точки в два массива(обязательно по возрастанию):
H:array[1..10] of real=(1.5,2,3,4,5,7,10,20,30,50)
B:aray[1..10] of real=(10,20,30,40,50,60,70,80,90,100)
2. Ввод заданного значения "X" в компьютер (не равной точке в заданном массиве)
3. Поиск между какими значениями 'H' задана X (например зададим X=15 - находиться ммежду 10 и 20, а по B этим точкам соответствуют значения 70 и 80 (т.е. B[i] соответствует H[i] всегда)
4.Далее в качестве интерполирующей функции выбираем Y=kX+M, где Х-задано, а K и M вычисляються по формулам К=(B[i]-B[i-1])/(H[i]-H[i-1]), M=B[i] - K*H[I-1] (В моём примере x=15, B[i-1]=70 , B[i]=80 ,H[i-1]=10, H[i]=20).
5.Выводим на экран значение Y.

Pascal

uses crt;
var h,b: array[1..10] of real;
    x, y, k, m: real;
    i, kr: integer;
    flag: boolean;
begin
clrscr;
flag:=false;
h[1]:=1.5; h[2]:=2;  h[3]:=3;  h[4]:=4;  h[5]:=5;
h[6]:=7;   h[7]:=10; h[8]:=20; h[9]:=30; h[10]:=50;
b[1]:=10;  b[2]:=20; b[3]:=30; b[4]:=40; b[5]:=50;
b[6]:=60;  b[7]:=70; b[8]:=80; b[9]:=90; b[10]:=100;
write('x= ');
readln(x);
for i:=1 to 10 do begin
if flag=false then begin
 if x<h[i] then begin
  flag:=true;
  kr:=i;
 end;
end;
end;
k:=(b[kr]-b[kr-1])/(h[kr]-h[kr-1]);
m:=b[kr]-k*h[kr-1];
y:=k*x+m;
writeln('y= ',y:2:3);
readkey;
end.

Вернуться к обсуждению:
Линейная интерполяция (интересная задача) Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.12.2009, 17:53

Готовые ответы и решения:

Линейная интерполяция
x 0.3 0.4 0.5 0.6 0.7 f(x) 0,2913 0,3799 0,4621 0,5380 0,6044 f(0.87) Есть тут на форуме билл...

Линейная интерполяция
Добрый день, очень нужна помощь, я уже всю голову сломал в чем и где ошибка Суть программы...

Интересная математическая задача
На очень большом листе клетчатой бумаги нарисовали систему координат. В точке (0; 0) маленький...

Интересная задача
A = 9; B = -17; C = 13; D = -39; ЕСЛИ (B > D) ТОГДА C=(D+B)*5; ЕСЛИ (D > C) ТОГДА A=(A mod B)...

	13.12.2009, 17:53

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.12.2009, 17:53

Помогаю со студенческими работами здесь

Интересная задача на полный перебор
Добрый вечер! Требуется программу, которая распределит камни в две кучи так, чтобы модуль разности...

Линейная интерполяция
Добрый день. Есть задание построить линейную интерполяцию функции, построить график функции,...

Линейная Интерполяция
<?php $A=Array(); for ($i=0; $i<100; $i++) { $A=($i+1); } ?> ...

Линейная интерполяция
Как правильно написать программу линейной интерполяции? С чего начать подскажите?

Наверх