Обработка двумерного массива

@Вичка · Регистрация: 07.12.2013

Author24 — интернет-сервис помощи студентам

Составить программу обработки двухмерного массива,оформив ввод/вывод и обработки элементов массива в виде подпрограмм.Заменить все отрицательные элементы массива K(n,m) на их квадраты,положительные на корень из данного числа

@Pan017 · 22.12.2013, 03:06

Pascal

type  mas=array[1..500,1..500] of real;
var
n,m:integer;
a:mas;
 
procedure vvod(var a:mas);
var i,j:integer;
begin
writeln('n= ');
readln(n);
writeln('m= ');
readln(m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
end;
 
procedure vivod(var a:mas);
var  i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:0:3,' ');
writeln;
end;
end;
 
procedure zamena(var a:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>0 then a[i,j]:=sqrt(a[i,j]);
if a[i,j]<0 then a[i,j]:=sqr(a[i,j]);
end;
end;
begin
vvod(a);
vivod(a);
zamena(a);
vivod(a)
end.

@Вичка 0 / 0 / 0 Регистрация: 07.12.2013 Сообщений: 5
		1
	Обработка двумерного массива 21.12.2013, 17:01. Показов 1050. Ответов 1 Метки нет (Все метки) Составить программу обработки двухмерного массива,оформив ввод/вывод и обработки элементов массива в виде подпрограмм.Заменить все отрицательные элементы массива K(n,m) на их квадраты,положительные на корень из данного числа 0

	22.12.2013, 03:06

Обработка двумерного массива

Решение