Question

используя вещественные величины из заданного файла как аргументы функции y=cosx, получить в новом файле эти аргументы и соответствующие им значения в виде двух столбцов. написать в паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  // чтобы не создавать файл вручную
  WriteAllText('MyData.txt',SeqRandom(ReadInteger('n='),-999,999)
      .Select(t->(0.01*t).ToString).JoinIntoString);
  // собственно задание
  // если нужно упорядочить аргументы, после ToReals добавьте
  // .OrderBy(t->t)
  foreach var x in ReadAlltext('MyData.txt').ToReals do
    Writeln(x:5:2,Cos(x):20:15)
end.

Пример
n= 15
 2.58  -0.846408041215776
 7.88  -0.026015430579441
-0.73   0.745174402344870
-8.46  -0.569599389383433
-2.77  -0.931750235288572
-8.81  -0.816901534192113
-2.95  -0.981702202998454
-4.71  -0.002388978112282
 3.94  -0.697848325003564
-7.89  -0.036010578623415
 1.45   0.120502769367367
 5.34   0.587212716720073
 9.17  -0.967719280210989
 7.85   0.003981623454080
-1.24   0.324796284438776