Товарищи, напишите мне пожалуйста программу в которой я магу задавать размерность матрицы и вывеси ее на экран, буду признательна...
Freedom
3.06.2010 15:15
Цитата
Товарищи, напишите мне пожалуйста программу в которой я магу задавать размерность матрицы и вывеси ее на экран, буду признательна...
Немного не ясен вопрос, Вы задаёте размер матрицы и нужно заполнить её случайными числами? Или вы сами заполняете её?
Oksana18
3.06.2010 15:17
напишите и для случайных чисел и для ручново ввода чисел
Freedom
3.06.2010 15:30
Случайное заполнение
var a:array [1..100,1..100] of integer; i,j,m,n:integer; begin writeln('Razmer matrici m*n'); writeln('Vvedite m'); readln(m); writeln('Vvedite n'); readln(n); randomize; for i:=1 to m do for j:=1 to n do a[i,j]:=random(10); for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end; readln; end.
Ручное
var a:array [1..100,1..100] of integer; i,j,m,n:integer; begin writeln('Razmer matrici m*n'); writeln('Vvedite m'); readln(m); writeln('Vvedite n'); readln(n); writeln('VVedite elementi matrici'); for i:=1 to m do for j:=1 to n do readln(a[i,j]); writeln('__________________________________________'); for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end; readln; end.
Oksana18
3.06.2010 15:56
спасибо большое Freedom =** а когда я ввожу в элементы массива дробные числа он ошибку выдает
Freedom
3.06.2010 16:12
var a:array [1..100,1..100] of real; i,j,m,n:integer; begin writeln('Razmer matrici m*n'); writeln('Vvedite m'); readln(m); writeln('Vvedite n'); readln(n); randomize; writeln('VVedite elementi matrici'); for i:=1 to m do for j:=1 to n do readln(a[i,j]); writeln('__________________________________________'); for i:=1 to m do begin for j:=1 to n do write(a[i,j] : 2 : 5,' '); writeln; end; readln; end.
Вот с дробными.
Lapp
3.06.2010 23:35
Цитата(Freedom @ 3.06.2010 17:12)
Вот с дробными.
"Чего тебе надобно, старче?.." (С) Freedom, ты хоть пару операторов не дописывай, что ли.. Не отбирай у людей эту бесценную возможность: подумать.. ))
Freedom
4.06.2010 9:58
Цитата(Lapp @ 4.06.2010 0:35)
"Чего тебе надобно, старче?.." (С) Freedom, ты хоть пару операторов не дописывай, что ли.. Не отбирай у людей эту бесценную возможность: подумать.. ))
Хорошо.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.