 |
Ввод и вывод массивов
|
|
|
|
Ввод и вывод массивов осуществляется поэлементно. Часто это делают с помощью циклов (обычно используется цикл FOR)
Пример: Ввести с клавиатуры значения элементов одномерного массива вещественного типа состоящего из 10 элементов. Вывести элементы массива на экран.
Решение:
program PR9;
var
A: array[1..10] of integer;
k: integer;
begin
for k:=1 to 10 do
readln (A[k]);
for k:=1 to 10 do
writeln (A[k]);
end.
Двумерные массивы (матрицы) можно вводить по строкам или по столбцам.
Пример: Пусть требуется ввести массив А (3;4):
а 
а 
а 
а 
а 
а 
а 
а 
а 
а 
а 
а 
Решение:
а) ввод и вывод по строкам:
program PR10;
var
a:array [1.. 3, 1.. 4] of integer;
i; j:integer;
begin
for i:=1 то 3
for j:=1 то 4
readln (a[i, j]);
for i:=1 то 3
for j:=1 то 4
writeln (a[i, j]);
end.
б) ввод по столбцам:
begin
for i:=1 то 4
for j:=1 то 3
readln (а[j, i]); {изменен порядок индексов}
Операции с массивами
Операции с массивом производятся только с отдельными элементами массива. С элементами массива можно делать все операции, которые разрешены для базового типа массива. Если массив числовой, то математические, если символьный или строковый, то, соответственно, операции с символьными или строковыми переменными.
Пример: Написать программу вычисления произведения положительных элементов одномерного массива целых чисел.
Решение:
program Pr11;
var
a: array [1..100] of integer;
p, n, i: integer;
begin
p: =1;
writeln ('введите размер массива n<=100');
readln (n);
writeln ('ввод элементов массива');
for i:=1 to n do
begin
writeln(‘ввести a[ ‘, i, ‘]= ‘]);
readln (a[i]);
end;
for i:=1 to n do
if a[i]>0 then p:= p * a[ i ];
writeln ('Произведение =', p);
readln;
end.
Двумерные массивы
Пример: Написать программу вычисления произведения положительных элементов второй строки двумерного массива целых чисел.
Решение:
program Pr12;
var
a:array [1.. 10, 1.. 10] of integer;
p, i, j, n, m: integer;
|
|
|
begin
writeln(‘ Введите n<=10, m<=10 ’);
readln (n,m);
writeln(‘ Введите элементы массива по строкам ’);
for i:=1 to n do
for j:=1 to m do
readln(a[i, j]);
p:=1;
for j:=1 to m do
if a[2, j]>0 then p:= p * a[2, j];
writeln(‘ Произведение элементов p=’, p);
readln;
end.
Контрольные вопросы
1. Оператор цикла с параметрами. Правила записи.
2. Оператор цикла с предусловием. Правила записи.
3. Оператор цикла с постусловием. Правила записи.
4. Описание одномерного массива.
5. Описание двумерного массива.
6. Ввод и вывод элементов одномерного массива.
7. Ввод и вывод элементов двумерного массива.
|
|
|
B) оказание помощи в выводе акций инвестируемых предприятий на фондовый рынок
II. ВЫВОДЫ И ТЕОРЕТИЧЕСКИЕ СООБРАЖЕНИЯ
Rect.Square(); // вычисление и вывод на экран площади прямоугольника,
Аналоговый ввод-вывод (Аналоговый компаратор)
Архитектура ввода-вывода
Более того они сыграли КЛЮЧЕВУЮ РОЛЬ в выводе преобразований Лоренца.
Буферизация ввода-вывода.
Ввод и вывод в GUI –приложениях
Ввод с клавиатуры и вывод на экран
