Тест с ответами: “Delphi”
1. Найдите неверное утверждение:
а) первым символом имени переменной обязательно должна быть цифра +
б) имя переменной обязательно должно начинаться с буквы
в) строчные и прописные буквы в имени переменной не различаются
2. Что такое процедура:
а) это подпрограмма, которая выполняет какое-то действие, и возвращает результат определенного типа
б) это подпрограмма, которая выполняет какое-то действие, и которую можно вызвать из другого места программы +
в) это раздел, где объявляются переменные и их типы данных
3. Что произойдет, если вызвать указанную функцию:
function MyFunc():String;
begin
Result := 12;
end;
а) вернется строка ’12’
б) вернется число 12
в) ошибка программы +
4. Переменная i имеет тип Integer, переменная r – Real, а переменная s – String. Выберите неверные варианты присвоения значений:
а) i := i + r; +
б) r := r + 1;
в) s := IntToStr(i);
5. Переменная i имеет тип Integer, переменная r – Real, а переменная s – String. Выберите неверные варианты присвоения значений:
а) r := r + 1;
б) i := i + 1;
в) s := s + 1; +
6. Найдите ошибочный тип вещественного числа:
а) Single
б) Word +
в) Currency
7. Найдите ошибочный тип вещественного числа:
а) Currency
б) Single
в) Int64 +
8. Укажите верное утверждение:
а) LongString содержит строку символов из таблицы ANSI +
б) PChar – это символьный тип данных
в) LongString содержит строку символов из таблицы ASCII
9. Укажите верное утверждение:
а) PChar – это символьный тип данных
б) LongString содержит строку символов из таблицы ASCII
в) PChar – это строковый тип данных +
10. Переменные e и f имеют тип Integer, e равно 10. Чему будет равна переменная e в результате следующего кода:
for f := 0 to 5 do e := e + f;
а) 10
б) 25 +
в) 5
11. Какое свойство отвечает за размер окна формы:
а) Height +
б) Top
в) Left
12. Какое свойство отвечает за размер окна формы:
а) Left
б) Width +
в) Top
13. Что определяет свойство формы BorderStyle:
а) общий вид формы +
б) ширину оборки окна
в) расстояние между заголовком окна и самим окном
14. Где мы можем найти кнопку, которую хотим установить на форму:
а) в объектном инспекторе
б) в главном меню Delphi
в) на палитре компонентов +
15. Что будет в заголовке окна, которое появится в результате выполнения кода:
ShowMessage(‘Hello, all!’);
а) название проекта +
б) ShowMessage
в) ничего не будет
16. Каким типом определяется вещественное число:
а) String
б) Real +
в) Integer
17. Что такое переменная:
а) перезаписываемый сектор жесткого диска
б) свойство компонента, которое можно изменять
в) ячейка оперативной памяти, в которой могут храниться данные какого-то типа +
18. Какое свойство отвечает за положение окна формы:
а) Width
б) Top +
в) Height
19. Какое свойство отвечает за положение окна формы:
а) Height
б) Width
в) Left +
20. Найдите неправильное утверждение:
а) свойством компонента может служить переменная, которая сама имеет тип Объект
б) свойство компонента не может иметь тип Объект +
в) на вкладке Events инспектора объектов находится список доступных событий
21. Что такое объект:
а) совокупность методов, свойств и событий +
б) переменная, которая влияет на состояние объекта
в) совокупность процедур и функций, указывающих на возможности объекта
22. Что такое метод объекта:
а) процедура, которая выполняется, если произошло какое-то событие
б) процедура, которая имеет доступ к свойствам объекта и обеспечивает его работу +
в) функция, которая выполняется, если произошло какое-то событие
23. Укажите свойство компонента Edit, которое отвечает за текст, который пользователь ввел в поле ввода:
а) label
б) name
в) text +
24. Как можно сделать панель с четырьмя флажками, все флажки включены:
а) четыре кнопки в RadioGroup, свойство ItemIndex в 3
б) четыре CheckBox на GroupBox, свойство Checked в True +
в) четыре кнопки в RadioGroup, свойство ItemIndex в 4
25. В каком разделе объявляют константы:
а) var
б) type
в) const +
26. Выберите ошибочное утверждение:
а) компонент MainMenu не визуальный, поэтому его расположение на форме не имеет никакого значения
б) открыть редактор меню можно только одним способом: дважды щелкнуть мышью по компоненту +
в) открыть редактор меню можно, дважды щелкнув мышью по компоненту, либо через свойство Items компонента
27. Выберите ошибочное утверждение:
а) компонент MainMenu визуальный, поэтому его нужно располагать строго в левой верхней части окна +
б) открыть редактор меню можно, дважды щелкнув мышью по компоненту, либо через свойство Items компонента
в) компонент MainMenu не визуальный, поэтому его расположение на форме не имеет никакого значения
28. Какое свойство компонента отвечает за его видимость или невидимость на форме:
а) Enabled
б) DragMode
в) Visible +
29. В каком разделе объявляется массив:
а) var +
б) array
в) massive
30. Что делает функция Chr():
а) выводит на экран в качестве сообщения символ, указанный в параметре
б) принимает в качестве параметра целое число, и возвращает символ, соответствующий этому числу в таблице ANSI +
в) возвращает True, если указанный в параметре символ является числом
Создание тестирующих программ в среде программирования Delphi
Предлагаемые методические рекомендации отображают проектирование, оформление и разработку тестирующих программ в среде программирования Delphi.
Рекомендуются учителям информатики, учителям школьных предметов, учащимся старших классов общеобразовательных средних школ с углубленным изучением информатики.
Введение
Ощутимые шаги в раскрытии глубинных закономерностей человеческого обучения, сделанные мировой дидактикой, а также бурный прогресс в области развития персональных компьютеров выводят педагогов на необходимость создания электронных тестирующих программ для самоконтроля и самопроверки знаний обучающихся.
Основная цель данных методических рекомендаций состоит в том, чтобы дать знания о технологии создания тестирующих программ в среде программирования Delphi.
В результате использования этих рекомендаций могут быть сформированы умения и навыки проектирования тестирующих программ в среде программирования Delphi.
Создание тестирующей программы с использованием компонентов
TLabel, TButton, TRadioGroup
Создание интерфейса приложения
2. Задайте объектам следующие свойства
| Объект | Свойство | Значение |
| Форма | Name | Form1 |
| Caption | Тест самопроверки | |
| Color | cllnfoBk | |
| RadioGroup | Name | RadioGroup1, :, RadioGroup5 |
| Caption | — | |
| Items | :(варианты ответов) | |
| ItemIndex | 0,1,2,3 (индекс выбранного переключателя) | |
| Font | Times New Roman, обычный, размер 14, цвет тёмно-синий | |
| Label | ||
| (метка) | Name | Label1. Label5 |
| Caption | :(текст выбранного вопроса) | |
| Font | Times New Roman, полужирный, размер 14, цвет тёмно-синий | |
| Label | ||
| (метка) | Name | Label4 |
| Caption | — | |
| Font | Times New Roman, полужирный, размер 14, цвет красный | |
| Label | ||
| (метка) | Name | Label5 |
| Caption | — | |
| Font | Times New Roman, полужирный, размер 14, цвет красный | |
| Button | ||
| (кнопка) | Name | Button1 |
| Caption | Число правильных ответов | |
| Button | ||
| (кнопка) | Name | Button2 |
| Caption | Выход |
Написание кода
1. Напишите программу теста в окне кода.
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin m:=0; if RadioGroup1.ItemIndex=1 then m:=m+1 else m:=m; end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin n:=0; if RadioGroup2.ItemIndex=0 then n:=n+1 else n:=n; end;
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin k:=0; if RadioGroup3.ItemIndex=0 then k:=k+1 else k:=k; end;
procedure TForm1.RadioGroup4Click(Sender: TObject);
begin w:=0; if RadioGroup4.ItemIndex=0 then w:=w+1 else w:=w; end;
procedure TForm1.RadioGroup5Click(Sender: TObject);
begin v:=0; if RadioGroup5.ItemIndex=2 then v:=v+1 else v:=v; end;
procedure TForm1.Button1Click(Sender: TObject);
begin l:=m+n+k+w+v; if l=5 then
begin Label4.Caption:=IntToStr(l); Label5.Caption:=’Отлично!’; end else if l=4 then
Написание кода
1. Запрограммируйте метку Label2 («Следующий вопрос») так, чтобы в метке Label1 выводился следующий вопрос, варианты ответа на него, и при достижении последнего вопроса метка Label2 становилась недоступной.
3.Напишите программу теста в окне кода.
a,b,c,d,f,g,j,l,m,n,k,p:integer; implementation uses Unit2;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin a:=0; if RadioGroup1.ItemIndex=0 then a:=a+1 else a:=a; RadioGroup1.Visible:=False; end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin b:=0; if RadioGroup2.ItemIndex=1 then b:=b+1 else b:=b; RadioGroup2.Visible:=False; end;
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin d:=0; if RadioGroup3.ItemIndex=1 then d:=d+1 else d:=d; RadioGroup3.Visible:=False; end;
procedure TForm1.RadioGroup4Click(Sender: TObject);
begin c:=0; if RadioGroup4.ItemIndex=0 then c:=c+1 else c:=c; RadioGroup4.Visible:=False; end;
procedure TForm1.RadioGroup5Click(Sender: TObject);
begin f:=0; if RadioGroup5.ItemIndex=3 then f:=f+1 else f:=f; RadioGroup5.Visible:=False; end;
procedure TForm1.RadioGroup6Click(Sender: TObject);
begin g:=0; if RadioGroup6.ItemIndex=2 then g:=g+1 else g:=g; RadioGroup6.Visible:=False; end;
procedure TForm1.RadioGroup7Click(Sender: TObject);
begin j:=0; if RadioGroup7.ItemIndex=1 then j:=j+1 else j:=j; RadioGroup7.Visible:=False; end;
procedure TForm1.RadioGroup8Click(Sender: TObject);
begin l:=0; if RadioGroup8.ItemIndex=1 then l:=l+1 else l:=l; RadioGroup8.Visible:=False; end;
procedure TForm1.RadioGroup9Click(Sender: TObject);
begin m:=0; if RadioGroup9.ItemIndex=3 then m:=m+1 else m:=m; RadioGroup9.Visible:=False; end;
procedure TForm1.RadioGroup10Click(Sender: TObject);
begin n:=0; if RadioGroup10.ItemIndex=2 then n:=n+1 else n:=n; RadioGroup10.Visible:=False; end;
procedure TForm1.Label2Click(Sender: TObject);
1: begin Label1.Caption:=’2 вопрос. Массовое производство компьютеров началось в:’;
2: begin Label1.Caption:=’3 вопрос. Элементной базой процессоров ЭВМ 2-ого поколения являлись:’; RadioGroup3.Visible:=True; end;
3:begin Label1.Caption:=’4 вопрос. Какое устройство не предназначено для обработки информации?’; RadioGroup4.Visible:=True; end;
4:begin Label1.Caption:=’5 вопрос. За минимальную единицу измерения количества информации принят:’; RadioGroup5.Visible:=True; end;
5:begin Label1.Caption:=’6 вопрос. Сколько байтов занимает в памяти ПК слово ПОБЕДА?:’;
6:begin Label1.Caption:=’7 вопрос. Производительность работы компьютера зависит от:’;
7:begin Label1.Caption:=’8 вопрос. Какое устройство может оказывать вредное воздействие на здоровье человека?’; RadioGroup8.Visible:=True; end;
8:begin Label1.Caption:=’9 вопрос. При выключении компьютера вся информация стирается:’;
9:begin Label1.Caption:=’10 вопрос. В целях сохранения информации дискеты необходимо оберегать от:’; RadioGroup10.Visible:=True; Button2.Visible:=True;Label2.Visible:=False; end; end;
procedure TForm1.Button2Click(Sender: TObject);
begin p:= a+b+c+d+f+g+j+l+m+n; if p=10 then
begin Label1.Caption:=IntToStr(p)+’ правильных ответов из 10 вопросов.’+’ Отлично!’; end
begin Label1.Caption:=IntToStr(p)+’ правильных ответов из 10 вопросов.’+’ Хорошо!’; end
begin Label1.Caption:=IntToStr(p)+’ правильных ответов из 10 вопросов.’+’ Удовлетворительно.’;
end else if p
| Объект | Свойство | Значение |
| Форма | Name | Form1 |
| Caption | Тестирующая программа по информатике | |
| Color | clSkyBlue | |
| MainMenu | Name | MainMenu1 |
| Label | ||
| (метка) | Name | Label1 |
| Caption | — | |
| Font | MS Sans Serif, полужирный курсив, размер 14, цвет красный | |
| Label | ||
| (метка) | Name | Label2. Label7 |
| Caption | :(текст вопроса) | |
| Font | MS Sans Serif, полужирный курсив, размер 12, цвет тёмно-синий | |
| Button | ||
| (кнопка) | Name | Button1 |
| Caption | Выход | |
| Font | MS Sans Serif, полужирный курсив, размер 14, цвет чёрный | |
| Image | Name | Image1 |
| Visible | True | |
| Stretch | True | |
| Picture | указать путь к рисунку | |
| Panel | Name | Panel1. Panel6 |
| Caption | 1,:6 | |
| PageControl | Name | PageControl1 |
| Active Pages | TabSheet1 | |
| Visible | True | |
| TabSheet1. TabSheet6 | Name | TabSheet1. TabSheet6 |
| Caption | вопрос1. вопрос6 | |
| RadioGroup | Name | RadioGroup1, :, RadioGroup6 |
| Caption | — | |
| Items | :(варианты ответов) | |
| ItemIndex | 0,1,2,3 (индекс выбранного переключателя) |
Написание кода
2. Напишите программу теста в окне кода.
m,n,k,w,l,s,z:integer; implementation uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin n:=0; if RadioGroup1.ItemIndex=0 then begin n:=n+1; Panel1.Visible:=False; end else n:=n;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin m:=0; if RadioGroup2.ItemIndex=2 then begin m:=m+1;Panel2.Visible:=False; end else m:=m;
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin k:=0; if RadioGroup3.ItemIndex=0 then begin k:=k+1; Panel4.Visible:=False; end else k:=k;
procedure TForm1.RadioGroup4Click(Sender: TObject);
begin w:=0; if RadioGroup4.ItemIndex=0 then begin w:=w+1; Panel3.Visible:=False; end else w:=w;
procedure TForm1.RadioGroup5Click(Sender: TObject);
begin s:=0; if RadioGroup5.ItemIndex=1 then begin s:=s+1; Panel5.Visible:=False; end else s:=s;
procedure TForm1.RadioGroup6Click(Sender: TObject);
begin z:=0; if RadioGroup6.ItemIndex=1 then begin z:=z+1; Panel6.Visible:=False; end else z:=z;
procedure TForm1.N3Click(Sender: TObject);
begin l:=m+n+k+w+s+z; Label1.Caption:=IntToStr(l)+’ правильных ответов из 6 вопросов’; end;
procedure TForm1.N4Click(Sender: TObject);
procedure TForm1.N7Click(Sender: TObject);
begin AboutBox.show; end;
procedure TForm1.N6Click(Sender: TObject);
begin MessageDlgPos(‘Будьте внимательны при выборе варианта ответа!
Повторный выбор ответа на вопрос недоступен!’,mtInformation,[mbOK],0,300,200); end; end.
3.Сохраните форму и проект в своей папке.
Литература