Курсовая работа: Создание программы на языке Delphi

26. var

27. Form1: TForm1;

28. QNomber:integer;

29. ball:real;

30.

31. implementation

32.

33. {$R *.dfm}

34.

35. procedure TForm1.FormCreate(Sender: TObject);

36. begin

37. Label1.Caption:='Введите свое Имя и Фамилию';

38. Edit1.Text:='';

39. RadioButton1.Visible:=False;

40. RadioButton2.Visible:=False;

41. RadioButton3.Visible:=False;

42. RadioButton4.Visible:=False;

43. Button1.Caption:='Начать';

44. QNomber:=0;

45. ball:=0;

46. end;

47.

48. procedure TForm1.Button1Click(Sender: TObject);

49. var

50. QCheck:Boolean;

51. rezball:real;

52. rezint:integer;

53. begin

54. QCheck:=False;