Написать программу создания типизированного файла целых чисел - Pascal
Формулировка задачи:
Необходимо написать программу создания типизированного файла с целыми числами. Количество чисел 100. Числа генерируются случайным образом в интервале от -100 до +100.
Ребят, плз, помогите с написанием) Заранее спасибо
Решение задачи: «Написать программу создания типизированного файла целых чисел»
textual
Листинг программы
var i, t: Integer; f: file of Integer; begin Randomize; Assign(f,'data.dat'); Rewrite(f); for i:=1 to 100 do begin t:=-100+Random(201); Write(f,t); end; Close(f); end.
Объяснение кода листинга программы
- Объявление переменных:
iиtкак целочисленные переменныеfкак переменная для открытия файла целых чисел
- Инициализация генератора случайных чисел:
- Вызов процедуры Randomize для инициализации генератора случайных чисел
- Открытие файла:
- Присваивание переменной
fфайлаdata.datдля записи - Создание файлового потока для целых чисел
- Присваивание переменной
- Заполнение файла случайными числами:
- Цикл от 1 до 100
- Генерация случайного числа от -100 до 100 с помощью Random и присвоение его переменной
t - Запись значения
tв файловый потокf
- Закрытие файла:
- Закрытие файлового потока
fЭтот код создает типизированный файлdata.datи заполняет его 100 случайными целыми числами от -100 до 100.
- Закрытие файлового потока