Написать программу, которая открывает файл 1.000.000 раз - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Напишите програму которая открывает файл 1.000.000 раз плюс должен быть там путь к файлу!

Решение задачи: «Написать программу, которая открывает файл 1.000.000 раз»

textual
Листинг программы 
program wtf;
 
var
  i: integer;
  f: text;
 
begin
  assign(f, 'C:\f.txt');
  for i := 1 to 1000000 do
  begin
    reset(f);
    close(f);
  end;
end.

Объяснение кода листинга программы

Программа открывает файл f.txt 1 000 000 раз.

  1. Строка program wtf; - объявление программы
  2. Строка var - объявление переменных
  3. i: integer; - объявление переменной типа integer
  4. f: text; - объявление переменной типа text
  5. begin assign(f, 'C:\f.txt'); - назначение пути к файлу для переменной f
  6. for i := 1 to 1000000 do begin reset(f); - открытие файла close(f); - закрытие файла end; end.` - закрытие программы

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы