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

Файл : информатика.doc (размер : 87,040 байт)

PAGE PAGE 2

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

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

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

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

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

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

Перевірив виконав студент

викладач кафедри 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( <1).Вычислить с точностью ( значение:

1+( a(a-1).k.(.(a-k+1) xk

10 CLS

20 INPUT "x...", x

30 INPUT "a...", a

40 INPUT "Eps...", Eps

50 sum = 0: k = 1: pred = 0: fact = 1

' pred - предыдущий член последовательности для каждого шага цикла

' нужен для учета точности. fact - факториал

60 mul = a

70 FOR i = 0 TO k: mul = mul * (a - i + 1): NEXT ' произведение в числителе

80 fact = fact * k ' факториал в знаменателе

90 cur = mul / fact * (x ^ k) ' текущий член последовательности

100 sum = sum + cur: k = k + 1

110 IF cur - pred > 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<=0) AND (3*y-x>= -1) THEN

90 GOTO 220

100 ELSE

110 GOTO 200

120 END IF

130 ELSE

140 IF (y+x<=0) AND (y-2*x<=3) AND (3*y-x