Лабораторная работа № 5
МАССИВЫ
Цель работы – изучение способов описания и особенностей работы одномерных и двумерных массивов, закрепление навыков в составлении простейших разветвляющихся и циклических программ.
Постановка задачи: выполнить два задания, по одному на каждый вид массива.
uses crt;
var z:array[1..16] of real;
x,y:real;
n,i:byte;
begin
clrscr;
y:=-5.5;
n:=0;
x:=-2.0;
while x<=1.0 do
begin
n:=n+1;
x:=x+0.2;
if x*x+y*y<1 then
z[n]:=x*y
else z[n]:=sqrt(abs(x*y));
end;
for i:=1 to n do
write(z[i]:5:2);
readln
end.
const m=3; n=4;
a:array[1..m,1..n] of real=
((4.8, 3.2, 9.1, 5),
(5.1, 6, 1.4, -1),
(4.3, 1.15, 2.8, 3.14));
var b,c:array[1..n*m] of real;
q,i,j,k:integer;
begin writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:8:2);
writeln;
end;
k:=0; q:=0;
for i:=1 to m do
begin
if odd(i) then
for j:=1 to n do
begin
inc(q);
b[q]:=a[i,j];
end;
for j:=1 to n do
if not odd(j) then
begin
inc(k);
c[k]:=a[i,j];
end;
end;
writeln('Массив С из элементов четных столбцов: ');
for i:=1 to k do
write(c[i]:8:2);
writeln;
writeln('Массив B из элементов нечетных строк: ');
for i:=1 to q do
write(b[i]:8:2);
readln;
end.
Выполнил студент группы 218к Мкртчян Роман