Лабораторная работа №12 «Ввод-вывод массивов»
Цель работы: ознакомление с н-мерными массивами, осваивание их ввода-вывода
Задание: разработать программу для демонстрации ввода-вывода n-мерного массива.
Текст программы:
PROGRAM lab12;
TYPE ms = ARRAY[1..8] OF real;
CONST mas:ms=(1.3375,2.5687,3.92,4.22,5.43,6.35,7.88,8.43);
var mr:ARRAY[1..4,1..5] OF integer;
i,j: integer;
f:TEXT;
begin
assign(f,'RES12.PAS');
rewrite(f);
writeln(' Laboratornaja rabota #12');
writeln(' Vvod-vivod massivov');
writeln;
writeln(f,' Laboratornaja rabota #12');
writeln(f,' Vvod-vivod massivov');
writeln(f);
for i := 1 to 4 do
for j := 1 to 5 do
begin
write(' mr[',i);
write('],[',j);
write(']: ');
readln(mr[i,j]);
write(f,' [',i);
write(f,'][',j);
write(f,']: ');
writeln(f,mr[i,j]);
end;
writeln;
writeln(f);
writeln(' Vvivod matrici:');
writeln(f,' Vvivod matrici:');
for i := 1 to 4 do
begin
writeln;
writeln(f);
for j := 1 to 5 do
begin
write(mr[i,j]:4);
write(f,mr[i,j]:4);
end;
end;
writeln;
writeln;
writeln(f);
writeln(f);
writeln(' Vivod massiva:');
writeln(f,' Vivod massiva:');
for i := 1 to 8 do
begin
write(' ',mas[i]:6:3);
write(f,' ',mas[i]:6:3);
end;
writeln(f);
writeln;
writeln(f);
writeln;
readln;
close(f);
end.
Результирующий файл:
Laboratornaja rabota #12
Vvod-vivod massivov
[1][1]: 21
[1][2]: 31
[1][3]: 31
[1][4]: 31
[1][5]: 31
[2][1]: 31
[2][2]: 31
[2][3]: 31
[2][4]: 31
[2][5]: 31
[3][1]: 42
[3][2]: 14
[3][3]: 41
[3][4]: 41
[3][5]: 41
[4][1]: 41
[4][2]: 41
[4][3]: 41
[4][4]: 41
[4][5]: 41
Vvivod matrici:
21 31 31 31 31
31 31 31 31 31
42 14 41 41 41
41 41 41 41 41
Vivod massiva:
1.338 2.569 3.920 4.220 5.430 6.350 7.880 8.430
Блок-схема :