Автор работы: Пользователь скрыл имя, 08 Апреля 2013 в 20:05, контрольная работа
История вычислительной техники началась с попыток автоматизировать расчетные операции с помощью механических приспособлений. Полагают, что первыми «вычислительными» машинами были русские счеты (XVI—XVII вв.) и суммирующая машина французского ученого Блеза Паскаля (XVII в.). В XIX веке усилиями ученых разных' стран (П.Л.Чебышева в России, Ч.Беббиджа в Англии и других) были созданы механические арифмометры и первые машины с программным управлением. Интересно, что первым программистом мира стала графиня Ада Лавлейс, дочь поэта Дж.Байрона (в честь которой назван знаменитый язык программирования Ada).
Задание 1 3 с.
Задание 2 5 с.
Задание 3 6 с.
Задание 4 7 с.
Задание 5 8 с.
Задание 6 10 с.
Задание 7 10 с.
Задание 8 11 с.
Задание 9 12 с.
Задание 10 13 с.
Список литературы 15 с.
CLS
INPUT "text="; a$
n = LEN(a$)
k = 0
FOR i = 1 TO n
IF MID$(a$, i, 1) = "," THEN k = k + 1
NEXT i
PRINT "k="; k
CLS
INPUT "text="; a$
n = LEN(a$)
k = 0
FOR i = 1 TO n
IF MID$(a$, i, 1) = " " THEN k = k + 1
NEXT i
PRINT "%="; 100 * k / n; "%"
CLS
INPUT "text="; a$
n = LEN(a$)
k1 = 0
k2 = 0
FOR i = 1 TO n
IF MID$(a$, i, 1) = "x" THEN k1 = k1 + 1
IF MID$(a$, i, 1) = "y" THEN k2 = k2 + 1
NEXT i
PRINT "x+y="; k1 + k2
СLS
INPUT "text="; a$
n = LEN(a$)
b$ = ""
FOR i = 1 TO n
c$ = MID$(a$, i, 1)
c2$ = c$ + c$
b$ = b$ + c2$
NEXT i
PRINT "b="; b$
CLS
INPUT "text="; a$
n = LEN(a$)
b$ = ""
FOR i = 1 TO n
c$ = MID$(a$, i, 1)
IF c$ = "b" THEN c$ = "ky"
b$ = b$ + c$
NEXT i
PRINT "b="; b$
Список литературы