Question

Работа с файлами. Взять из файла “1.txt” целое число и поместить в файл “11.txt” значение этого числа в степени 5. помогите пж очень надо напишите код программы на паскале ​

Answer 1

Вот код для данной задачи, но если файлов "1.txt" и "11.txt" не существует или файлы и программа находятся не в одной папке, то программа выведет ошибку.

program na;

var a: Text; c:string; b:real;

begin

assign(a,'C:1.txt');

reset(a);

read(a,c);

close(a);

assign(a,'C:11.txt');

rewrite(a);

b:=StrToInt(c)**5;

write(a,b);

close(a)

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который читает целое число из файла "1.txt", возводит его в степень 5 и записывает результат в файл "11.txt":

pascalCopy code
program FileManipulation;

var
  inputFile, outputFile: TextFile;
  inputNumber, result: Integer;

begin
  // Открываем файл для чтения
  AssignFile(inputFile, '1.txt');
  Reset(inputFile);

  // Читаем целое число из файла
  Read(inputFile, inputNumber);

  // Закрываем файл после чтения
  CloseFile(inputFile);

  // Возводим число в степень 5
  result := inputNumber * inputNumber * inputNumber * inputNumber * inputNumber;

  // Открываем файл для записи
  AssignFile(outputFile, '11.txt');
  Rewrite(outputFile);

  // Записываем результат в файл
  Write(outputFile, result);

  // Закрываем файл после записи
  CloseFile(outputFile);
end.

Пожалуйста, убедитесь, что файлы "1.txt" и "11.txt" находятся в той же директории, где находится исполняемый файл программы.