8 клас Урок 51 Практична робота 10 "Проєкти з полем, з уведенням даних і виведенням результатів

Додано: 20 березня 2023
Предмет: Інформатика, 8 клас
Тест виконано: 216 разів
7 запитань
Запитання 1

Створіть обробник події Click для кнопки, відступ поля від верхньої межі вікна 250 пікселів, відступ поля від лівої межі вікна 250 пікселів. Який з запропонованих варіантів правильний?


варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

begin                      

form1.Top:=250;

form1.Left:=250; 

procedure TForm1.Button1Click(Sender: TObject);

begin                      

Edit1.Top:=250;

Edit1.Left:=250; 

procedure TForm1.Button1MouseMove(Sender: TObject);

begin                      

Edit1.Top:=250;

Edit1.Left:=250; 

procedure TForm1.Button1Click(Sender: TObject);

begin                      

form1.Top:=form1.Top+250;

form1.Left:=form1.Left+250; 

Запитання 2

Створіть обробник події Click для кнопки, установить колір тексту червоний і виведе в поле текст «Ми використовуємо властивості поля!».

варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

begin

 Edit1.Color:=clRed;

 Edit1.text:='Ми використовуємо властивості поля!';

end;      

procedure TForm1.Button1Click(Sender: TObject);

begin

  Edit1.font.Color:=clRed;

 Edit1.text:='Ми використовуємо властивості поля!';

end;   

procedure TForm1.Button1Click(Sender: TObject);

begin

 Edit1.font.Color:=clgreen;

 Edit1.text:='Ми використовуємо властивості поля';

end;   

Запитання 3

Які елементи розміщені на формі Form1?

варіанти відповідей

Edit1, Label1, Button1

Label1, Label2, Button1

Edit1,Button1, Button2

Запитання 4

Яка команда переводить текст з поля Edit1 у числа?

варіанти відповідей

StrToFloat (Edit1.Text);

FloatToStr (Edit1.Text);


StrToFloat (Edit1);

Запитання 5

Що робить дана команда ?

m:=256;

Label1.Caption := FloatToStr(m);

варіанти відповідей

Виводить у напис число 256.

Виводить у напис букву m.

Виводить у поле число 256.

Запитання 6

Створіть обробник події Click для кнопки 2, для підрахунку функції а * (4+a*a). Який варіант запису правильний?

варіанти відповідей

procedure TForm1.Button2Click(Sender: TObject);

var a,func:real;

begin

a:=StrToFloat(Edit2.text);

funk:=a*(4+a*a); 

end;   

procedure TForm1.Button2Click(Sender: TObject);

var a,func:real;

begin

a:=FloatToStr(Edit2.text);

funk:=a*(4+a*a); 

end;   

procedure TForm1.Button1Click(Sender: TObject);

var a,func:real;

begin

a:=FloatToStr(Edit2.text);

funk:=a*(4+a*a); 

end;   

Запитання 7

Як вивести отримане значення функції у напис?

варіанти відповідей

label1.Caption:=FloatToStr(funk);

label1.Caption:=StrToFloat(funk);

Edit1.Caption:=StrToFloat(funk);

Створюйте онлайн-тести
для контролю знань і залучення учнів
до активної роботи у класі та вдома

Створити тест