Создать файл и записать туда таблицы - Pascal

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

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

Ребятки, вот код ///////////////////////////////
program Quest1;
var a,x,y,xn,xs,xk:real;
begin
writeln('xn,xk,xs');
readln(xn,xk,xs);
writeln('       xn        y');
while xn<=xk do
begin
if xn<=1 then
y:=((a*xn)*(a*xn)*(a*xn)-1)/((a*xn)*(a*xn)+2) else begin
y:=(a*xn-1)*(a*xn-1);
end;
writeln(xn:10:1,y:10:1);
xn:=xn+xs;
end;
readln;
end.
/////////////////////// Нужно создать файл и записать туда таблицы. Как это сделать для нее?

Решение задачи: «Создать файл и записать туда таблицы»

textual
Листинг программы
program Quest1;
 
var
  a, x, y, xn, xs, xk: real;
  f: text;                               // текстовый файл
 
begin
  assign(f, 'c:\ta.txt');       // создаём файл с именем "ta", расположены на диске с (путь можно указывать любой, или вовсе не указывать для примера)
  rewrite(f);              // открываем этот файл для записи
  writeln('xn,xk,xs');
  readln(xn, xk, xs);
  writeln('       xn        y');
  writeln(f, '       xn        y');       // записываем это в файл
  while xn <= xk do
  begin
    if xn <= 1 then
      y := ((a * xn) * (a * xn) * (a * xn) - 1) / ((a * xn) * (a * xn) + 2) else begin
      y := (a * xn - 1) * (a * xn - 1);
    end;
    writeln(xn:10:1, y:10:1);
    writeln(f, xn:10:1, y:10:1);           // записываем  это тоже в файл
    xn := xn + xs;
  end;
  close(f);     // закрываем файл
end.

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

  1. Создаем переменные:
    • a - вещественного типа (для хранения числа с плавающей запятой)
    • x, y, xn, xs, xk - все также вещественного типа для хранения значений переменных в программе
  2. Создаем файл с именем ta на диске с:
    • f - текстовый файл, который мы будем использовать для записи результатов
  3. Открываем файл ta для записи
  4. Выводим на экран строку xn,xk,xs
  5. Считываем значения переменных xn, xk, xs с клавиатуры
  6. Выводим на экран строку xn y
    • Записываем строку xn y в файл
  7. В цикле выполняем следующие действия:
    • Если xn меньше или равно 1, то вычисляем y по формуле ((a xn)^3 - 1) / ((a xn)^2 + 2)
    • В противном случае вычисляем y по формуле (a * xn - 1)^2
    • Выводим на экран значения xn и y с заданным форматированием
    • Записываем значения xn и y в файл с заданным форматированием
    • Увеличиваем значение xn на xs
  8. Закрываем файл

Программа создает файл ta.txt, записывает в него результаты вычислений и закрывает файл.

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


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

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

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