Список використаних джерел

1.Джефф Дантеманн «Программирование в среде Delphi», К., 1995. -

608с.

2.Джон Матчо, Девід Фолкнер «Delphi», М., 1995. – 464с.

3.Рей Конопка «Создание оригинальных компонент в среде Delphi», К.,

1996. – 512с.

4.Том Сван «Основы программирования в Delphi для», К., 1996. – 480с.

5.Иллюстрировонный самоучитель по Delphi 7 для начинающих.

6. Сайти інтернету:

www. Polep Builder. sbn. dz

http: // delphix. biz/

http: // delphi 4 all. narod. Ru/

http: // www. Delphi sources.

www. prizrak. ws

http:// delphi land. net

http:// programmersforum. ru

Додаток 1

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

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, ComCtrls;

 

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

Label1: TLabel;

RadioGroup1: TRadioGroup;

Image1: TImage;

Label2: TLabel;

RadioGroup2: TRadioGroup;

Image2: TImage;

Label3: TLabel;

RadioGroup3: TRadioGroup;

Image3: TImage;

Label4: TLabel;

RadioGroup4: TRadioGroup;

Image4: TImage;

Label5: TLabel;

RadioGroup5: TRadioGroup;

Image5: TImage;

Label6: TLabel;

RadioGroup6: TRadioGroup;

Image6: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

Ball: integer;

implementation

Uses

Unit2;

{$R *.dfm}

 

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

Ball:=0;

if RadioGroup1.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup1.ItemIndex=3

then Ball:=Ball+1;

 

if RadioGroup2.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup2.ItemIndex=0

then Ball:=Ball+1;

 

if RadioGroup3.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup3.ItemIndex=1

then Ball:=Ball+1;

 

if RadioGroup4.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup4.ItemIndex=3

then Ball:=Ball+1;

if RadioGroup5.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup5.ItemIndex=0

then Ball:=Ball+1;

 

if RadioGroup6.ItemIndex=-1

then ShowMessage ('Потрібно вибрати відповідь')else

if RadioGroup6.ItemIndex=1

then Ball:=Ball+1;

 

ShowMessage ('Ваш результат'+IntToStr(Ball));

end;

end.

 

unit Unit2;

 

interface

 

uses

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

Dialogs, ExtCtrls, StdCtrls;

 

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

Image2: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

{$R *.dfm}

end.

Додаток 2

 

README

Контролююча програма програма Тест «Пори року».

Автор програми:

Марчук Сергій Вікторович – Йосипівська ЗОШ І – ІІ ступенів, учень 8 класу, с.Йосипівка, Малинського району, Житомирської області.

Комплект поставки:

Тест пори року.exe – сама програма,

Тест пори року.PAS – її текст,

readme – те, що ви читаєте.

Вхід в програму:

На значку Тест пори року.exe виконати подвійний щиглик.

Всі необхідні інструкції по роботі з програмою розміщені в довідці.

Файл Довідка

Мiнiмальнi вимоги:

- PS DOS, DR DOS версiї 3.30 або старше,

- EGA/(S)VGA монiтор,

- близько 6400 Kb пам'ятi,

- процесор i8086/88 або вище.

Опис:

Контролююча програма «Тест «Пори року» створена для перевірки знань молодших школярів про пори року. Вже з молодшого шкільного віку потрібно налаштовувати дітей до проведення тестування на комп’ютері, адже сучасні тенденції реформування освіти спонукають до використання сучасних засобів вимірювання результатів навчання.