ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас
6.4. Алгоритми з розгалуженням
Стор. 200
1. Логічним виразом називають вираз, який може набувати одне з двох значень: true або false.
2. Not (заперечення), and (кон’юнкція), or (диз’юнкція).
|
x |
not x |
|
true |
false |
|
false |
true |
|
x |
y |
and |
|
true |
true |
true |
|
true |
false |
false |
|
false |
true |
false |
|
false |
false |
false |
|
x |
у |
or |
|
true |
true |
true |
|
true |
false |
true |
|
false |
true |
true |
|
false |
false |
false |
3. Розгалуження — це така форма організації дій, які містять умови, і в залежності від того, виконується вона чи ні, здійснюється або одна або друга послідовність дій. Повне і неповне розгалуження. Повне розгалуження полягає в тому, що спочатку перевіряється на істинність умова. Якщо умова істинна, то виконується команда 1, і виконання команди розгалуження закінчується. Якщо умова хибна, то виконується команда 2, і виконання команди розгалуження закінчується. Неповне розгалуження полягає в тому, що спочатку перевіряється на істинність умова. Якщо умова істина, то виконується команда 1, і виконання команди розгалуження закінчується. Якщо умова хибна, то виконання команди розгалуження закінчується.
Дайте відповіді на запитання
Стор. 205
Спочатку визначаємо, хибне чи істинне деяке твердження (умова). Якщо твердження істинне, то виконується послідовність команд 1, і на цьому вказівка розгалуження закінчується. Якщо ж твердження (умова) хибне, то виконується послідовність команд 2, і на цьому вказівка розгалуження закінчується.
Спочатку визначаємо, хибне чи істинне деяке твердження (умову). Якщо твердження (умова) істинне, то виконується послідовність команд 1 і на цьому вказівка розгалуження закінчується. Якщо ж твердження (умова) хибне, то на цьому вказівка розгалуження закінчується.
3. В тому, що при перевірці умова набула значення false в повному розгалуженні виконується послідовність команд, а в неповному розгалуженні виконання вказівки розгалуження закінчується.
4. Команда повного розгалуження в мові програмування Object Pascal має такий загальний вигляд:
If <логічний вираз>
then begin
<послідовність команд 1>
end
Else begin
<послідовність команд 2>
end;
5. Команда неповного розгалуження в мові програмування Object Pascal має такий загальний вигляд:
If <логічний вираз>
then begin
<послідовність команд 1>
end;
6. Групою команд Else begin <послідовність команд 2> end.
Виконайте завдання
Стор. 205
1. Спочатку визначаємо, хибне чи істинне деяке твердження (умова). Якщо твердження (умова) істинне, то виконується послідовність команд 1, і на цьому вказівка розгалуження закінчується. Якщо ж твердження (умова) хибне, то знову визначається істинність твердження (умови) і виконується послідовність команд 2, і на цьому вказівка розгалуження закінчується. Інакше виконується послідовність команд 3, і на цьому вказівка розгалуження закінчується.
2. Спочатку визначаємо, хибне чи істинне деяке твердження (умова). Якщо твердження (умова) істинне, то виконується послідовність команд 1, і на цьому вказівка розгалуження закінчується. Знову визначається істинність твердження (умова) і виконується послідовність команд 2, на цьому вказівка розгалуження закінчується.
3. В першому завданні присутня команда «Інакше» («Else»).
4. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended; x,y,z:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3 .Text);
x:=a-b;
if x=0
then Edit4.Caption:=’Відбувається ділення на нуль’
else if x=0
then Edit4.Caption:=’Відбувається ділення на нуль’
else begin
y:=a+b;
z:=y-c/x;
Edit4.Caption:=FloatToStr(z);
end;
end;
5. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended; x,y,z:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
x:=a-2*b;
if b=0
then Edit4.Сарtion:=’Відбувається ділення на нуль’
else if x=0
then Edit4.Сарtion:=’Відбувається ділення на нуль’
else begin
y:=a+b;
z:=y-c/x;
Edit4.Caption:=FloatToStr(z);
end.
6. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:extended;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if a<b
then Edit3.Caption:=FloatToStr(a)
else if a>b
then Edit3.Caption:=FloatToStr(b)
else Edit3.Сарtion:=’Числа рівні’;
end;
7. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:extended;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if a<b
then Edit3.Caption:=FloatToStr(b)
else if a>b
then Edit3.Caption:=FloatToStr(a)
else Edit3.Сарtion:=’Числа рівні’;
end;
8. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a:extended;
begin
a:=StrToFloat(Edit1.Text);
if a<0
then Edit2.Caption:=FloatToStr(a)
else if a>=0
then Edit2.Caption:=FloatToStr(a);
end;
9. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,min:extended;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
if a<b
then min:=a
else min:=b;
if min>c
then min:=c;
Edit4.Caption:=FloatToStr(min);
end;
10. Правило правопису ненаголошених е та и в корені слова (Українська мова). Перевірка, чи може існувати трикутник із кутами А, В, С (математика). Закони Кірхгофа (фізика).
11. Перехід дороги зі світлофором та без. Приготування обіду.
13. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:extended; x:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if a=0
then Label4.Сарtion:=’Вираз значення не має: ділення на нуль!’
else begin
x:=b/a;
Edit3.Caption:=FloatToStr(x);
end;
14. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended; x:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
if a=0
then Label5.Сарtion:=’Вираз значення не має: ділення на нуль’
else begin
Label5.Caption:=”;
x:=(c-b)/a;
Edit4.Caption:=FloatToStr(x);
end;
15. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3 .Text);
if a<b+c
then if b<a+c
then if c<a+b
then Label4.Caption:=’Відрізки a,b,c утворюють трикутник’
else Label4.Caption:=’Відрізки a,b,c не утворюють трикутник’;
end;
16. Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var
x:extended; y:real;
begin
x:=StrToFloat(Edit1.Text);
if (x>-1) and (x<4)
then y:=15-3*x
else y:=6+4*x;
Edit2.Caption:=FloatToStr(y);
end;
