.
.
: .
:
* : Intel Pentium 500
* : 256
* : 10-20
* : VGA
. . .
, , .
.
.
1) . . .: , 2001.
2) , . Delphi 7. . . - .: -, 2002.-480.
3) . . . ..:., 2009.
4) .. Delphi 7. . .: , 2004.
5) . ..: 2007.
1:
( )
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.StdCtrls,
Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Buttons;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ScrollBox1: TScrollBox;
Image1: TImage;
RadioGroup1: TRadioGroup;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Image2: TImage;
Image3: TImage;
Label3: TLabel;
RadioGroup2: TRadioGroup;
Image4: TImage;
RadioGroup3: TRadioGroup;
Image5: TImage;
Image6: TImage;
RadioGroup4: TRadioGroup;
Image7: TImage;
RadioGroup5: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ball:integer;
type answers=array[1..5,0..3] of byte;
const otv:answers=((1,0,0,0),(0,0,1,0),(0,1,0,0),(0,0,1,0),(0,1,0,0));
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.ItemIndex]+
otv[2,radiogroup2.ItemIndex]+
otv[3,radiogroup3.ItemIndex]+
otv[4,radiogroup4.ItemIndex]+
otv[5,radiogroup5.ItemIndex];
label1.Caption:=' '+IntToStr(ball)+' 5- ';
if ball=5
then label2.Caption:=' '
|
|
else
if (ball=3) or (ball=4)
then label2.caption:=' '
else label2.caption:=' '
end;
end.
| 202011.106.081 | |||||||||||
| ||||||||||||
| . |
| ||||||||||
| . | 1:1 | ||||||||||
. | ||||||||||||
. | ||||||||||||
.. | 35 | 35 | ||||||||||
. |
|
| ||||||||||
.. | ||||||||||||
. | ||||||||||||
2: