СРОЧНО, ПОМОГИТЕ!!! МНОГО БАЛЛОВ!!! 1. Составить программу ** языке программирования...

0 голосов
47 просмотров

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

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

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

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

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

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

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

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


Информатика (163 баллов) | 47 просмотров
Дан 1 ответ
0 голосов

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

(5.6k баллов)