ючи з поточного.
Елементарна одиниця вимірювання кількості інформації - це:
) Байт;
) Кбайт;
) Мбайт;
) Біт;
) Вісім біт.
Компакт-диск (CD) - це:
) диск малого розміру;
) магнітний диск з високою щільністю запису інформації;
) оптичний диск, інформація з якого зчитується лазером;
) диск після виконання операції стиснення інформації
) змінний магнітний диск малого розміру.
Кінець тесту
Кількість питань може бути будь-яким.
. Задамо властивості формі програми як у попередньому випадку і помістимо на неї наступні компоненти: RichEdit1, Memo1, BitBtn1, RadioGroup1, Label1. p align="justify"> Розмістимо компоненти на формі, як це представлено на малюнку нижче, і задамо їм властивості:
RichEdit1:
Visible - false. Даний компонент призначений для зберігання тексту, ліченого з файлу і він повинен бути невидимим в процесі виконання програми. p align="justify"> WordWrap - false. Перенесення рядків заборонений. p align="justify"> Memo1:
ReadOnly - true. Компонент призначений для виведення на екран питання і доступний тільки для читання. p align="justify"> RadioGroup1
У властивості Captions елемента напишемо Виберіть правильну відповідь. У властивості Items компонента створимо п'ять порожніх рядків (вони нам знадобляться для виведення варіантів відповіді). p align="justify"> Label1 - очистимо властивість Caption компонента.
BitBtn1 - Поставимо заголовок кнопки і у властивості Glyph розмістимо відповідний значок. Встановимо властивість Default = true, щоб при натисканні Enter виникало подія OnClick для кнопки. br/>В
. Опишемо змінні в блоці var модуля:
var: TForm1;, kol, j: integer;
3. Створимо обробник OnShow для форми:
procedure TForm1.FormShow (Sender: TObject); AppPath: array [0 .. 255] of char;
_file: AnsiString; (255, AppPath);// визначаємо директорію, де розташований здійсненний файл
_file: = AppPath + ' text test.rtf';. Lines.LoadFromFile (_file) ;//текст завантажується в компонент RichEdit1// у випадку, якщо файл не знайдено, робота програми завершується
showmessage ('Файл не знайдено!');
Application.Terminate;
end;
BitBtn1.Enabled: = false ;//Кнопка В«ДаліВ» недоступна, поки не буде зроблений вибір
memo1.Lines.Strings [0]: = richedit1.Lines.Strings [j +0];// в компонент Memo заноситься перший рядок - питання.
radiogroup1.Items [0]: = richedit1.Lines.Strings [j +1];// заповнюємо варіанти
i: = StrToInt (richedit1.Lines.Strings [j +6]);// мінлива и містить номер правильної відповіді
except// якщо не вказано номер правильної відповіді, робота програми переривається
showmessage ('Невірний формат тесту!');
Application.Terminate;;: = j +8;;
. Створимо обробник OnClick для BitBtn1:
procedure TForm1.BitBtn1Click (Sender: TObject);
begin
if i = radiogroup1.ItemIndex +1 then// якщо дано правильну відповідь
begin
label1.Font.Color: = clGreen;// колір шрифту Label1 - зелений1.Caption: = 'Відповідь правильний!';
kol: = kol +1;// лічильник кількості правильних відповідей
end else if radiogroup1.ItemIndex <> -1 then.Font.Color: = clRed; 1.Caption: = 'Відповідь на правильний!';
end;. Lines.Clear;// очищаємо компонент Memorichedit1.Lines.Strings [j +0] = 'Кінець теста'begin. Lines.Strings [0]: =' Тест закінчений '; 1 . Lines.Add ('Кількість правильних відповідей -' + IntToStr (kol));
else// інакше, якщо кінець тесту ще не досягнутий
showmessage ('Невірний формат тесту!');
Application.Terminate;;: = j +8;. ItemIndex: = -1;;. Enabled: = false;;
5. Створимо обробник OnClick для RadioGroup1:
procedure TForm1.RadioGroup1Click (Sender: TObject);
BitBtn1.Enabled: = true;// якщо вибір зроблений, то кнопка доступна.
end;
Вид вікна в робочому режими прог...
