Создать файл и записать туда таблицы - 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.
Объяснение кода листинга программы
- Создаем переменные:
a
- вещественного типа (для хранения числа с плавающей запятой)x, y, xn, xs, xk
- все также вещественного типа для хранения значений переменных в программе
- Создаем файл с именем
ta
на дискес
:f
- текстовый файл, который мы будем использовать для записи результатов
- Открываем файл
ta
для записи - Выводим на экран строку
xn,xk,xs
- Считываем значения переменных
xn, xk, xs
с клавиатуры - Выводим на экран строку
xn y
- Записываем строку
xn y
в файл
- Записываем строку
- В цикле выполняем следующие действия:
- Если
xn
меньше или равно 1, то вычисляемy
по формуле ((a xn)^3 - 1) / ((a xn)^2 + 2) - В противном случае вычисляем
y
по формуле (a * xn - 1)^2 - Выводим на экран значения
xn
иy
с заданным форматированием - Записываем значения
xn
иy
в файл с заданным форматированием - Увеличиваем значение
xn
наxs
- Если
- Закрываем файл
Программа создает файл ta.txt
, записывает в него результаты вычислений и закрывает файл.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д