Question

СРОЧНО, ПОМОГИТЕ!!! МНОГО БАЛЛОВ!!!

1. Составить программу на языке программирования QBASIC для нахождения длины окружности L (значение радиуса R ввести с клавиатуры), полученный ответ вывести на экран.

2.  Составить программу на языке программирования QBASIC для нахождения значения функции

Y={ X^2+5, если X>=1

     {1/ (2X^2+4), если X<1

Значение аргумента Х ввести с клавиатуры.

3. Составить программу на языке программирования QBASIC для нахождения произведения чётных чисел из диапозона от 3 до 17.

С ПОДРОБНЫМ РЕШЕНИЕМ!!! ЗАРАНЕЕ СПАСИБО!!!!

Answer 1

INPUT rad
len = 2*3.14*rad
PRINT len

 

 

INPUT x
IF x > 1 THEN
y = x*x+5
ELSE
y = 1/(2*x*x+4)
END IF
PRINT y

 

R=1
FOR I = 4 TO 16 STEP 2
R=R*I
NEXT I
PRINT R