создать программу в турбо паскаль

[karatishka]

создать последовательность a(i) по следующей формуле:
a(i)=71*sin(8i*ln(i))+60
и сохранить ее в файл, округлив до сотых. Определить, сколько раз в последовательности меняется знак (в последовательности 1, -34, 8, 14, -5 знак меняется три раза). Для решения задачи использовать циклы с параметром и предусловием.

[Stilet]

Супер.
Последовательность можно создать так:

for i:=Low(a) to High(a) do a[i]:=71*sin(8i*ln(i))+60;

Запись в файл так:

var f:Text;
...
assignfile(f,'file'); rewrite(f);
... writeln(f,a[i]);
close(f);
...

Округление... Ну допустим так: writeln(f,a[i]:10:2);
Насчет смены знака...
Так:

for i:=Low(a)+1 to High(a) do if (a[i]*a[i-1])<0 then Увеличиваем счетчик смены знака;

Счетик смены знака это переменка типа integer;

Вродь ниче не упустил...

[Arigato]

assignfile в Турбо Паскале не было.

[Stilet]

А-а-а. Ну да. Assign() вместо нее.
И наверное for i:=<Начальный индекс массива> to Length(a)-1