Інформатика й комп " ютерна техніка

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

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

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

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

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

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

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

10 CLS 20 INPUT «Висота h »; h 30 t = SQR (h / 9.81) 40 PRINT t 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 і = 1 TO m 50 PRINT «a («; і; «) »;: INPUT a (i) 60 NEXT і 70 FOR і = 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 і 100 PRINT k.

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

10 CLS 20 INPUT «Запровадьте n… », n 30 DIM a! (n) 40 FOR і = 1 TO n 50 PRINT «a («; і; «) »;: INPUT a!(i) 60 NEXT 70 nepovt = 0 80 FOR і = 1 TO n 90 found = 0 100 FOR j = 1 TO n 110 IF і j AND a! (j) = a!(i) GOTO 140 120 NEXT j 130 nepovt = nepovt + 1 140 NEXT і 150 PRINT «Неповторяющихся чисел: »; nepovt 160 END.

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

Xi=Xi-½+¾*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+¾*x (i-2) 80 NEXT і 90 FOR і =1TO 20 100 LPPRINT USING «###.######»: x (i): 110 IF і MOD 5=0 THEN LPPRINT 120 NEXT і 130 LPRINT 140 END.

Завдання N 145A Послідовність x (20) 0.0 0.625 000 0.312 500 0.625 000 0.546 875 0.742 118 0.781 250 0.947 266 1.59 570 1.240 234 1.414 795 1.637 573 1.879 883 2.168 121 2.493 973 2.873 077 3.307 018 3.808 317 4.384 422 5.48 449.

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

[pic].

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.