Программирование в среде Турбо Паскаль. Закутский С.Н - 51 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

51
Else m:=k;
{Формирование матрицы А}
For i:=1 to 3 do
For j:=1 to m do
If i = 1
Then Matr[i,j]:=x[j]
Else if i = 2
Then Matr[i,j]:=y[j]
Else Matr[i,j]:=z[j];
{Вывод матрицы А}
WriteLn('Матрица результата работы программы');
For i:=1 to 3 do
For j:=1 to m-1 do
Write(Matr[i,j]:5:2, ' ');
WriteLn(Matr[i, m]);
{Конец программы}
WriteLn('Нажми Enter'); ReadLn;
END.
Для иллюстрации рассмотренных выше понятий ниже приводится
программа линейной интерполяции. Содержание задачи , реализованной в
программе, заключается в следующем. Исходными данными являются зна -
чения функции y при некоторых значениях аргумента x. При этом извест-
но , что y изменяется в зависимости от x по линейному закону. Требуется
вычислить значения функции при заданных значениях аргумента xa, назы-
ваемых узлами интерполяции.
Uses CRT
99
; {стандартный модуль для очистки экрана}
Const l = 20; {определение максимального размера массива}
Type mas = array [1..l] of real; {определение структуры массивов
путем объявления типа}
{--------------------------------------------}
Procedure Intln(x,y : mas; n : byte; xa : real; var ya : real);
{заголовок процедуры: x, y-исходные массивы; n-их рабочая длина;
xa-значение аргумента, при котором определяется интерполируемое
значение функции; значения х, y, n, xa будут определены при
обращении к процедуре; ya-искомое значение функции, оно будет
передано в основную программу}
Var i,i1 : byte;
Begin {Начало тела процедуры}
For i:=2 to n do
Begin
If (x[i]-xa) >= 0
Then begin
99
CRT (cathode-ray tube) [сиарти] – катодно -лучевая трубка .

Страницы