"Delphi ортасында қарапайым бағдарламалар құру" зертханалық жұмыстар

Зертханалық жұмыс№ 1

«Менің алғашқы жобам»

Жұмыстың мақсаты - келесі әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама жүктелгеннен кейін келесідей терезе пайда болады.

1. Бағдарламадан шығу үшін «Жабу» батырмасын басу.

Бағдарламаны құру жоспары

1. Жаңа жоба ашу.

2. Формада келесі компоненттерді орналастыру: Label меткасы және Button батырмасы.

3. Келесі әрекеттерді орындау:

Кесте 1.

1. Жобаны сақтап, жүктеңіз және тестілеңіз.

Зертханалық жұмыс № 2

Консольдық қосымшаны құру

Жұмыстың мақсаты – консольдық бағдарлама құру.

1. Негізгі мәзірден File New Other (Файл Жаңа Басқа) командасын орындап, New терезесінде Console Application белгішесін таңдау.

1. ОК батырмасын басқаннан кейін экран келесідей түрге ие болады:

1. Мәтін Delphi-мен автоматты түрді генерацияланды. Ол құрылатын бағдарламаның шаблонын береді. Оған өзгерістер енгіземі.

1. Код терезесіне бағдарламаны енгізіңіз.

1. Run командасын орындау. Нәтижесін алу.

Зертханалық жұмыс№ 3

«Сәлемдесу»

Жұмыстың мақсаты - келесі әрекеттерді орындайтын бағдарлама құру:

1. «Сәлемдесу» батырмасын басқаннан кейін «Алғашқы нәтижелер» хабарламасы шығуы керек.

2. Бағдарламадан шығу үшін «Жабу» батырмасын басу керек.

Бағдарламаны құру жоспары

1. Жаңа жоба ашу.

2. Формада келесі компоненттерді орналастыру: Label меткасы және екі Button батырмасы.

3. Келесі әрекеттерді орындау:

Кесте 2.

1. Жобаны сақтап, жүктеңіз және тестілеңіз.

Өз бетімен орындауға арналған тапсырма

1. Сделать шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.

Подсказка. В Object Inspector дважды щелкнуть справа от названия свойства Font.

2. Заменить вид кнопки «Выход» на более привлекательный.

Подсказка. Для замены кнопки удалить существующую, а другую BitBtn найти в палитре компонентов на вкладке Additional. Затем изменить ее вид с помощью свойства Kind.

3. Сделать так, чтобы после нажатия кнопки «Приветствие» на экране появлялось сообщение «Первые и не последние!».

Подсказка. Изменить значение свойства Caption метки Labell при реакции кнопки Buttonl на событие OnClick.

Листинг программы

unit Unitl;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type

TForral = class(TForm)

Labell: TLabel;

Buttonl: TButton;

BitBtnl: TBitBtn;

procedure ButtonlClick(Sender: TObject);

private

{Private declarations }

public

{Public declarations }

end;

var

Forml: TFonnl;

implementation

{$R *.DFM)

procedure TForml.ButtonlClick(Sender: TObject);

begin

Label1.Caption:='Первые и не последние!';

end;

end.

Зертханалық жұмыс№ 4

«Кез келген таңдау»

Жұмыстың мақсаты - келесі әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама жүктелгеннен кейін келесідей жазба пайда болады: «Кубикті лақтырыңыз».

1. «Кубикті лақтыру» батырмасын басқаннан кейін 0-6 сандарының бірін көрсететін хабарлама шығады.

2. Бағдарламадан шығу үшін терезенің жабу (Х) батырмасын басу керек.

Бағдарламаны құру жоспары

1. Жаңа жоба ашу.

2. Формада келесі компоненттерді орналастыру: метка Label және батырма Button.

3. Келесі әрекеттерді орындау:

Кесте 3.

1. Жобаны сақтап, жүктеңіз және тестілеңіз.

Бағдарлама бөлігі

procedure TForml.ButtonlClick(Sender: TObject);

var n: Integer;

begin

n := random (6) + 1 ;

Label1.Caption := IntToStr (n) ;

end;

end.

1. Қырының сандық мәнін көрсететін функция құру.

Function Kubic (Sides:Integer): Integer;

Begin

If Sides = 1 then

begin

Result := random (Sides) +1 ;

end

else

begin

Result :=0;

end;

End;

Зертханалық жұмыс№ 5

Форма тақырыбын тексеру

Жұмыстың мақсаты - келесі әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама жүктелгеннен кейін мәтіндік өріске мәтін жазу.

1. «Терезенің тақырыбын өзгерту» батырмасын басқан кезде терезе тақырыбы өзгеру керек.

1. Мәтіндік өріске жаңа тақырыпты енгізу.

2. Enter пернесін басқаннан кейін жаңа тақырыпты енгізу

3. Бағдарламадан шығу үшін терезенің тақырып бөлігіндегі жабу батырмасын басу

Бағдарламаны құру жоспары

1. Жаңа жоба ашу.

2. Формада келесі компоненттерді орналастыру: метка Label, батырма Button, мәтіндік өріс Edit.

3. Келесі әрекеттерді орындау:

Кесте 4.

1. Жобаны сақтап, жүктеңіз және тестілеңіз.

Өз бетімен орындауға арналған тапсырма

Келесі әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама жүктелгеннен кейін евро мен доллардың ағымдағы курсын енгізетін өрістер; ақша құнын теңгемен енгізетін өріс, теңгені долларға, евроға айналдыратын өріс.

1. Доллар мен евроның ағымдағы курсын енгізу.

2. Ақша құнын теңгемен енгізу.

3. «Эквивалентті есептеу» батырмасын басқан кезде теңге долларға және евроға айналуы тиіс.

4. Бағдарламадан шығу терезенің жабу (Х) батырмасын басу.