Geum.ru

Создание программы на языке Delphi

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

RadioButton4.Checked=True then ball:=ball+1;

  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=Панель "Справка" содержит:;
  • RadioButton1.Caption:=Справку MS PowerPoint, информацию о программе;
  • RadioButton2.Caption:=Возможность различного взаиморасположения окон;
  • RadioButton3.Caption:=Проверку орфографии;
  • RadioButton4.Caption:=Возможность создания нового слайда, дублирования слайда;
  • inc(QNomber);
  • end;
  • 14:if QCheck=True then begin
  • if RadioButton1.Checked=True then ball:=ball+1;
  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=Панель "Окно" содержит:;
  • RadioButton1.Caption:=Справку MS PowerPoint, информацию о программе;
  • RadioButton2.Caption:=Возможность различного взаиморасположения окон;
  • RadioButton3.Caption:=Проверку орфографии;
  • RadioButton4.Caption:=Возможность создания нового слайда, дублирования слайда;
  • inc(QNomber);
  • end;
  • 15:if QCheck=True then begin
  • if RadioButton2.Checked=True then ball:=ball+1;
  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=Панель "Сервис" содержит:;
  • RadioButton1.Caption:=Справку MS PowerPoint, информацию о программе;
  • RadioButton2.Caption:=Возможность различного взаиморасположения окон;
  • RadioButton3.Caption:=Проверку орфографии;
  • RadioButton4.Caption:=Возможность создания нового слайда, дублирования слайда;
  • inc(QNomber);
  • end;
  • 16:if QCheck=True then begin
  • if RadioButton3.Checked=True then ball:=ball+1;
  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=Панель "Вставка" содержит:;
  • RadioButton1.Caption:=Справку MS PowerPoint, информацию о программе;
  • RadioButton2.Caption:=Возможность различного взаиморасположения окон;
  • RadioButton3.Caption:=Проверку орфографии;
  • RadioButton4.Caption:=Возможность создания нового слайда, дублирования слайда;
  • inc(QNomber);
  • end;
  • 17:if QCheck=True then begin
  • if RadioButton4.Checked=True then ball:=ball+1;
  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=В каком формате сохраняются презентации;
  • RadioButton1.Caption:=*.avi;
  • RadioButton2.Caption:=*.txt;
  • RadioButton3.Caption:=*.ppt;
  • RadioButton4.Caption:=*.doc;
  • inc(QNomber);
  • end;
  • 18:if QCheck=True then begin
  • if RadioButton3.Checked=True then ball:=ball+1;
  • rezball:=ball/18*12;
  • rezball:=rezball;
  • RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
  • Label1.Caption:=Вы ответили правильно на +FloatToStr(ball)+ вопросов. Ваш балл +FloatToStr(rezball);
  • RadioButton1.Visible:=False;
  • RadioButton2.Visible:=False;
  • RadioButton3.Visible:=False;
  • RadioButton4.Visible:=False;
  • inc(QNomber);
  • end;
  • end;
  • end;
  • end.

    •  

    ПРИЛОЖЕНИЕ В

     

    Результаты решения программы