ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас
6.5. Прапорці. Поле з розкривним списком. Перемикачі
Стор. 207
1. Команда повного розгалуження в мові програмування Object Pascal має такий загальний вигляд:
If <логічний вираз>
then begin
<послідовність команд 1>
end
Else begin
<послідовність команд 2>
end;
Команда неповного розгалуження в мові програмування Object Pascal має такий загальний вигляд:
If <логічний вираз>
then begin
<послідовність команд 1>
end;
2. Властивості напису: Name — ім’я, Caption — підпис, Color — колір, Height — висота, Width — ширина, Тор — відстань між текстом та верхньою межею, Left — відстань між текстом та лівою межею, Enabled — доступність, Visible — видимість, Font — властивість шрифту.
Властивості поля: Name — ім’я, Соlor — колір, Тор — відстань між текстом та верхньою межею, Left — відстань між текстом та лівою межею, Enabled — доступність, Visible — видимість, Text — текст у полі.
3. Прапорець дає змогу виділення або скасування виділення одного або кількох значень у групі варіанти. Можна вибрати кілька, установіть прапорець за раз на аркуші або у вікна групи.
Перемикач дає змогу вибрати один варіант із обмеженого набору взаємовиключних варіантів вибору. Кнопка «Параметри» (або перемикач) зазвичай міститься у вікно групи або рамку.
Поле з розкривним списком використовується для того, щоб із запропонованого списку вибрати один потрібний варіант.
Дайте відповіді на запитання
Стор. 211
1. Прапорець дає змогу виділення або скасування виділення одного або кількох значень у групі Варіанти. Можна вибрати кілька, установіть прапорець зараз на аркуші або у вікна групи.
2. Може бути використаний у логічному виразі в команді розгалуження.
3. Поле з розкривним списком використовується для того щоб із запропонованого списку вибрати один потрібний варіант.
4. If Check.Box1.Checked
Then Form1.Сарtion:=’Заголовок змінений’;
If Check.Box2.Checked
Then Form1.Color:=clRed;
If Check.Box3.Checked
Then begin
Form1.Width:=500;
Form1.Heigth:=200;
End;
5. Перемикач дає змогу вибрати один варіант із обмеженого набору взаємовиключних варіантів вибору. Кнопка «Параметри» (або перемикач) зазвичай міститься у вікно групи або рамку.
6. True, false
Виконайте завдання
Стор. 212
4. Відмінність полягає в тому, що в першому завданні спершу виконується перевірка умови, і якщо умова позитивна, то виконується команда 1, і після неї виконується перевірка, а якщо умова негативна, то не виконується ніяких дій. А в другому завданні спершу виконується умова, і якщо умова позитивна, то виконується команда і закінчується виконання розгалуження. Якщо ж умова негативна, то перевіряється на істинність наступна умова.
5. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:extended; s,riz,dob,chas:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
Edit3.Caption:=’ ‘;
Edit4.Caption:=’ ‘;
Edit5.Caption:=’ ‘;
Edit6.Caption:=’ ‘;
if (ComboBox1.Text=’cyмa’)=true
Then begin
s:=a+b;
Edit3.Caption:=FloatToStr(s);
end
else if (ComboBox1.Text=’різниця’)=true
Then begin
riz:=a-b;
Edit4.Caption:=FloatToStr(riz);
end
else if (ComboBox1.Text=’добуток’)=true
Then begin
dob:=a*b;
Edit5.Caption:=FloatToStr(dob);
end
else if (ComboBox1.Техt=’частка’)=true
Then begin
chas:=a/b;
Edit6.Caption:=FloatToStr(chas);
end;
end;
6. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:extended; sum,riz,dob,chas:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
Edit3.Caption:=’ ‘;
Edit4.Caption:=’ ‘;
Edit5.Caption:=’ ‘;
Edit6.Caption:=’ ‘;
if RadioButton1.Checked
Then begin
sum:=a+b;
Edit3.Caption:=FloatToStr(sum);
end
else if RadioButton2.Checked
Then begin
riz:=a-b;
Edit4.Caption:=FloatToStr(riz);
end
else if RadioButton3.Checked
Then begin
dob:=a*b;
Edit5.Caption:=FloatToStr(dob);
end
else if RadioButton4.Checked
Then begin
chas:=a/b;
Edit6.Caption:=FloatToStr(chas);
end;
end;
7. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
k,v:extended; zvp,znvp,zp:real;
begin
k:=StrToFloat(Edit1.Text);
v:=StrToFloat(Edit2.Text);
if RadioButton1.Checked
then begin
zvp:=k*v+((k*v)*10)/100;
Edit3.Caption:=FloatToStr(zvp);
end;
if RadioButton2.Checked
then begin
znvp:=k*v-((k*v)*20)/100;
Edit3.Caption:=FloatToStr(znvp);
end;
if RadioButton3.Checked
then begin
zp:=k*v+((k*v)*30)/100;
Edit3.Caption:=FloatToStr(zp);
end
end;
8. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
z:extended;
begin
z:=5000;
if CheckBox1.Checked
then begin
z:=z+((z*20)/100);
Edit1.Caption:=FloatToStr(z);
end;
if CheckBox2.Checked
then begin
z:=z-((z*15)/100);
Edit1.Caption:=FloatToStr(z);
end
else
z:=z+((z*5)/100);
Edit1.Caption:“FloatToStr(z);
end;
