Составить программу

[Савита]

Составить программу, которая распечатывает заданное количество значений функции 2*sin(x)+cos(x) и соответствующее значение аргумента. Таблица со значениями располагается вертикально, значения функции и аргумента разделяются столбцом звездочек. Значения функции распечатываются с точностью 5 знаков после десятичной точки, значения аргумента - в свободном формате. Абcциcса табулируется на интервале [ 0 .. 2pi ] с шагом 2pi / (N-1), где N - это количество выводимых значений.
а вот решение другого варианта, но там таблица Горизонтально - слева направо и значения аргумента - С точностью 2 знака после десятичной точки.
Program Lab2;
Uses Crt;
Var i,kx,ky:Integer;
n:integer;
step:real;
x,y:Real;
Begin
ClrScr;
Write('Введите количество точек ');
Readln(n);
if(n<0)then begin
Writeln('Неправильное значение n. N должно быть >0');
End
Else
Begin
if ( n <> 1 ) Then step:=2*pi/(n-1);
x:=0;
ky:=2;
For i := 1 to n Do
Begin
if ( (i mod 7) = 1) Then
Begin
ky:=ky+2;
kx:=0;
gotoxy(1,ky); Write('x');
gotoxy(1,ky+1); Write('y');
End;
kx:=kx+1;
y:=sin(x)*exp(-x);
gotoxy(kx*10,ky);
Write(x:10:2);
gotoxy(kx*10,ky+1);
Write(y:10:5);
x:=x+step;
End;
End;
Readkey;
End.