ип та змінні:
=record, y: Integer ;;: Point;
у: Integer;
У цьом випадка и до x, и до у можна Звертатися, як до змінної або як до поля запису. У операторі:
x do:=+10;
у:=25 ;; между ключовими словами with и dо відносіться до змінної типу покажчик, а в ськладової операторі x и у посілаються на xx и yy
Оператор:
V1, V2 ... Vn do s;
еквівалентній операторам:
V1 doV2 do
... Vn do;
У двох випадка, если Vn є полем и v1, и v2, то вона інтерпретується як v2.Vn, а не як v1.Vn.
Если вібірка змінної типу Запис пов'язана з індексацією масиву або покажчика, то ЦІ Дії проводяться до того, як віконуватіметься ськладової оператор.
Постановка задачі
1. Обчісліті елементи квадратної матріціза формулою:
. Вікорістовуючі елементи матриці обчісліті елементи вектора.
. Обчісліті значення Функції G за формулою
Алгоритм розвязання задачі
Частина 1:
1. Складемо блок-схему обчислення елементів матриці за формулою
2. Складемо блок-схему підпрограмі формирование вектора, КОЖЕН елемент якої візначається, як Різниця максимальних и мінімальніх елементів рядків матриці.
При цьом процедури M (m) знаходження максимального (мінімального) елементів i-о рядка матриці A Вінес для наглядності на окрему блок-схему.
. Складемо блок-схему підпрограмі обчислення значення Функції G за формулою
Програмні реализации алгоритмом
Програма написана на мові Паскаль. Дана програма призначе для обчислення елементів матриці, вектора ТА значення Функції за формулами согласно варіанту. Результатами виконан програми є відповідні значення елементів матриці, вектора ТА значення Функції.
kursova;
Crt;
type matrix=array [1..5, 1..5] of real;
type vector=array [1..5] of real;
m_init (var B: matrix); i, j: byte; i:=1 to 5 doj:=1 to 5 do [i, j]:=ln (i * i + j * j * j) -ln (abs (sin (i) + cos (i)))/ln (10) ;;
m_print (B: matrix); i, j: byte; writeln; j:=1 to 5 doj:=1 to 5 do write ( a [, i, laquo ;, , j, ]=, B [i, j]: 4: 2); writeln; writeln ;;; v_max (k: byte; B: matrix): real; m: real; i: byte;:=B [k, 1]; i:=2 to 5 dom lt; B [k, 1] then m:=B [k, 1]; _ max:=m;
v_min (k: byte; B: matrix): real; m: real; i: byte;:=B [k, 1]; i:=2 to 5 dom gt; B [k, 1] then m:=B [k, 1]; _ min:=m;
m_print (Y: vector); i, j: byte; writeln; i:=1 to 5 do writeln ( x [, i, ] , Y [i ]: 7: 4) ;;
prod (i: byte; Y: vector): real; k: byte; p: real ;;:=Y [1]; k:=2 to i do p:=p * Y [1];:=p ;; A: matrix;, j: byte ;: vector;, s: real ;
;; _ init (A); _ print (A); i:=1 to 5 do X [i]:=v_max (i, A) -v_min (i, A); _ print (X );
:=0; i:=1 to 5 do s:=s + abs (X [i] * X [i] -prod (i, X));
;:=exp (ln (s)/3); ( G=, G: 7: 4);
.
Результати виконан програми
Елементи матриці
[1,1]=0.55 a [1,2]=2.06 a [1,3]=3.19 a [1,4]=4.03 a [1,5]=4.70 [2, 1]=1.92 a [2,2]=2.79 a [2,3]=3.74 a [2,4]=4.53 a [2,5]=5.17 [3,1]=2.37 a [3,2]= 2.90 a [3,3]=3.65 a [3,4]=4.36 a [3,5]=4.97 [4,1]=2.68 a [4,2]=3.03 a [4,3]=3.61 a [ 4,4]=4.23 a [4,5]=4.80 [5,1]=3.43 a [5,2]=3.67 a [5,3]=4.12 a [5,4]=4.66 a [5,5 ]=5.18
Елементи вектора
[1] 4.1431 [2] 3.2504 [3] 2.5953 [4] 2.1155 [5] 1.7525
Значення Функції=6.2154
Висновки
Во время виконан даної курсової роботи я ознайомівся Із використанн підпрограм та функцій користувача при роботі з масивами на прікладі написанні мною програм на мові Паскаль, набувші таким чином питань комерційної торгівлі навиків програмування. Напісані програми та отрімані результати наведено вищє во время Опису виконан роботи. виконан роботи Складанний Із кількох етапів. Спершу Було Здійснено постановку задачі та опрацьовано відповідній материал Із літератури. На Наступний етапі розроблено алгоритми вирішенню поставлених завдань. Це питання розв язували паралельно Із їх програмним вірішенням. На последнего етапі во время підготовкі Звіту Було Вівче методи та вимоги оформлення Звіту, засоби перенесеного результатів Із програ...
