Урок "Розробка діалогових програм"

7 клас урок №021

«Розробка діалогових програм».

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Середовище виконання: Lazarus

Рівень 1 (4-6 балів)

1. Створіть папку Діалог_Прізвище_Клас.
2. Відкрийте середовище Lazarus та створіть продемонстровану форму

Рівень 2 (7-9 балів)

3. Програмний код виглядатиме так:

unit dialoge;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var r:integer;

begin

    r:=strtoint(edit1.text);

    case r of

       1..20:showmessage('Життя ще попереду!');

      21..60:showmessage('Живи повноцінно!');

      61..100:showmessage('Радійте кожному новому дню!');

      end;

end;

end.

4. Скомпілюйте програму та збережіть в свою папку.