Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program n1;
- uses crt;
- const m=30;n=20;
- type
- vector=array[1..m,1..n] of real;
- var
- a:vector;
- i,kol,r,r1,j,r2:integer;
- otv:char;
- begin
- textcolor(4);
- textbackground(11);
- clrscr;
- while true do
- begin
- //Ввод рамерности матрицы
- while true do
- begin
- writeln('Ввевдите размерность матрицы по строчкам ');
- readln(r1);
- if((r1>0) and (r1<=m) )then break;
- writeln('размерность вне диапазона');
- end;
- while true do
- begin
- writeln('введите размерность по столбцам ');
- readln(r2);
- if((r2>0) and (r2<=n)) then break;
- end;
- //Ввод элементов матрицы
- writeln('':15,'вывести элементы матрицы');
- for i:=1 to r1 do
- for j:=1 to r2 do
- begin
- write('a[',i,';',j,']=');
- read(a[i,j]);
- end;
- writeln();
- //Вывод элементов матрицы на печать
- writeln('':15,'исходная матрица ');
- for i:=1 to r1 do
- begin
- for j:=1 to r2 do
- writeln(i,'':10,j);
- end;
- //Диалог с пользователем
- readln();
- write('Продолжить работу?');
- readln(otv);
- if((otv='N') or (otv='Y')) then break
- end;
- writeln('программа сделана студентом 22П')
- end.
Add Comment
Please, Sign In to add comment