Question

Написать программу в паскаль абс создающий файл и записывающий в него 5 целых чисел

Answer 1

Ответ:

program z1;

var

f:text;

i,a:integer;

begin

assign (f,'D:\file.txt');

rewrite (f);

for i:=1 to 5 do

begin

a:=random (10);

writeln (f, a);

end;

close (f);

end.

Answer 2

Конечно, вот пример программы на Pascal, которая создает файл и записывает в него 5 целых чисел:

pascalCopy code
program WriteToFile;

var
  numbersFile: Text;
  i, number: Integer;

begin
  // Открываем файл для записи
  Assign(numbersFile, 'numbers.txt');
  Rewrite(numbersFile);

  // Записываем 5 целых чисел в файл
  for i := 1 to 5 do
  begin
    WriteLn('Введите число ', i, ': ');
    ReadLn(number);
    WriteLn(numbersFile, number);
  end;

  // Закрываем файл
  Close(numbersFile);

  WriteLn('Числа записаны в файл.');

  ReadLn;
end.

Эта программа создаст файл с именем "numbers.txt" в том же каталоге, где находится исполняемый файл программы. Затем она будет запрашивать у пользователя ввод 5 целых чисел и записывать их по одному в каждой строке файла.

После записи всех чисел программа закрывает файл и выводит сообщение "Числа записаны в файл." на экране.