Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal] Текстовые файлы

Автор: ArmGirls 23.12.2008, 21:57

Задача:

Даны вещественные числа A,B и целое число N. Создать текстовой файл,содержащий таблицу значений функции f(x)=[sin(x)] yf ghjvt;enrt [A,B] c шагом (B-A)/N. Таблица состоит из 2-х столбцов: с аргументами x (10 позиций,из них 3 под дробную часть) и со значениями f(x) (15 позиций,из них 8 под дробную часть). Столбцы выравниваются по правому краю 10 пробелами.

Я написала прогу,но не в текстовом файле,помогите пожалуйста создать текстовый файл!

Вот,то,что у меня есть:

program zadacha;
var
f,x,A,B:real;
N:integer;
Begin
read(A,B,N);
h:=(B-A)/N;
x:=A;
while x<B do
Begin
f:=sin(x);
writeln (x:10:3,' ',f:15:8)
x:=x+h;
end;
end.

Автор: volvo877 24.12.2008, 01:33

Цитата(ArmGirls @ 23.12.2008, 20:57

)

Я написала прогу,но не в текстовом файле

В твоей программе есть синтаксические ошибки, кстати... А вот так выглядит программа, пишущая результаты в файл:

Код

program zadacha;
var
  f, x, A, B, h: real;
  N: integer;
  t: text;
begin
  read(A,B,N);
  assign(t, 'result.txt'); rewrite(t);

  h := (B-A)/N;
  x := A;
  while x < B do begin
    f := sin(x);
    writeln(t, x:10:3, '':10, f:15:8);
    x := x+h;
  end;
  close(t);
end.