ГДЗ до підручника «Інформатика» Н.В. Морзе. 8 клас
25. Реалізація алгоритмів повторения мовами програмування
Працюємо самостійно
1. 1.1) рішення немає, бо І повинно бути меншим за 5, а І=6
1.2) крок 1: N=2 х=0
х=0+1=1
N=2+1=3
крок 2: N=3 х=1
х=1+1=2
N=3+1=4
крок 3: N=4 х=2
х=2+1=3
N=4+1=5
Більше кроків не робимо, бо І=5, а команди виконуємо тільки при І<5.
1.2. 1) крок 1: N=1 S=0
N=1+2=3
S=0+3=3
крок 2: N=3 S=5
N=3+2=5
S=3+5=8
крок 3: N=5 S=8
N=5+2=7
S=8+7=15
крок 4: N=7 S=15
N=7+2=9
S=15+9=24
κрок 5: Ν=9 S=24
N=9+2=11
S=24+11=35
1.2. 2) крок 1: N=2 S=0
N=2+2=4
S=0+4=4
крок 2: N=4 S=4
N=4+2=6
S=4+6=10
крок 3: N=6 S=10
N=6+2=8
S=10+8=18
крок 4: N=8 S=18
N=8+2=10
S=18+10=28
крок 5: N=10 S=28
N=10+2=12
S=28+12=40
1.2. 3) крок 1: N=4 S=-1
N=4+2=6
S=-1+4=3
крок 2: N=6 S=3
N=6+2=8
S=3+8=11
крок 3: N=8 S=11
N=8+2=10
S=11+10=21
крок 4: N=10 S=21
N=10+2=12
S=21+12=33
крок 5: N=12 S=33
N=12+2=14
S=33+14=47
1.3) крок 1: N=4 x=0
x=0+1=1
N=4+1=5
Більше кроків не робимо, бо I=5, а команди виконуємо тільки при I<5.
1.4) крок 1:1, що множиться на 1, дорівнює 1
крок 2:2, що множиться на 2, дорівнює 4
крок 3:3, що множиться на 3, дорівнює 9
крок 4:4, що множиться на 4, дорівнює 16
крок 5:5, що множиться на 5, дорівнює 25
2.1) for i=1 to 9 do
begin
n:=9*і;
end;
2.2) for i=10 down to 1 do
begin
n:=Sqr(i);
end;
2.3) s:=0;
for i=1 to 10 do
begin
S:=S+i;
end;
2.4) d:=1;
for i=1 to 10 do
if і mod 2
begin
d:=d*i;
end;
3. Найменьший спільний дільник двох цілих чисел.
• Запустіть середовище Lazarus.
• Збережіть проект — натисніть Файл → Зберегти. У вікні, що відкрилось, оберіть папку та місце на комп’ютері, де буде зберігатись проект. Введіть ім’я проекту. Натисніть кнопку Зберегти. У вікні для збереження файла unit1 вказуємо те місце, де зберегли файл Project1, знову натискаємо кнопку Зберегти.
• Перейдіть у вікно дизайнерської форми.
• У таблиці властивості форми оберіть властивість Caption (Підпис), надайте значення цієї властивості — Найменьший спільний дільник двох цілих чисел.
• У вікні дизайнера форми Form1 додайте об’єкти, які мають такі властивості:
|
Об’єкт |
Властивість |
Значення властивості |
||
|
Label1 |
Caption |
X1 |
||
|
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
|||
|
Label2 |
Caption |
Х2 |
||
|
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
|||
|
Label3 |
Caption |
X |
||
|
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
|||
|
Label4 |
Caption |
|
||
|
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
|||
|
Edit1 |
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
||
|
Edit2 |
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
||
|
Edit3 |
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 14. |
||
|
Button1 |
Caption |
Розрахувати |
||
|
Font |
Шрифт Book Antiqua. Стиль шрифту звичайний. Розмір 16. |
|||
• На панелі Інспектор об’єктів на вкладці Події оберіть в полі OnClickButton1Click.
• Перейдіть в поле редактора коду та пропишіть такий програмний код для кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2:Iongint; x:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x:=StrToInt(Edit3.Text);
if x1 mod x = 0
then if x2 mod x = 0
then Label4.Саption:=’спільний множник’
else Label4.Сарtion:=’шукайте далі’;
end;
• Запустіть проекти на виконання, натиснувши кнопку F9. Перевірте дії, які виконуються під час настання подій для об’єктів екранних форм.
• Завершіть роботу з проектом і середовищем, виконавши Файл → Вихід.