Помогите в написании программы на QBasic

[KPACHODAP]

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[Лариса]

радость моя..а не склеил случайно два задания?

вот тебе вычисление прогрессии

cls 
input "vvedite  1 chislo";a1
Sum=0
input "vvedite raznost' ";d
a=a1
for i= 1 to 80
 Sum=Sum+a
 a=a+d
next i
print "Sum=";Sum

 

[lobzik]

a1=10; d=3 с этим понятно. А это что?

F(x) = {
sin x , x>=9
(x^2)/(x-9) , x<9

Если х меньше девяти то F(x)=(x^2)/(x-9) , если больше, то F(x)=sin(x), так?

 

[Лариса]

Что касательно второго задания, видимо, там проверка знаний условного оператора (в колледжах и школах такое дают)

cls
input x
If x>=9 then F=SIN(x) else F=(x^2)/(x-9)

но , это если не пользоваться DEF Fn
т.е. процедурой-функцией.

вроде, синтаксис не перепутала, хотя склеивается с VB и pascal

 

[KPACHODAP]

Народ простите, я реально лохонулся, тут 2 задания было, простите реально.

1. Составьте программу вычисления суммы 80 первых членов арифметической прогрессии, если a1=10; d=3.

2. Система

F(X) = {
sin X , X>=9
(X^2)/(X-9) , X<9

Х^2 - х в степени 2
X>=9 - х больше либо равно девяти

Чтобы можно было вводить значение Х а после она вычисляла системы F(X)

В сем спасибо. Кто Лариса напиши куда тебе переслать в личку!

Добавлено через 4 минуты

Что касательно второго задания, видимо, там проверка знаний условного оператора (в колледжах и школах такое дают)

cls
input x
If x>=9 then F=SIN(x) else F=(x^2)/(x-9)

но , это если не пользоваться DEF Fn
т.е. процедурой-функцией.

вроде, синтаксис не перепутала, хотя склеивается с VB и pascal

А можно так написать?

cls
input "vvedite x";x
If x>=9 then F=SIN(x) else F=(x^2)/(x-9)

 

[Лариса]

А можно так написать?

можно, конечно. только тебе же что-то с этой F дальше делать нужно

 

[KPACHODAP]

Решить! то бишь когда я ввожу Х чтобы вычисляло значение F(X), решало систему неравенств!