Реферат Online-тестування

align="justify">: if radiobutton3ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );

: if Edit1.Text= немає then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );

: if radiobutton1ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );

: if CheckBox1ecked and CheckBox2ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );

: if CheckBox1ecked and CheckBox3ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );

: if Edit1.Text= 0 then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! ) ;;. Text:=IntToStr (n) ;; TForm1.Button3Click (Sender: TObject); Edit2.Text= 10 then form2.Label1.Caption:= Ваша оцінка 5 raquo ;; (Edit2.Text= 7 ) or (Edit2.Text= 8 ) or (Edit2.Text= 9 ) then form2. Label1.Caption:= Ваша оцінка 4 raquo ;; (Edit2.Text= 5 ) or (Edit2.Text= 6 ) then form3.Label1.Caption:= Ваша оцінка 3 raquo ;; (Edit2.Text= 3 ) or (Edit2.Text= 4 ) then form4.Label1.Caption:= Ви не пройшли тест! raquo ;; Edit2.Text= 10 then form2.ShowModal; (Edit2.Text= 7 ) or (Edit2.Text= 8 ) or (Edit2.Text= 9 ) then form2.ShowModal; (Edit2.Text= 5 raquo ;) or (Edit2.Text= 6 ) then form3.ShowModal; (Edit2.Text= 3 ) or (Edit2.Text= 4 ) then form4.ShowModal ;; TForm1.FormCreate (Sender:TObject);:=1;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=25;.Caption:=laquo;1. Як називається група файлів, яка зберігається окремою групою і має власне ім'я? Raquo ;;

radiobutton1.Caption:=laquo;Байтraquo;;.Caption:=laquo;Каталогraquo;;.Caption:=laquo;Дискетаraquo;;;TForm1.MenuItem1Click(Sender: TObject);:=1;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=25;.Caption:=laquo;1. Як називається група файлів, яка зберігається окремою групою і має власне ім'я? Raquo ;;

radiobutton1.Caption:=laquo;Байтraquo;;.Caption:=laquo;Каталогraquo;;.Caption:=laquo;Дискетаraquo;;;TForm1.MenuItem2Click(Sender: TObject);:=2;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:=laquo;2. Виберіть правильне ім'я файлу anketa з розширенням txt raquo ;;

radiobutton1.Caption:= Anketa. txt raquo ;;. Caption:= Anketa. txt. raquo ;;. Caption:= Anketa/txt raquo ;;; TForm1.MenuItem3Click (Sender: TObject);:=3;:=0;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=35;.Left:=104;.Top:=48;.Text:=laquo;raquo;;.Caption:=laquo;3. Яку найбільшу кількість символів має ім'я файлу або каталогу в Windows? Raquo ;;

stroka:=edit1.text; .Text:=IntToStr (rez) ;; TForm1.MenuItem4Click (Sender: TObject);:=4;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:=laquo;4. Яке розширення у виконуваних файлів? Raquo ;;

radiobutton1.Caption:= exe, doс raquo ;;. Caption:= bak, bat raquo ;;. Caption:= exe, com, bat raquo ;;; TForm1.MenuItem5Click (Sender:TObject);:=5;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=24;.Caption:=laquo;5. Підкаталог SSS входить в каталог YYY. Як називається каталог YYY щодо каталогу SSS? Raquo ;;

radiobutton1.Caption:=laquo;дочернийraquo;;.Caption:=laquo;корневойraquo;;.Caption:=laquo;родительскийraquo;;;TForm1.MenuItem6Click(Sender: TObject);:=6;:=0;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=40;.Left:=104;.Top:=48;.Text:=laquo;raquo;;.Caption:=laquo;6. Чи може в одному каталозі бути два файли з однаковими іменами? Raquo ;;

stroka:=edit1.text; .Text:=IntToStr (rez) ;; TForm1.MenuItem7Click (Sender: TObject);:=7;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:=laquo;7. Що таке кластер на магнітному диску? Raquo ;;

radiobutton1.Caption:= одиниця дискового простору raquo ;;

radiobutton2.Caption:= конверт для диска raquo ;;. Caption:= віртуальний диск raquo ;;; TForm1.MenuItem8Click (Sender: TObject);:=8;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Left:=80;.Left:=120;.Left:=120;.Left:=120;.Caption:=laquo;8. Що містить 0-я доріжка кожної дискети? Raquo ;;

CheckBox1.Caption:= кореневий каталог raquo ;;

CheckBox2.Caption:= FАТ-таблицю raquo ;;

CheckBox3.Caption:= файли raquo ;;; TForm1.MenuItem9Click (Sender: TObject);:=9;.Visible...