Информат1_3_СР / DASHA1

Program G405lb6;

{Студентка Гребенюк Д.С., задание 112.}

Uses crt,printer;

Const fi='гривня';

n=5;

m=15;

Var P:array [1..m] of real;

KM:array [1..n,1..n] of real;

ro,a,x:real;

i,j:shortint;

k:integer;

dp:string[3];

Begin

clrscr;

writeln('Укажите устройство вывода :con или prn');

readln(dp);

if (dp='con') then assign (lst,'con');

if (dp='prn') then assign (lst,'prn');

rewrite(lst);

clrscr;

Writeln(' ': 22,'ФОРМИРОВАНИЕ ОДНОМЕРНОГО МАССИВА Р');

Writeln('Введите 15 элементов массива P');

For i:=1 To m Do

Read (P[i]);

Writeln(' ':22,'ФОРМИРОВАНИЕ ДВУМЕРНОГО МАССИВА КМ');

Writeln('Введите элементы матрицы КМ.');

For i:=1 To n Do begin

For j:=1 To n Do

Read(KM[i,j]);

Readln;

end;

Writeln('Введите значение переменных ro,a,x,k');

Write('ro=');readln(ro);

Write('a=');readln(a);

Write('x=');readln(x);

Write('k=');readln(k);

Writeln(lst,' ':30,'ВЫВОД РЕЗУЛЬТАТОВ');

Writeln(lst);

Writeln(lst,' ': 22,'СФОРМИРОВАННЫЙ ОДНОМЕРНЫЙ МАССИВ Р');

For i:=1 To m Do

Write (lst,P[i]:8:2);

Writeln(lst);

Writeln(lst,' ':22,' СФОРМИРОВАННЫЙ ДВУМЕРНЫЙ МАССИВ КМ');

For i:=1 To n Do begin

For j:=1 To n Do

Write(lst,KM[i,j]:6:2);

Writeln(lst);

end;

Writeln(lst,' ЗНАЧЕНИЯ ПЕРЕМЕННЫХ ro,a,x,k');

Writeln(lst,'ro=',ro:7:2);

Writeln(lst,'a=',a:7:2);

Writeln(lst,'x=',x:7:2);

Writeln(lst,'k=',k);

END.