Алгоритмы и программы. Афанасьева Т. В - 111 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

111
var
a:array [1..5] of integer;
i:byte;
c:integer;
f: file of integer;{объявление типизированного файла целых чисел}
begin
assign (f,'mkurs.dat');{связывание файловой переменной с именем файла}
reset (f);{открытие файла для чтения}
writeln ('Введите массив ');
for i:=1 to 5 do
begin
read(a[i]);
write ( f,a[i]);{запись в файл}
end;
close (f);{закрытие файла}
end.
7.1.3. Основные алгоритмы работы с одномерными массивами
1) Присваивание массива
Одномерные массивы могут присваивать свое значение целиком, а
не только поэлементно, если их типы эквивалентны
:
var
a,b:array[1..7]of real;
i:byte;
begin
write(''Ввод массива'');
for i:=1 to 7 do
read(a[i]);
b:=a;
for i:=1 to 7 do
write(b[i]);
end.
Рассмотрим присваивание одномерных массивов, которые являются
элементами двумерного массива:
type
a:array[1..2]of real;
var
b:array[1..3]of a; { двумерный массив }
i,j:byte;c:a;

Страницы