Question

Написать программу (в Pascal) для нахождения значении функции Y = R * SIN (X) + 24 * P на промежутке [A, B] во всех целых числах. Считать : значение А из файла prom1.txt значение B из файла prom2.txt значение R из файла dan1.txt значение P из файла dan2.txt Результаты записать в файл В первых двух строках в файле записать какую функцию искали, и кто выполнил работу.

Answer 1

Ответ:

Дан во вложениях.

Answer 2

Конечно, вот пример программы на Pascal для выполнения указанных вами задач:

pascalCopy code
program CalculateFunction;

var
  fileA, fileB, fileR, fileP, outputFile: Text;
  A, B, R, P, X, Y: Real;

begin
  // Открытие файлов для чтения
  Assign(fileA, 'prom1.txt');
  Assign(fileB, 'prom2.txt');
  Assign(fileR, 'dan1.txt');
  Assign(fileP, 'dan2.txt');
  
  Reset(fileA);
  Reset(fileB);
  Reset(fileR);
  Reset(fileP);
  
  // Чтение значений из файлов
  ReadLn(fileA, A);
  ReadLn(fileB, B);
  ReadLn(fileR, R);
  ReadLn(fileP, P);
  
  // Закрытие файлов
  Close(fileA);
  Close(fileB);
  Close(fileR);
  Close(fileP);
  
  // Открытие файла для записи результатов
  Assign(outputFile, 'result.txt');
  Rewrite(outputFile);
  
  // Запись информации о функции и авторе
  WriteLn(outputFile, 'Функция: Y = R * SIN(X) + 24 * P');
  WriteLn(outputFile, 'Выполнил: Ваше_Имя_Или_Ник');
  
  // Вычисление и запись результатов
  WriteLn(outputFile, 'Результаты:');
  for X := Trunc(A) to Trunc(B) do
  begin
    Y := R * Sin(X) + 24 * P;
    WriteLn(outputFile, 'X = ', X:0:2, ', Y = ', Y:0:2);
  end;
  
  // Закрытие файла
  Close(outputFile);
end.

Примечания:

1. Замените 'prom1.txt', 'prom2.txt', 'dan1.txt' и 'dan2.txt' на пути к вашим файлам с соответствующими значениями A, B, R и P.
2. Замените 'result.txt' на путь к файлу, в который вы хотите записать результаты.
3. Замените 'Выполнил: Ваше_Имя_Или_Ник' на ваше имя или ник.
4. Программа работает с вещественными числами, но записывает результаты с округлением до двух знаков после запятой.

Пожалуйста, убедитесь, что у вас установлена среда Pascal для компиляции и запуска этой программы.