МІНІСТЕРСТВО ОСВІТИ І НАУКИ РОСІЙСЬКОЇ ФЕДЕРАЦІЇ
Державна освітня заклад вищої професійної освіти
«Санкт-Петербурзький державний електротехнічний університет
«ЛЕТІ» імені В. І. Ульянова (Леніна) »(СПбГЕТУ)
Курсова робота
З дисципліни інформатика
тема: Створення програми в Borland Delphi, тест Амтхауера
Виконала:
Козарез Н.А.
1. Текст програми
: Project1;, in Unit1.pas {Form1}, in Unit2.pas {Form2}, in Unit3.pas {Form3};
{$ R * .res} .Initialize; .CreateForm (TForm1, Form1) ;. CreateForm (TForm2, Form2) ;. CreateForm (TForm3, Form3) ;. Run;.: Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TButton ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TBevel ;: TLabel; Button1Click ( Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject) ;. Hide; .Show ;; TForm1.FormCreate (Sender: TObject) ;. Position:=poDeskTopCenter ;;.: Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TTimer ;: TButton ;: TLabel ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton;:TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TLabel ;: TLabel;:TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TBevel ;: TLabel ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TBevel ;: TRadioButton ;: TRadioButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click ( Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click (Sender: TObject); Button12Click (Sender: TObject); Button13Click (Sender: TObject); Button14Click (Sender: TObject); Button15Click (Sender:TObject); Button16Click (Sender: TObject); Button17Click (Sender: TObject); Button18Click (Sender: TObject); Button19Click (Sender: TObject); Button20Click (Sender: TObject); Button21Click (Sender: TObject); Button22Click (Sender: TObject); Button23Click (Sender: TObject); Button24Click (Sender: TObject); Button25Click (Sender: TObject); Button26Click (Sender: TObject); Button27Click (Sender: TObject); Button28Click (Sender: TObject); Button29Click (Sender: TObject ); Button30Click (Sender: TObject); Button31Click (Sender: TObject); Button32Click (Sender: TObject); Button33Click (Sender: TObject); Button34Click (Sender: TObject); Button35Click (Sender: TObject); Button36Click (Sender: TObject) ; Button37Click (Sender: TObject); Button38Click (Sender: TObject); Button39Click (Sender: TObject); Button40Click (Sender: TObject); Button41Click (Sender: TObject); Button42Click (Sender: TObject); Button43Click (Sender: TObject); Button44Click (Sender: TObject); Button45Click (Sender: TObject); Button46Click (Sender: TObject); Button47Click (Sender: TObject); Button48Click (Sender: TObject); Button49Click (Sender: TObject); Button50Click (Sender: TObject); Button51Click (Sender: TObject); Button52Click (Sender: TObject); Button53Click (Sender: TObject); Button54Click (Sender: TObject); Button55Click (Sender: TObject); Button56Click (Sender: TObject); Button57Click (Sender: TObject); Button58Click ( Sender: TObject); Button59Click (Sender: TObject); Button60Click (Sender: TObject); FormShow (Sender: TObject); Timer1Timer (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2 ;, ocen, num, sec, sec1, min: integer; Unit1, Unit3;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Коментар - це ... raquo ;;
RadioButton1.Caption:= закон raquo ;;. Caption:= лекція raquo ;...
