Автор работы: Пользователь скрыл имя, 16 Января 2013 в 14:15, курсовая работа
Техническая эволюция персональных компьютеров и постоянно растущие требования пользователей привели к тому, что такие ОС как MS-DOS, OS/2 и подобные были вытеснены с рынка информационных технологий значительно более мощными системами с более удобным и дружелюбным интерфейсом, например Windows, программирование для которых существенно сложнее, чем программирование для MS-DOS
Введение 3
Задание 5
Основная часть 6
Delphi язык и среда программирования
Визуальное программирование
Выгоды от проектирования АРМ в среде Windows с помощью Delphi
Создание приложений для Windows
Аннотация 11
Блок-схема программы 13
Руководство пользователя 14
Заключение 15
Список использованной литературы 16
Приложение 1.Листинг программы 17
begin
Pole.Text:= FloatToStr(cos(StrToFloat(
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Pole.Text:= FloatToStr(tan(StrToFloat(
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Pole.Text:= FloatToStr(cotan(StrToFloat(
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
back: string;
begin
if Button7.Enabled then Button7.SetFocus;
if key='1' then pole.Text:= pole.Text+'1';
if key='2' then pole.Text:= pole.Text+'2';
if key='3' then pole.Text:= pole.Text+'3';
if key='4' then pole.Text:= pole.Text+'4';
if key='5' then pole.Text:= pole.Text+'5';
if key='6' then pole.Text:= pole.Text+'6';
if key='7' then pole.Text:= pole.Text+'7';
if key='8' then pole.Text:= pole.Text+'8';
if key='9' then pole.Text:= pole.Text+'9';
if key='0' then pole.Text:= pole.Text+'0';
if key='+' then pole.Text:= pole.Text+'+';
if key='-' then pole.Text:= pole.Text+'-';
if key='*' then pole.Text:= pole.Text+'*';
if key='/' then pole.Text:= pole.Text+'/';
back:=Pole.Text;
if key=#8 then delete(back,length(back),1);
pole.Text:=back;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.Top :=
Trunc(Form1.Top + Form1.Height/2 - Form2.Height/2);
Form2.Left :=
Trunc (Form1.Left + Form1.Width/2 - Form2.Width/2);
Form2.ShowModal;
end;
end.