Курсовая работа: Програмування в Delphi

Memo1.Lines.Add('1. Дійсні');

Memo1.Lines.Add('2. Цілочисельні');

Memo1.Lines.Add('3. Літерні');

Memo1.Lines.Add('4. Оператори, ключові слова, директиви компілятору');

Memo1.Lines.Add('5. Логічні');

end;

procedure TForm1.Button1Click(Sender: TObject);

Var

i : Integer;

Si : String;

begin

Si := Edit1.Text;

i := StrToInt(Si);

Case k of

1: Case I of

1: Begin

Memo2.Lines.Add (' Відповідь не вірна');

Memo2.Lines.Add ('Опрацюйте матеріал спочатку');

End;

2: Begin

Memo2.Lines.Add (' Відповідь не вірна');

Memo2.Lines.Add ('Опрацюйте матеріал спочатку');

End;

3: Begin

Memo2.Lines.Add (' Відповідь не вірна');

Memo2.Lines.Add ('Опрацюйте матеріал спочатку');

End;

4: Begin

Memo2.Lines.Add (' Відповідь вірна');