1.2 Задача № 2 Создание консольного приложения
Цель работы - создать консольную программу.
Рисунок
2
Листинг программы:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
Var a: integer;
begin
Randomize;
WriteLn('Hello!');
A:=Random(10);
Writeln(A);
Readln
end.
1.3 Задача № 3 «Приветствие»
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы по щелчку мышью на кнопке «Приветствие» появляется
с
ообщение
«Первые успехи».
Листинг программы: type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject); Рисунок 3
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:='Первые и не последние!'
end; end.
1.4 Задача № 4 «Случайный выбор»
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы появляется надпись «Брось кубик».
2. По щелчку мышью на кнопке «Бросок кубика» появляется сообщение, выдающее числа-
очки в диапазоне 0 - 6.
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в
строке заголовка.
Л
истинг
программы:
var
Form1: TForm1;
Implementation
{$R *.dfm}
Function Kubic (Sides:Integer): Integer;
Begin
If Sides >= 1 then Рисунок 4
begin
Result := random (Sides) +1 ;
end
else
begin
Result :=0;
end;
End;
procedure TForm1.Button1Click(Sender: TObject);
var n: Integer;
begin
n := random (6) + 1 ;
Label1.Caption := IntToStr (n) ;
end; end.
1.5 Задача № 5 Изменение заголовка формы
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы ввести текст в текстовом поле.
2. По щелчку мышью на кнопке «Сменить заголовок окна» изменяется заголовок окна.
Листинг программы:
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private Рисунок 5
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := Edit1.Text;
end;
end.
1.5.1 Сопутствующая задача к задаче №5
Создать программу, выполняющую следующие действия:
1. После запуска программы отображаются: две строки для ввода текущих курсов для
евро и доллара; строка для ввода денежной суммы в рублях; две строки для вывода
эквивалента в евро, долларах.
Листинг программы:
procedure TForm1.Button1Click(Sender: TObject);
begin
EditSumE.Text := Format('%f', [StrToInt(EditSumR.Text) / StrToInt(EditE.Text)]);
EditSumD.Text := Format('%f', [StrToInt(EditSumR.Text) / StrToInt(EditD.Text)]);
end; end.
Рисунок 6