- Вывод одномерного массива
...
begin
...
write (' Исходный массив ');
for i:=1 to n do
write (a[ i ],' ');
...
...
write (' Исходный массив ');
for i:=1 to n do
write (a[ i ],' ');
...
- Вывод двумерного (матрицы) массива.
...
begin
...
write (' Исходная матрица ');
for i:=1 to m do {перебор строк}
begin
for j:=1 to n do
write (a[ i , j ],' '); {вывод элементов в столбцах}
writeln; {функция writeln во внешнем цикле осуществляет переход на новую строку}
end;
...
...
write (' Исходная матрица ');
for i:=1 to m do {перебор строк}
begin
for j:=1 to n do
write (a[ i , j ],' '); {вывод элементов в столбцах}
writeln; {функция writeln во внешнем цикле осуществляет переход на новую строку}
end;
...
- Считывание данных из файла в ячейки массива и вывод на экран (двоичный типизированный/ нетипизированный, текстовый).
var a : file of integer; i: integer;
mas:array[1..10] of integer;
begin
assign(a,' file.bin ');
reset(a); {открытие файла для чтения}
for i:=1 to 15 do {считываем очередное значение элемента файла в ячейку массива и выводим его на экран}
begin
read(a, mas[ i ]);
write(mas[ i ],' ');{вывод на экран}
end;
close(a); {обязательно закрываем файл после работы с ним}
end.
<<Назад | 1 | 2 |
