Реферат Створення програми в Borland Delphi, тест Амтхауера

=IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button35Click (Sender: TObject); RadioButton1.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Знайдіть зайве слово, що не підходящого змісту до чотирьох інших з п'яти названих: raquo ;;

RadioButton1.Caption:= розум raquo ;;. Caption:= висновок raquo ;;. Caption:= рішення raquo ;;. Caption:= починання raquo ;;. Caption:= laquo ; договір raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button36Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Знайдіть зайве слово, що не підходящого змісту до чотирьох інших з п'яти названих: raquo ;;

RadioButton1.Caption:= тонкий raquo ;;. Caption:= худий raquo ;;. Caption:= вузький raquo ;;. Caption:= огрядний raquo ;;. Caption:= laquo ; короткий raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button37Click (Sender: TObject); RadioButton2.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Знайдіть зайве слово, що не підходящого змісту до чотирьох інших з п'яти названих: raquo ;;

RadioButton1.Caption:= горлечко raquo ;;. Caption:= пробка raquo ;;. Caption:= ніжка raquo ;;. Caption:= спинка raquo ;;. Caption:= laquo ; ручка raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button38Click (Sender: TObject); RadioButton4.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Знайдіть зайве слово, що не підходящого змісту до чотирьох інших з п'яти названих: raquo ;;

RadioButton1.Caption:= туманний raquo ;;. Caption:= морозний raquo ;;. Caption:= вітряний raquo ;;. Caption:= похмурий raquo ;;. Caption:= laquo ; дощовий raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button39Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Знайдіть зайве слово, що не підходящого змісту до чотирьох інших з п'яти названих: raquo ;;

RadioButton1.Caption:= писати raquo ;;. Caption:= рубати raquo ;;. Caption:= шити raquo ;;. Caption:= читати raquo ;;. Caption:= laquo ; ліжко raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button40Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Школа - директор; гурток -? raquo ;;. Caption:= голова raquo ;;. Caption:= член raquo ;;. Caption:= керівник; raquo ;;. Caption:= завідувач raquo ;;. Caption:= відвідувач raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true ;: =num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball) ;. Caption:= Субтест 3 - аналогії. Питання номер: + IntToStr (num) ;; TForm2.Button41Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Годинники - час; термометр -? raquo ;;. Caption:= прилад raquo ;;. Caption:= вимір raquo ;;. Caption:= ртуть raquo ;;. Caption:= тепло raquo ;;. Caption:= температура raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball);.Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button42Click (Sender: TObject); RadioButton2.Checked=true then:=ball + 1:=ball;

Label1.Caption:= Шукати - знаходити; роздумувати -? raquo ;;. Caption:= запам'ятовувати raquo ;;. Caption:= приходити до висновку raquo ;;. Caption:= розслідувати raquo ;;. Caption:= співати raquo ;;. Caption:= згадувати raquo ;;.Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball ) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button43Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball; .Caption:= Круг - куля; квадрат -? raquo ;;. Caption:= призма raquo ;;. Caption:= прямокутник raquo ;;. Caption:= тіло raquo ;;. Caption:= геометрія raquo ;;. Caption:= куб raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=n...