Вычислительный процесс разветвляющейся и циклической структур в Турбо паскале

[ylasss]

Вычислительный процесс разветвляющейся и циклической структур
Функция Z={(asin((i^2+1)/n) cos (i+1/n))
Условие {(sin((i^2+1)/n)>0 cos (i+1/n))<0
Исходные данные a=0,3 n=10
Диапазон и шаг изменения аргумента i∈[1;10] ∆i=0,2

С этой вообще не че не понятно как делать(

помогите пожалуйста(

[VIK_aka_TOR]

в условии задания ничего не упущено?

[ylasss]

вот условие

[VIK_aka_TOR]

насколько я понимаю... z= (asin((i^2+1)/n) если (sin((i^2+1)/n)>0
и z= cos (i+1/n)) если cos (i+1/n))<0
если это так то тут ничего сложного)))

[ylasss]

не знаю как это забить в паскале(

объясните пожалуйста как надо в паскале полный ноль(

[Mad_Cat]

i:=1;di:=0.2;n:=10;a:=0.3;
while i<=10 do begin
if sin((i*i+1)/n)>0 then z:=a*sin((i*i+1)/n)
if cos(i+1/n)<10 then z:=cos(i+1/n)
i:=i+di;
end;

[ylasss]

чет не получается высвечивается ошибка 36 предполагается BEGIN(

[Stilet]

Правильно. Это только ядро программы.
Тебе нужно почитать методичку и перед присваиванием переменных описать их в разделе var и про begin не забыть
В конце программы end.

[ylasss]

var n, a: integer;
I, di: real;
begin
i:=1;
di:=0.2;
n:=10;
a:=0.3;
while i<=10 do begin
if sin((i*i+1)/n)>0 then z:=a*sin((i*i+1)/n)
if cos(i+1/n)<10 then z:=cos(i+1/n)
i:=i+di;
end.

Вот так сделала но не получается. не могу понять что должно быть var и begin и как же еще второй раз end писать?(((исправьте пожалуйста

[Mad_Cat]

var n, a: real;
I, di,z: real;
begin
i:=1;
di:=0.2;
n:=10;
a:=0.3;
while i<=10 do begin
if sin((i*i+1)/n)>0 then z:=a*sin((i*i+1)/n);
if cos(i+1/n)<10 then z:=cos(i+1/n);
i:=i+di;
end;
end.