Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение
Вывод: я рассмотрел работу с событиями в программах, написал обработчик на событие. Практическая работа №11
жүктеу/скачать 0.7 Mb.
|
- Бұл бет үшін навигация:
- Цель практической работы
| Вывод: я рассмотрел работу с событиями в программах, написал обработчик на событие.
Практическая работа №11 Тема практической работы: Сообщения. Цель практической работы: Изучить работу сообщений и их вывод в программе. Задание №1 Рис 23 Рис 24 Рис 25 Рис 26 Рис 29 Рис 28 Рис 27 Рис 30
Листинг: unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; A:string; B:integer; C:string; N:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin A:=InputBox('Регистрация','Введите ваше имя и фамилию:',A); B:=MessageDlg('Уважаемый '+A+', вы готовы к проверке знаний?',MtConfirmation,[mbYes,mbNO],0); if B=idNO then Exit else C:=InputBox('Чему равен 1 байт ?:','Первый вопрос',C); if C='8 бит' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; C:=InputBox('Переведите десятичное число 5 в двоичную систему счисления:','Второй вопрос',C); if C='101' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; MessageDlg('Уважаемый '+A+',вы сделали '+IntToStr(N)+' ошибок',MtInformation,[mbOK],0); end; end.
Рис 31 Рис 32 Рис 33 Рис 34 Рис 25 Рис 36 Рис 37 Рис 38 Рис 39
Рис 40
Листинг : unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; A:string; B:integer; C:string; N:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin A:=InputBox('Регистрация','Введите ваше имя и фамилию:',A); B:=MessageDlg('Уважаемый '+A+', вы готовы к проверке знаний?',MtConfirmation,[mbYes,mbNO],0); if B=idNO then Exit else C:=InputBox('Чему равен 1 байт ?:','Первый вопрос',C); if C='8 бит' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; C:=InputBox('Переведите десятичное число 5 в двоичную систему счисления:','Второй вопрос',C); if C='101' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; C:=InputBox('Как настроение ?:','Третий вопрос',C); if C='101' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; C:=InputBox('Кофе будешь ?:','Четвертый вопрос',C); if C='101' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; C:=InputBox('Кофе нет , как насчёт чая ?:','Пятый вопрос',C); if C='101' then begin MessageDlg('Правильно!',MtWarning,[mbYes],0); end else begin MessageDlg('Неправильно!',MtWarning,[mbYes],0); N:=N+1;
end; MessageDlg('Уважаемый '+A+',вы сделали '+IntToStr(N)+' ошибок',MtInformation,[mbOK],0); end; end.
жүктеу/скачать 0.7 Mb. Достарыңызбен бөлісу:
|