помогите оч надо

[2Fast4U]

rem ATC-112 lab.rab 2

Input "a,b";a,b

for i=0 to 8

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

Print using "f=-##.###";f

next i

end

Input "a,b";a,b

for i=0 to 8

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

Else f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

Print using "f=-##.###";f

end

Input "a,b";a,b

for i=0 to 8

If abs(a*b)>=1

Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

Else

f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

end if

Print using "f=-##.###";f

end

 

 

Turbo basic

что неправильно ?

[flessy]

не программил никогда на турбо бэйсике, но

 

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

можно просто юзнуть else

 

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

Print using "f=-##.###";f

next i

end

вместо end закончить условие end if

[Гость dramadeur]

я бы помог, но удалил турбо бейсик

[Гость dramadeur]

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

Print using "f=-##.###";f

 

--

не хватает элса

 

 

 

 

end if

Print using "f=-##.###";f

end

----

 

ваще ниочем.

 

 

 

 

 

 

я по аналогии с паскалем пытался помочь. на турбо бейсике не програмил О_О

 

 

[SFH]

йа ф шоке :vip:

[2Fast4U]

пытаюсь втыкнуть но пьян, завтра надо сдать эту хуйню и еще 3  чтоб получить допуск к экзамену

[Magot]

Бейсик....

Я писал на паскале, на делфи немного, и на сишке основы знаю, так вот

for i=0 to 8

If abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)

В паскале и сишке если написать так, то выполнится только первый if, второй будет не в цикле а просто в теле функции.

[Гость dramadeur]

^

прав.

как раз это я и хотел сказать.

 

там с els'ами надо помудрить

[2Fast4U]

вставляю else пишет что надо еще next ;/

 

[Magot]

Ты хоть напиши что сделать надо.

[flessy]

при расчете второй и третьей функции не хватает оператора next для зацикливания

[top1]

попробуй

f abs(a*b)>=1 Then f=((a*i)^2+3*(b*i-a)^2)/Sqr((3*a*i-2)^2+4*b^2)

If abs(a*b)<1 Then f=((a*i-b)^2-(a*b)^i)/(2*i+a*b)