Qbasic - значение функции

[Little_Sun]

помогите,пожалуйста, написать пару программ..не могу никак сделать..%-) вообще не резбираюсь в этом Qbasic(((
1.Вычислить и напечатать y=x-SQR(x),для х=2,6,18,54,...(всего 7 значений)
2.Вычислить и напечатать y=x^2-15*(COS(x)),для х=15,19,23,27,31,...(всего 13 значений)
спасибо.

[airyashov]

Код: Выделить всё

x=2
for i=1 to 7
print x-sqr(x)
x=x*3
next i

Код: Выделить всё

for x=15 to 63 step 4
print x*x-15*cos(x)
next x