Страница 1 из 1
двумерный массив на паскале (Pascal ABS)
Добавлено: 23 дек 2009, 21:55
Jay7
Помогите решить двумерный массив!
Задание: Записать на место отрицательный элементов матрицы нули и вывести ее на печать. ( D(K;K) K<=10 )
Re: двумерный массив на паскале (Pascal ABS)
Добавлено: 24 дек 2009, 09:26
Хыиуду
А подумать? Вся задача решается в пять строк.
Что именно непонятно? Как проверить число на отрицательность? Как вывести число на экран? Как присвоить переменной значение 0?
Re: двумерный массив на паскале (Pascal ABS)
Добавлено: 24 дек 2009, 11:39
BHy4ok
Код: Выделить всё
for i:=1 to k do
for j:=1 to k do
if d[i,j]<0 then d[i,j]:=0;
Re: двумерный массив на паскале (Pascal ABS)
Добавлено: 24 дек 2009, 13:55
Jay7
да да именно ето и не было понятно, пасиба! а если не трудно можете написать весь код программы?
Re: двумерный массив на паскале (Pascal ABS)
Добавлено: 24 дек 2009, 16:56
BHy4ok
Код: Выделить всё
uses
Crt;
var
d:array[0..50,0..50] of integer;
i,j,k:integer;
begin
ClrScr;
write('vvedite razmernost k*k: ');
readln(k);
randomize;
writeln;
writeln('ishodnaya matrica');
for i:=0 to k-1 do
begin
for j:=0 to k-1 do
begin
d[i,j]:=random(20)-5;
write(d[i,j]:4);
end;
writeln;
end;
writeln('polychennaya matrica');
for i:=0 to k-1 do
begin
for j:=0 to k-1 do
begin
if d[i,j]<0 then
d[i,j]:=0;
write(d[i,j]:4);
end;
writeln;
end;
readln;
end.
Re: двумерный массив на паскале (Pascal ABS)
Добавлено: 24 дек 2009, 18:50
Jay7
Благодарю!