ГДЗ до підручника «Інформатика» Н.В. Морзе. 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. Перевірте дії, які виконуються під час настання подій для об’єктів екранних форм.

• Завершіть роботу з проектом і середовищем, виконавши Файл → Вихід.


buymeacoffee