Вывести таблицу значений функции в файл

Posted by obzor under Delphi

В двумерном массиве размещены: в первой строке — значения аргумента X, во второй — соответствующие им значения функции sin(X). Вывести в файл элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции). Оформить в виде процедуры.

Arigato

const 
  n=10;

type
  TTable = array[1..n,1..2] of Single;

procedure CreateTable(var t: TTable);
var
  i: byte;
begin
  for i:=1 to n do begin
    t[ i,1]:=random*10;
    t[ i,2]:=sin(t[ i,1]);
  end;
end;

procedure WriteTable(const t: TTable);
var
  i: byte;
begin
  for i:=1 to n do begin
    writeln(t[ i,1]:8:2,t[ i,2]:8:2);
  end;
end;

var
  a: TTable;

begin
  randomize;
  assign(output,'1.txt');
  rewrite(output);
  CreateTable(a);
  WriteTable(a);
  close(output);
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)