Приклад обчислення функції на Паскалі

Курсовой проект - Компьютеры, программирование

?рование элемента x[k]массива X }

k:=k+1;

end;

{Вывод массива X}

writeln( Массив X);

writeln;

for i:=1 to k-1 do

write (x[,i,]=, x[i]:10:7, ); {Вывод элемента массива X}

{ Вычисление функции U}

U:=1; {Начальное значение функции U}

for i:=1 to k-1 do

U:=U*(x[i]+x[k-i]); {Значение функции U}

writeln;

write (u=,u:10:7); {Отображение результирующего значения функции U}

Repeat Until KeyPressed

END.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ

при m=n=3 і при однаковом форматі виведення для всіх чотирьох видів даних

a[i,j]:10:7;

Вихідна матриця

a[1,1]=-3.7007064 a[1,2]=0.3092295 a[1,3]=-0.0910127

a[2,1]=-3.6028023 a[2,2]=0.9875200 a[2,3]= 1.1849153

a[3,1]=-0.5229830 a[3,2]= 1.2015703 a[3,3]= 1.6857605

Транспонована матриця

a[1,1]=-3.7007064 a[1,2]=-3.6028023 a[1,3]= -0.5229830

a[2,1]= 0.3092295 a[2,2]= 0.9875200 a[2,3]= 1.2015703

a[3,1]=-0.0910127 a[3,2]= 1.1849153 a[3,3]= 1.6857605

Масив Х

x[1]=-3.700706 x[2]=-3.6028023 x[3]=-0.5229830 x[4]=0.3092295

x[5]=0.9875200 x[6]=1.2015703 x[7]=-0.0910127 x[8]=1.1849153

x[9]=1.6857665

Значення функції: U=40.3382026

Результати ручних розрахунків співпадають з програмними, що свідчить про правильність роботи програми.

ВИКОРИСТАНА ЛІТЕРАТУРА

А. И. Марченко, Л. М. Марченко. Программирование в среде TURBO Pascal 7.0. Киев “ВЕК+””, Москва “ДЕСС”, 1999.
Ю.С. Бородич, А.Н. Вальвачев, Ф.И. Кузьмич. Паскаль для персональных компьютеров. Минск,”Вышэйшая школа”, БФ ГИТМП “НИКА”, 1991
Д.Б. Поляков, И.Ю. Круглов. Программирование в среде Турбо Паскаль, Москва, МАИ, А\О “РОСВУЗНАУКА”, 1992.
Ф.Б. Бартків, Я.Т. Гринчишин, А.М. Ломакович, Ю.С. Рамский. TURBO PASCAL: Алгоритми и програми. Київ, Вища школа, 1992.

.ru