Программирование и основы алгоритмизации 2

Министерство образования Российской Федерации

ЮЖНО-УРАЛЬСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра Автоматики и управления

Пояснительная записка к курсовому проекту

По дисциплине:

Программирование и основы алгоритмизации

Вариант № 1

Проверил:

доцент кафедры

Вставская Е.В.

“____”_____________2007г

Выполнил:

студент группы ПС-164

Лысенко Д.Г.

“____”_____________2007г

Челябинск

2007 г.

1. Постановка задачи. 3

2. Метод решения. 3

3. Текст программы.. 4

4. Схема алгоритма. 12

5. Вывод результата работы.. 14

6. Проверка правильности программы............................................ 14

Постановка задачи

Даны целые числа
a
,
b
и
n
. Вычислить.

Подключаем файл windowA.inc, в котором будут содержаться базовые структуры и константы Win32. Затем в процедуре start первоначально вызываем функции Win32 API, после чего происходит регистрация окна (определения класса окна и регистрация его в системе). Затем создаем и отображаем, собственно, само окно. Потом запускается цикл обработки сообщения, которые будут посылаться ОС программе и обрабатываться в отдельной процедуре WindowProc и затем собственно выход из программы.

В процедуре обработке сообщений, если нажата клавиша «Вычислить», то считывается значение из поля редактирования, преобразовывается в числовой формат, производятся нужные вычисления и выводится на экран

Текст программы

STYLBTNequ 40000000h + 10000000h

;WSCHILD+WS_VISIBLE

STYLEDT equ 40000000h + 10000000h + 800000h + 10000h

;Пример каркасного приложения для Win32

.486

locals

.model flat,STDCALL

include windowA.inc

includelib imp32i.lib

extrn GetModuleHandleA:PROC ;дескриптор класса окна

extrn LoadIconA:PROC ;дескриптор пиктограммы

extrn LoadCursorA:PROC ;дескриптор курсора

extrn GetStockObject:PROC ;дескриптор кисти

extrn RegisterClassExA:PROC ;регистрация класса окна

extrn CreateWindowExA:PROC ;создание экземпляра окна

extrn ShowWindow:PROC ;отображение окна

extrn UpdateWindow:PROC ;перерисовка окна

extrn GetMessageA:PROC ;получение сообщения

extrn TranslateMessage:PROC ;обнаружение сообщения

extrnDispatchMessageA:PROC ;передача сообщения

;оконной функции

extrnExitProcess:PROC ;завершение процедуры

extrnBeginPaint:PROC ;начало перерисовки

extrnEndPaint:PROC ;конец перерисовки

extrnTextOutA:PROC ;вывод текста

extrn PostQuitMessage:PROC

extrn DefWindowProcA:PROC ;обработчик по умолчанию

extrn MessageBoxA:PROC

extrn SendMessageA:PROC

extrn GetDC:PROC

extrn ReleaseDC:PROC

;оконной функции

public WindowProc

.data

hwnd dd 0 ; дескриптор экземпляра окна

hInst dd 0 ; дескриптор класса окна

hdc dd 0

;

hedt1 dd 0 ;дескриптор поля редактирования

hbtndd 0 ;дескриптор кнопки

hh1 dd 0

hh2 dd 0

hh3 dd 0

hh4 dd 0

hbtn1 dd 0

hbtn2 dd 0

CPBUT db '&Посчитать',0

CPBUT2 db 'В&ыход',0

CLSBTN db 'BUTTON',0

CPEDT db '',0

CLSEDT db 'EDIT',0

TEXT db ' '

TEXTA db ' '

TEXTB db 'результат: '

TEXTLEN = $-TEXT

ten dw 10

temp dw 0

a dd ?

bdd ?

ndd ?

wclWNDCLASSEX <?> ;структура для регистрации класса

; окна

messageMSG <?> ;структура для регистрации сообщений

szClassNamedb 'Приложение Win32',0

szTitleNamedb 'Курсач Лысенко Д. ПС-164',0

MesWindow db 'Введите a,b и n,'

MesWindowLen = $-MesWindow

ps PAINTSTRUCT <?>

.code

start proc near

;Получение дескриптора класса окна

push 0;

call GetModuleHandleA

mov hInst,eax

WinMain:

;для начала инициализируем поля структуры WndClassEx

mov wcl.cbSize,type WNDCLASSEX

mov wcl.style, CS_HREDRAW+CS_VREDRAW ;полная перерисовка

mov wcl.lpfnWndProc,offset WindowProc

mov wcl.cbClsExtra,0

mov wcl.cbWndExtra,0

mov eax,hInst

mov wcl.hInstance,eax

push IDI_APPLICATION ;стандартное приложение 32512

push 0

call LoadIconA

mov wcl.hIcon,eax

pushIDC_ARROW ;стандартный курсор стрелка 32512

push 0

call LoadCursorA

mov wcl.hCursor,eax

;определим цвет фона окна

pushLTGRAY_BRUSH ;1

call GetStockObject

mov eax,5

mov wcl.hbrBackground,eax

mov dword ptr wcl.lpszMenuName,0 ;без главного меню

mov dword ptr wcl.lpszClassName,offset szClassName

;имя класса окна

mov wcl.hIconSm,0

;регистрируем класс окна

pushoffsetwcl

call RegisterClassExA

;создаем окно:

push 0 ;lpParam

push hInst ;hInstance

push 0 ;menu

push 0 ;parent hwnd

push 200 ;высота окна

push 300 ;ширина окна

push 300 ;координата y л.в. угла окна

push 300 ;координата x л.в. угла

pushWS_OVERLAPPEDWINDOW ;стиль окна

pushoffsetszTitleName ;Строка заголовка окна

pushoffsetszClassName ;имя класса окна

push 0 ;дополнительные стили

callCreateWindowExA

movhwnd,eax ;hwnd - дескриптор окна

;показать окно:

push SW_SHOWNORMAL ;1

push hwnd

call ShowWindow