Программирование с использованием переключателей. Отладка программы

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ПЕРЕКЛЮЧАТЕЛЕЙ. ОТЛАДКА ПРОГРАММЫ

отчет по

лабораторной работе № 2

по дисциплине

ПРОГРАММИРОВАНИЕ

ВАРИАНТ 2

Выполнил:                                                

Проверил:                                                

ЦЕЛЬ И ЗАДАЧА РАБОТЫ

Научиться пользоваться простейшими компонентами организации переключений (TСheckBox, TRadioGroup). Написать и отладить программу разветвляющегося алгоритма.

ЗАДАНИЕ НА РАБОТУ

Var k:1..9; Вывести значение переменной k римскими цифрами.

СХЕМА АЛГОРИТМА

На рисунке 1.1 представлена схема алгоритма для вывода значения переменной k римскими цифрами.

[pic 1]

Рисунок 1.1 – Схема алгоритма для вывода значения переменной k римскими цифрами

ТЕКСТ ПРОГРАММЫ

Ниже представлен текст программы в среде Delphi для вывода значения k римскими цифрами.

unit lab2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    LabelInput: TLabel;

    EditInput: TEdit;

    Calculate: TCheckBox;

    LabelOutput: TLabel;

    Clear: TButton;

    Label3: TLabel;

    RadGrColor: TRadioGroup;

    ButClose: TButton;

    procedure FormCreate(Sender: TObject);

    procedure CalculateClick(Sender: TObject);

    procedure ClearClick(Sender: TObject);  

    procedure ButCloseClick(Sender: TObject);

    procedure RadGrColorClick(Sender: TObject);                  

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  x:1..9;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

      EditInput.Clear;

end;

procedure TForm1.CalculateClick(Sender: TObject);

begin

if Calculate.Checked then

begin

  if EditInput.Text = '' then

     ShowMessage('Ничего не введено, повторите ввод')

     else    

     if (StrToint(EditInput.Text)<1)or(StrToint(EditInput.Text)>9) then

     ShowMessage('Введите число из диапазона от 1 до 9')

     else

 x:=StrToint(EditInput.Text);

  case x of

  1: LabelOutput.Caption:= 'K: I';

  2: LabelOutput.Caption:= 'K: II';

  3: LabelOutput.Caption:= 'K: III';

  4: LabelOutput.Caption:= 'K: IV';

  5: LabelOutput.Caption:= 'K: V';

  6: LabelOutput.Caption:= 'K: VI';

  7: LabelOutput.Caption:= 'K: VII';

  8: LabelOutput.Caption:= 'K: VIII';

  9: LabelOutput.Caption:= 'K: IX';

     end;

   end

   else  begin

   EditInput.Clear;

          end;

 end;

procedure TForm1.ClearClick(Sender: TObject);

begin

  EditInput.Text:='';

  LabelOutput.Caption:='';

end;

procedure TForm1.ButCloseClick(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.RadGrColorClick(Sender: TObject);