Проверьте правильность

[Аленушка]

Составить программу расчета значений функции f (x) на интервале изменения х, равном [a. b] в n равноотстоящих точках.Вычисленные значения функции сохранить в массиве c. А также найти количество положительных значений функции f(x) среди вычисленных. f(x)=e в степени 1,5x *cos (Пх) П- число пи.
Решила так - проверьте, пожалуйста.
Programm 1
var
kol, i,n,y: integer
a,b,dx,x:real
c:array [1...100] of real
begin
writeln ('Ввести n');
read (n);
writeln ('Ввести a,b');
read (a,b);
dx:=(b-a)/(n-1);
x:=a; i:=1;
while i<=n do
begin
c[i]:=exp(x*1.5)*cos(П*x);
writeln (x,c[i]);
i:=i+1;x:=x+d;
end;
kol:=0;
for i:=1 to n do
it (y>0) then kol:=kol+1;
writeln ('kol=',kol);
end.

[BarracudaSSAT]

Вот исправил тебе ошибочки
program fx;
uses crt;
var
kol, i,n,y: integer;
a,b,dx,x:real;
c:array [1..100] of real;
begin
clrscr;
writeln ('Ввести n');
read (n);
writeln ('Ввести a,b');
read (a,b);
dx:=(b-a)/(n-1);
x:=a; i:=1;
while i<=n do
begin
c[i]:=exp(x*1.5)*cos(pi*x);
writeln (x:6:3, ' ',c[i]:6:3);
i:=i+1;x:=x+dx;
end;
kol:=0;
for i:=1 to n do
if (c[i]>0) then kol:=kol+1;
writeln ('kol=',kol);
readkey
end.

[Аленушка]

Огромное мерси!!!

[BarracudaSSAT]

вместо Programm 1 написал program fx;
uses crt;
c[i]:=exp(x*1.5)*cos(П*x); вместо П - pi...
Аленушка, мне не понятно было это: i:=i+1;x:=x+d;
как понятно по коду, это наверное dx)).. i:=i+1;x:=x+dx;
и это it (y>0) then kol:=kol+1; - if (c[i]>0) then kol:=kol+1;
вроде всё, Аленушка, на этом... прога работает))

[BarracudaSSAT]

Сообщение от Аленушка

Огромное мерси!!!

если что обращайся

[Аленушка]

не очень поняла вот этот момент writeln (x:6:3, ' ',c[i]:6:3) -может объяснишь!

[Манжосов Денис :)]

:6 - это отступ от края экрана.
:3 - колчичество цифр в дробной части.