/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/12_Files/File1.pas
35 строк
779 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Типизированные файлы // Запись в файл 10 чисел, при следующем запуске - чтение этих чисел и удаление файла const filename = 'a.dat'; var f: file of integer; begin if not FileExists(filename) then begin assign(f,filename); rewrite(f); writeln('Запись в файл ',filename); for var i:=1 to 10 do begin var x := random(100); write(x,' '); write(f,x); end; close(f); end else begin assign(f,filename); reset(f); writeln('Чтение из файла ',filename); for var i:=1 to 10 do begin var x: integer; read(f,x); write(x,' '); end; close(f); erase(f); end; end.