Міністерство освіти і науки України

Черкаський Державний Технологічний Інститут

Кафедра інформатики

Факультет економіки і управління

Контрольна робота

З курсу інформатики і компютерної техніки

Перевірив виконав студентвикладач кафедри 1курс феу групи зу-112
Олійник Г.Т. Шкарбан С. В.

№ 10
Визначити час падіння каменя на поверхню землі з висоти h:

10 CLS
20 INPUT "Висота h"; h
30 t = SQR (h/9.81)
40 PRINT t < br> 50 END

№ 79

Обчислити: (1 + sin0, 1) (1 + sin0, 2) ... (1 + sin10)

10 CLS
20 m = 1
30 FOR k = .1 TO 10 STEP .1
40 m = m * (1 + SIN (k))
50 NEXT k
60 PRINT " m = "; m
70 END

№ 756
Дано дійсні числа x, a, (((> 0, (x (Eps GOTO 140
120 pred = cur
130 GOTO 60
140 PRINT sum
150 END

№ 215-у
Дано натуральне число m, дійсні числа a1, ... an, послідовністьa1, ... an. Визначити число сусідства двох чисел одного знака, причому модуль 1 --го числа має бути більше модуля 2-го числа.

10 CLS
20 INPUT "Введіть m. ..", m
30 DIM a (m)
40 FOR i = 1 TO m
50 PRINT "a ("; i; ")";: INPUT a (i)
60 NEXT i
70 FOR i = 1 TO m - 1
'Добуток двох чисел з однаковим знаком більше нуля
80 IF a (i) * a (i + 1)> 0 THEN IF ABS (a (i))> ABS (a (i + 1)) THEN k = k + 1
90 NEXT i
100 PRINT k

№ 339-р
Дано цілі числа а1 ... an, (в цій послідовності можуть бути повторюванічлени). Обчислити скільки чисел входить у послідовність по одному разу.

10 CLS
20 INPUT "Введіть n. ..", n
30 DIM a! (n)
40 FOR i = 1 TO n
50 PRINT "a ("; i; ")";: INPUT a! (I)
60 NEXT
70 nepovt = 0
80 FOR i = 1 TO n
90 found = 0
100 FOR j = 1 TO n
110 IF i j AND a! (j) = a! (i) GOTO 140
120 NEXT j
130 nepovt = nepovt + 1
140 NEXT i
150 PRINT "неповторним чисел:"; nepovt
160 END

№ 145-а
Послідовність x1, x2, ... утворено згідно із законом x1 = 0, x2 = 5/8

Xi = Xi-1/2 +3/4 * Xi-2, i = 3,4 ...

10 CLS
20 DIM x (20)
30 LPPRINT "Послідовність x (20)"
40 LPRINT
50 x (1) = 0: x (2) = 5/8
60 FOR I = 1 TO 20
70 x (i) = x (i-1)/2 +3/4 * x (i-2)
80 NEXT i
90 FOR i = 1TO 20
100 LPPRINT USING "###.######": x (i):
110 IF i MOD 5 = 0 THEN LPPRINT
120 NEXT i
130 LPRINT
140 END

Завдання N 145A Послідовність х (20)
0.000000 0.625000 0.312500 0.625000 0.546875
0.742118 0.781250 0.947266 1.059570 1.240234
1.414795 1.637573 1.879883 2.168121 2.493973
2.873077 3.307018 3.808317 4.384422 5.048449

№ 59-і
Дано дійсні числа x, y. Визначити чи належить точка зкоординатами (x, y) заштріхованной частині площини.

10 CLS
20 LPRINT
30 LPRINT "Завдання № 59i"
40 LPRINT
50 INPUT "введіть x, y =: x, y
60 LPRINT
70 IF x> = 0 THEN
80 IF (y = -1) THEN
90 GOTO 220
100 ELSE
110 GOTO 200
120 END IF
130 ELSE
140 IF (y + x