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

UptoLike

ВУЗ: 

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

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

Рубрика: 

110
2) С помощью типизированных констант
const
a1 : array [1..6] of integer = (–5,8,5,0,7,–8);
a2 : array [1..3] of char = ('a','b','c');
3) C помощью датчика случайных чисел
for i:=1 to 10 do
begin a[i]:=random (20);
write(a[i]:5);
end;
B этом случае значениями элементов массива a[i] будут произ-
вольные значения от 0 до 19. Для того чтобы получились дробные числа,
нужно в функции random опустить параметр.
4) Из файла
var
a:array [1..10] 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( f,a[i]); {чтение из файла}
write (a[i],' ');
end;
close(f);
end.
7.1.2. Вывод элементов одномерного массива
1) Вывод элементов массива в таблицу на экране
write('Массив');
writeln('––––––––––––––––––');
writeln('N | значение |');
for i:=1 to 10 do
writeln(i,'|',a[i]:9,' |');
2) Вывод в файл

Страницы