Информатика Задачи по программированию.

Задачи с решениями на языке программирования Microsoft Quick Basic

2006-2007 год

Успенка

Задание: 1

Составить программу нахождения суммы четных чисел начиная с 1 до А.

Решение:

10  CLS

20  S=O

30  INPUT “последняя цифра А=”; A

40  FOR  I=2 TO A STEP 2

50  S=S+I

60  NEXT   I

70  PRINT  S; “сумма четных чисел”

80  END

Задание: 2

Составить программу вычисления и печати функции y=√sinx+k , для х от 10 до -10 с шагом -0,5.

Решение:

10  REM “вычисление функции”

20  INPUT    K

30  FOR X=10 TO -10 STEP -0.5

40  Y=SQR(SIN(X)+K)

50  PRINT “Y=”; Y

60  NEXT   X

70  END

Задание: 3

Составить программу вычисления произведения ряда чисел 5,10,15,20.

Решение:

10   REM “произведение”

20   P=1

30   FOR X=5 TO 20 STEP 5

40   P=P*X

50   NEXT    X

60   PRINT ”P=”; P

70   END

Задача:  4

Составить программу вычисления и печати кубов чисел ряда от 1 до 15. N=1,2,3,4,…15.

Решение:

10   N=1

20   S=0

30   K=N^3

40   S=S+K

50   N=N+1

60   IF N<=15 THEN 30

70   GOTO 90

80   PRINT  ”S=”; S

90   END

Задача:   5

Дана последовательность символов. Заменить все буквы А на В.

Решение:

10   INPUT A$

20   B=LEN(A$)

30   FOR  I=1   TO   B

40   С$=MID$(A$,I,1)

50   IF C$=”A”   THEN   C$=”6”

60   PRINT   C$

70   NEXT    I

80   END

Задача:  6

Символьная строка. Сколько раз в этой последовательности встречается “A”?

Решение:

10   INPUT    A$

20   B=LEN(A$)

30   FOR   I=1    TO   B

40   С$=MID$(A$,I,1)

50   IF C$=”A”   THEN   K=K+1

60   NEXT   I

70   PRINT   K

80   END

Задание:  7

Перевернуть текст наоборот.

Решение:

10   INPUT A$

20   B=LEN(A$)

30   FOR I=B TO 1 STEP -1

40   С$=MID$(A$,I,1)

50   D$=D$+C$

60   NEXT    I

70   PRINT   D$  

80   END

Задание:   8

Составить программу вычисления суммы окладов 5 рабочих.

Решение:

10   DIM A(5)

20   FOR I=1 TO 5

30   INPUT A(I)

35   PRINT “A(”,I;”)=”;A(I)

40   S=S+A(I)

50   NEXT    I

60   PRINT   S

70   END