Студопедия
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Текст програми

Читайте также:
  1. Ex. 1 Прочитайте и письменно переведите текст.
  2. I READING Текст №3 My grandfather
  3. I. Прочитайте и переведите текст.
  4. I. Стандарты текста
  5. I.1.2. Божественное — человеческое в авторитетных текстах ислама
  6. II. Речевая деятельность человека. Создание текста. Коммуникативные качества хорошей речи и способы их достижения
  7. III READING Текст №1 Harrods Christmas sale
  8. III. Написание текста контрольной работы
  9. III. Особенности продажи текстильных, трикотажных, швейных и меховых товаров и обуви
  10. III. Реферирование текста.

program z03;

type SM=array[1..5,1..5] of real; опис типу для матриці

 

B=array [1..5] of real; опис типу для вектора

 

var A:sm; X:B; g:real; {опис глобальних зміних }

 

procedure procedure_A(var At:sm);

var i,j:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

begin

for j:=1 to 5 do

write(' ', at[i,j]:4:4);

writeln;

end;

readln;

 

end;

procedure procedure_X(At:sm; var Xt:B);

Підпрограма –процедура обчислення вектора Х(х1,х2,..,х5), кожен елемент якого визначається як сума парних елементів рядка.

var i,j:integer;

begin

for i:=1 to 5 do

begin xt[i]:=0;

for j:=2 to 5 do

begin

xt[i]:=xt[i]+at[i,j];

j:=j+1;

end;

end;

for i:=1 to 5 do

write(' ',xt[i]:4:4);

readln;

end;

 

 

procedure procedure_G(Xt:B;var Gt:real);

Підпрограма обчислення значення функції G

var i,k:integer; p,s:real;

begin

for i:=1 to 5 do

begin

p:=1;

for k:=1 to i do

p:=p*(xt[k]/factorial(k));

gt:=gt+(sin(xt[i])-p)

end;

end;

 

 

{Головна програма}

begin

procedure_A(A);

procedure_X(A,X);

procedure_G(X,G);

writeln;

writeln(' ret:',g:4:4);

readln;

end.

 




Дата добавления: 2015-01-29; просмотров: 115 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2025 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав