Реферат Формування квадратної матріці

умою его ЕЛЕМЕНТІВ}

min: real; {робоча змінна}

r: real; {робоча змінна}

c, b: integer;

u: real; {змінна для обчислення Значення Функції}

BEGIN {качан програми}

CIrscr; {функція котра перед шкірно запуском програми очіщає екран Виведення результату}

writeln ('Vvedite razmernost matrix A: n'); {Виведення ПОВІДОМЛЕННЯ}

write ('n ='); {Виведення ПОВІДОМЛЕННЯ} read (n); {Введення розмірності матріці }

For i: = 1 to n do {зовнішній цикл перебігу матріці по рядках}

For j: = 1 to n do begin {вкладений цикл перебігу рядка поелементно}

{write ('a [', i, ',', j, '] ='); read (a [i, j]);} {ЯКЩО Прийняти фігурні дужки и взяті у фігурні дужки вирази для Формування елемента матріці - отрімаємо тест програму}

if и mod 2 = 1 then r: =-exp (i * ln (2)) else r: = exp (i * ln (2)); (ij) mod 2 = 1 then

a [i, j]: =-exp ((ij) * ln (1.5)) * 2 * r * (i-3.9) * (i/3-ll) {Утворення елемента матріці}

else

a [i, j]: = exp ((ij) * In (1.5)) * 2 * r * (i-3.9) * (i/3-l.1) ; {Утворення елемента матріці}

end;

Clrscr;

writeln (' ---- Matrica ---- '); {Виведення ПОВІДОМЛЕННЯ}

For i: = 1 to n do begin { цикл Виведення ЕЛЕМЕНТІВ матріці на екран}

For j: = 1 to n do

write ('A [', i, j, '] =', a [i, j]: 6:3, ''); {Виведення елемента матріці на екран}

writeln; {Виведення порожнє рядка з метою відділіті Виведення інформацію}

writeln;;;

writeln ('