Система программирования Delphi

Вид материала

Курсовая работа

Содержание Код программы

Подобный материал:

• Структура программы на языке Turbo Pascal, 26.15kb.
• Программа дисциплины "Технологии интерактивных систем" Направление, 46.72kb.
• Пояснительная записка, 185.11kb.
• Программы, кол-во часов, 46.73kb.
• Задачи курса: 1) Приобретение навыков работы в среде системы визуального программирования, 1668.59kb.
• Учебная программа курса «основы программирования в среде «Delphi» ( 9 класс, 86.93kb.
• Знакомство со средой программирования Delphi, 1286.99kb.
• Реферат з курсу, 57.9kb.
• Лекция №3. Состав и работа системы программирования Турбо Паскаль Язык программирования, 84.43kb.
• Эволюция языков программирования, 493.92kb.

УНИВЕРСИТЕТСКИЙ ЦЕНТР КОМПЬЮТЕРНОГО ОБУЧЕНИЯ «ТУРБО»


КУРСОВАЯ РАБОТА


«Система программирования Delphi»


Разработка задачи: «Математические вычисления»


Выполнил: Андреев С. А.

Группа: 2м1

Проверил: Муслимова И.Г.

Дата проверки:17.03.2008г.

Оценка:5


Майкоп, 2008 год

Содержание

Область применения	1
Формулировка задачи	1
Код программы	3

Область применения.

Данная программа может применяться водителями для вычисления

стоимости бензина в литрах.


Формулировка задачи.

В этой программе есть панель (Panel), на которой отображается цену бензина в литрах для водителей грузовых и легковых машин. SpinEdit1 отображает количество бензина в литрах, а SpinEdit2 отображает вид бензина и машины. Если вы покупаете бензин с выше 20 литров, то у вас есть скидка 10%.




Программа.

unit Unit1;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, ExtCtrls;


type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation

var a,c,b,d:real;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

begin

close

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

(Данный блок команд очищает все значения и условия)

SpinEdit1.Text:='0';

Spinedit2.Text:='0';

Label11.Caption:='0';

Label13.Caption:='0';

Label15.Caption:='0';

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

(Данный блок команд вычисляет стоимость бензина и

cкидка при 20 литрах и выше )

a:=strtoint(SpinEdit1.text);

b:=strtoint(label13.Caption);

if SpinEdit2.Value=1 then c:=a*25-b;

if SpinEdit2.Value=2 then c:=a*20-b;

if SpinEdit2.Value=3 then c:=a*18-b;

if SpinEdit2.Value=4 then c:=a*15-b;

if SpinEdit2.Value=5 then c:=a*13-b;

if SpinEdit2.Value=6 then c:=a*11-b;

if a>20 then b:=c*0.10;

D:=c-b;

Label11.Caption:=floattostr (c);

label13.Caption:=floattostr (b);

Label15.Caption:=floattostr (d);


end;


end.