Создание программы "Калькулятор" с основными функциями

Управление образования администрации г. Владимира

Муниципальное общеобразовательное учреждение для детей

Городской межшкольный учебный комбинат №2

ВЫПУСКНАЯ КФАЛИФИКАЦИОННАЯ РАБОТА

ПО СПЕЦИАЛЬНОСТИ: «ОПЕРАТОР ЭВМ»

ТЕМА: Калькулятор.

Выполнил:  Ученик 11 А класса

Средней школы № 20

Учитель:      Воронова Татьяна Николаевна

г. Владимир, 2011

Содержание

1. Инструкция                                                                                          4 стр.
2. Блок схема                                                                                          5 стр.
3. Программа                                                                                           6-13 стр.
4. Используемая литература                                                                   14 стр.

Инструкция

В начале работы появляется заставка. При нажатии любой клавиши на экране появится меню, состоящее из следующих пунктов:

Запуск программы

Инструкция

О программе

Выход

Передвижение по меню осуществляется с помощью клавиши навигации «вниз» и клавиши «Enter».

При выборе пункта меню «Запуск программы», автоматически запускается программа калькулятор.

При выборе пункта меню «Инструкция» на экране появляется подробная инструкция о работе с программой калькулятор.

Выбрав пункт «О программе» пользователь получит информацию о версии программы, дате ее создания, о составителе программы.

Для выхода в систему необходимо выбрать пункт «Выход».

Блок-схема

 

Да

                                                                                                                  Да

	Нет
	Нет
				Да

 

Да

Нет

Нет

                                                                                                                 

Программа

DECLARE SUB calk3 ()

SHELL "keyrus.com"

SCREEN 7

l = 0

COLOR 12, 7

x = -200

DO WHILE INKEY$ = ""

x = x + 1

y = 20 + 10 * SIN(x / 10)

col = col + .05

IF col = 7 THEN col = 1

LINE (x, y)-(x + 10, y + 50), col, BF

CIRCLE (x + 10, y), 30, col, 4.71, 0

CIRCLE (x + 10, y), 20, col, 4.71, 0

CIRCLE (x + 10, y + 50), 30, col, 0, 1.57

CIRCLE (x + 10, y + 50), 20, col, 0, 1.57

LINE (x + 40, y + 50)-(x + 30, y + 50), col

LINE (x + 40, y)-(x + 30, y), col

PAINT (x + 35, y + 1), col, col

PAINT (x + 35, y + 49), col, col

CIRCLE (x + 70, y + 50), 50, col, 0, 3.14, 5 / 2

CIRCLE (x + 70, y + 50), 40, col, 0, 3.14, 5

LINE (x + 50, y + 50)-(x + 62, y + 50), col

LINE (x + 78, y + 50)-(x + 90, y + 50), col

LINE (x + 60, y + 30)-(x + 80, y + 40), col, BF

PAINT (x + 70, y + 5), col, col

LINE (x + 100, y + 50)-(x + 110, y), col, BF

LINE (x + 110, y + 40)-(x + 140, y + 50), col, BF

LINE (x + 150, y)-(x + 150 + 10, y + 50), col, BF

CIRCLE (x + 150 + 10, y), 30, col, 4.71, 0

CIRCLE (x + 150 + 10, y), 20, col, 4.71, 0

CIRCLE (x + 150 + 10, y + 50), 30, col, 0, 1.57

CIRCLE (x + 150 + 10, y + 50), 20, col, 0, 1.57

LINE (x + 150 + 40, y + 50)-(x + 30 + 150, y + 50), col

LINE (x + 150 + 40, y)-(x + 150 + 30, y), col

PAINT (x + 35 + 150, y + 1), col, col

PAINT (x + 35 + 150, y + 49), col, col

FOR t = 1 TO 100000

NEXT t

SWAP l, col

LINE (x, y)-(x + 10, y + 50), col, BF

CIRCLE (x + 10, y), 30, col, 4.71, 0

CIRCLE (x + 10, y), 20, col, 4.71, 0

CIRCLE (x + 10, y + 50), 30, col, 0, 1.57

CIRCLE (x + 10, y + 50), 20, col, 0, 1.57

LINE (x + 40, y + 50)-(x + 30, y + 50), col

LINE (x + 40, y)-(x + 30, y), col

PAINT (x + 35, y + 1), col, col

PAINT (x + 35, y + 49), col, col

CIRCLE (x + 70, y + 50), 50, col, 0, 3.14, 5 / 2

CIRCLE (x + 70, y + 50), 40, col, 0, 3.14, 5

LINE (x + 50, y + 50)-(x + 62, y + 50), col

LINE (x + 78, y + 50)-(x + 90, y + 50), col

LINE (x + 60, y + 30)-(x + 80, y + 40), col, BF

PAINT (x + 70, y + 5), col, col

LINE (x + 100, y + 50)-(x + 110, y), col, BF

LINE (x + 110, y + 40)-(x + 140, y + 50), col, BF

LINE (x + 150, y)-(x + 150 + 10, y + 50), col, BF

CIRCLE (x + 150 + 10, y), 30, col, 4.71, 0

CIRCLE (x + 150 + 10, y), 20, col, 4.71, 0

CIRCLE (x + 150 + 10, y + 50), 30, col, 0, 1.57

CIRCLE (x + 150 + 10, y + 50), 20, col, 0, 1.57

LINE (x + 150 + 40, y + 50)-(x + 30 + 150, y + 50), col

LINE (x + 150 + 40, y)-(x + 150 + 30, y), col

PAINT (x + 35 + 150, y + 1), col, col

PAINT (x + 35 + 150, y + 49), col, col

SWAP l, col

LOOP

100 CLS

x = 50

y = 10

LINE (x, y)-(x + 10, y + 50), col, BF

CIRCLE (x + 10, y), 30, col, 4.71, 0

CIRCLE (x + 10, y), 20, col, 4.71, 0

CIRCLE (x + 10, y + 50), 30, col, 0, 1.57

CIRCLE (x + 10, y + 50), 20, col, 0, 1.57

LINE (x + 40, y + 50)-(x + 30, y + 50), col

LINE (x + 40, y)-(x + 30, y), col

PAINT (x + 35, y + 1), col, col

PAINT (x + 35, y + 49), col, col

CIRCLE (x + 70, y + 50), 50, col, 0, 3.14, 5 / 2

CIRCLE (x + 70, y + 50), 40, col, 0, 3.14, 5

LINE (x + 50, y + 50)-(x + 62, y + 50), col

LINE (x + 78, y + 50)-(x + 90, y + 50), col

LINE (x + 60, y + 30)-(x + 80, y + 40), col, BF

PAINT (x + 70, y + 5), col, col

LINE (x + 100, y + 50)-(x + 110, y), col, BF

LINE (x + 110, y + 40)-(x + 140, y + 50), col, BF

LINE (x + 150, y)-(x + 150 + 10, y + 50), col, BF

CIRCLE (x + 150 + 10, y), 30, col, 4.71, 0

CIRCLE (x + 150 + 10, y), 20, col, 4.71, 0

CIRCLE (x + 150 + 10, y + 50), 30, col, 0, 1.57