Глава 1. Основы алгоритмизации и программирования (выполненные задания по учебнику 8 класса ).

else

if a=b then writeln('Спасибо!')

{проверка условия того, что денег внесено больше, если истина, то на экран выводится сообщение "Сдача" и размер сдачи, в противном случае проверка условия того, что денег внесено столько же, сколько стоит книга, если условие выполняется, то на экран выводится сообщение "Спасибо!"}

End.

Результат работы программы может выглядеть так:

Ведите стоимость книги

15000

Ведите сумму внесённых денег

20000

Сдача 5000

Ведите стоимость книги

15000

Ведите сумму внесённых денег

15000

Спасибо!

§ 3. Алгоритмическая конструкция ПОВТОРЕНИЕ.

Коротко о главном:

• Есть несколько форм оператора for: оператор цикла с параметром и оператор цикла с предусловием.

• Параметр цикла for в теле цикла нельзя изменять с помощью команды присваивания.

• Параметр цикла, его начальное и конечное значения должны принадлежать к одному типу данных (чаще всего integer, но могут быть и другие, кроме вещественного).

• Оператор цикла с предусловием применяется в случае, если число повторений тела цикла заранее неизвестно и определяется в ходе выполнения цикла.

• Цикл с предусловием может выполняться бесконечно, если значение условия всегда будет истинным.

• Цикл с предусловием не выполнится ни разу, если условие сразу оказывается ложным.

Упражнение 1

Сколько раз выполнится тело цикла

For n:=3 to 6 do write (‘*’);?

Ответ:

1. раза (для n=3, 4, 5, 6).

Упражнение 2

Составьте программу, которая 6 раз выведет на экран фразу «Я люблю свою Родину!» в строку через пробел.

Ответ:

Program upr3_2;

Var i: integer;

Begin

for i:=1 to 6 do {Параметр i меняется от 1до 6 с шагом 1}

write('Я люблю свою Родину! '); {Вывод текстового сообщения «Я люблю свою Родину!»}

End.

Результат работы программы может выглядеть так:

Я люблю свою Родину! Я люблю свою Родину! Я люблю свою Родину! Я люблю свою Родину! Я люблю свою Родину! Я люблю свою Родину!

Упражнение 3

Составьте блок – схему и напишите программу вывода на экран:

А) 5 первых четных натуральных чисел;.

Ответ:

Program upr3_3A;

Var i, x: integer;

Begin

x:=2; {первое чётное натуральное число равно 2}

for i:=1 to 5 do {Параметр i меняется от 1до 5 с шагом 1}

begin write(x,' '); {вывод очередного чётного числа}

x:=x+2 ; {Следующее чётное число на 2 больше предыдущего}

end;

End.

Результат работы программы может выглядеть так:

2 4 6 8 10

Б) n первых натуральных чисел;.

Блок – схема:

Ответ:

Program upr3_3B;

Var i, n: integer;

Begin

writeln ('Ведите n');

readln (n); {ввод значения числа n}

for i:=1 to n do {Параметр i меняется от 1 до n с шагом 1}

write(i,' '); {вывод очередного натурального числа}

End.

Результат работы программы может выглядеть так:

Ведите n

7

1 2 3 4 5 6 7

Упражнение 4

Составьте программу, которая вычисляет сумму натуральных чисел от 10 до 15 и выводит на экран результат.

Ответ:

Program upr3_4;

Var i, S: integer;

Begin

S:=0; {Начальное значение суммы}

for i:=10 to 15 do {Параметр i меняется от 10 до 15 с шагом 1}

S:=S+i; {увеличение суммы на очередное число}

write('Сумма = ',S); {вывод конечного значения суммы}

End.

Результат работы программы может выглядеть так:

Сумма = 75

Упражнение 5

Составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+…, чтобы сумма оказалась:

А) больше 20;

Б) больше заданного числа n.

Результат – количество слагаемых – выведите на экран. Составьте блок – схемы.

Ответ А:

Program upr3_5A;

Var i, S: integer;

Begin

S:=1; {Начальное значение суммы}

i:=1; { Первое слагаемое равно 1}

while S

begin

i:=i+1; {Очередное слагаемое на 1 больше предыдущего}

S:=S+i; {увеличение суммы на очередное число}

end;

write(i, ' слагаемых'); {вывод конечного значения суммы}

End.

Результат работы программы может выглядеть так:

6 слагаемых

Блок – схема:

Ответ Б:

Program upr3_5B;

Var i, n, S: integer;

Begin

writeln ('Ведите n');

readln (n); {ввод значения числа n}

S:=1; {Начальное значение суммы}

i:=1; { Первое слагаемое равно 1}

while S

begin

i:=i+1; {Очередное слагаемое на 1 больше предыдущего}

S:=S+i;{увеличение суммы на очередное число}

end;

write(i, ' слагаемых'); {вывод конечного значения суммы}

End.

Результат работы программы может выглядеть так:

Ведите n

20

6 слагаемых

Блок – схема:

Упражнение 6

Составьте программу, которая рисует красные круги радиуса 30 по вертикали вдоль левого края графического окна.

Ответ:

Program upr3_6;

uses graphabc;

Var x, y, r: integer;

Begin

SetWindowSize (640,480);

ClearWindow;

SetBrushColor (clRed);

x:=32; y:=32; {начальное значение x, y}

r:=30;

while ydo

begin

Circle (x, y, r); {Пока y

y:=y+60; {Смещение координаты y для следующего круга}

end ;

End.

Результат работы программы может выглядеть так:

Упражнение 7

Составьте программу, которая имитирует движение голубого шарика радиуса 20 по горизонтали слева направо вдоль нижнего края графического окна.

Ответ:

Технология создания:

1. нарисовать объект и организовать временную паузу;

2. нарисовать объект на прежнем месте цветом фона (стереть объект);

3. повторять действия 1) и 2), изменяя координаты объекта.

Program upr3_7;

uses graphabc;

Var x, y, r: integer;

Begin

SetWindowSize (640,480);

ClearWindow;

x:=22; y:=22; {начальное значение x, y}

r:=20;

while y

begin {Пока y

SetBrushColor (clBlue);

Circle (x, y, r);

Sleep(10); {Пауза в милисекундах}

SetBrushColor (clWhite);

SetPenColor (clWhite);

Circle (x, y, r); {Стирание объекта}

y:=y+4; {Смещение координаты y для следующего круга}

end ;

End.

§ 4. Составление и реализация алгоритмов с повторением.

Упражнение 1

Составьте программу, которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат.

Ответ:

Program upr4_1;

Var i, P: integer;

Begin

P:=1; {Начальное значение произведения}

for i:=5 to 10 do {Параметр i меняется от 5 до 10 с шагом 1}

P:=P*i; {увеличение произведения на очередное число}

write('Произведение = ',P); {вывод конечного значения произведения}

End.

Результат работы программы может выглядеть так:

Произведение = 151200

Упражнение 2

Составьте программу, которая выводит на экран квадраты n первых натуральных чисел.

Ответ:

Program upr4_2;

Var i,n: integer;

Begin

writeln ('Ведите n');

readln (n); {ввод значения числа n}

for i:=1 to n do {Параметр i меняется от 1 до n с шагом 1}

write(sqr(i),' '); {вывод конечного значения через пробел}

End.

Результат работы программы может выглядеть так:

Ведите n

14

1 4 9 16 25 36 49 64 81 100 121 144 169 196

Упражнение 3

Составьте программу, которая выводит на экран значение выражения:

А) 5ⁿ; Б) а¹⁰; В) (а+1)ⁿ.

Ответ А:

Program upr4_3А;

Var i,n, P: integer;

Begin

writeln ('Ведите n');

readln (n); {ввод показателя степени}

P:=1; {Начальное значение P равно1}

for i:=1 to n do {Параметр i меняется от 1 до n с шагом 1}

P:=P*5; {В переменной P накапливается значение степени}

write('P=',P);

End.

Результат работы программы может выглядеть так:

Ведите n

3

P=125

Ответ Б:

Program upr4_3B;

Var i, a, P: integer;

Begin

writeln ('Ведите a');

readln (a); {ввод основания}

P:=1; {Начальное значение P равно1}

for i:=1 to 10 do {Параметр i меняется от 1 до 10 с шагом 1}

P:=P*a; {В переменной P накапливается значение степени}

write('P=',P);

End.

Результат работы программы может выглядеть так:

Ведите a

2

P=1024

Ответ В:

Program upr4_3V;

Var i,a, n, P: integer;

Begin

writeln ('Ведите a');

readln (a); {ввод основания}

writeln ('Ведите n');

readln (n); {ввод показателя степени}

P:=1; {Начальное значение P равно1}

for i:=1 to n do {Параметр i меняется от 1 до n с шагом 1}

P:=P*(a+1); {В переменной P накапливается значение степени}

write('P=',P);

End.

Результат работы программы может выглядеть так:

Ведите a

2

Ведите n

3

P=27

Упражнение 4

Составьте программу, которая рисует картинку «Звёздное небо»: n маленьких разноцветных кругов («звёзд»), радиус которых определяется случайным образом в диапазоне от 4 до 14, на тёмно – синем фоне.

Ответ:

Program upr4_4;

uses graphabc;

Var n, i, x, y: integer;

Begin

writeln ('Ведите n');

readln (n); {ввод числа звёзд}

SetWindowSize (640,480);

ClearWindow(clBlue);

for i:=1 to n do

begin

SetBrushColor (rgb(i*100,i*25,i*50)); {цвет кисти разных оттенков}

x:=random(640); y:=random(480);

Circle (x, y, random(11)+4);

end;

End.

Результат работы программы может выглядеть так:

Ведите n

80

Упражнение 5

Составьте программу, которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.

Ответ:

Program upr4_5;

uses graphabc;

Var n, i, x, y: integer;

Begin

SetWindowSize (640,480);

ClearWindow;

SetBrushColor (clGreen); {зелёный цвет кисти}

for i:=10 downto 1 do {изменение параметра i от 10 до 1 с шагом 1}

Circle (320, 240, 20*i);

{рисование окружностей разного радиуса, начиная с самой большой}

End.

Результат работы программы может выглядеть так:

Упражнение 6

Составьте программу, которая определяет, являются ли два данных натуральных числа взаимно простыми, и выводит на экран соответствующее сообщение: «Да» либо «Нет». (Натуральные числа называются взаимно простыми, если их наибольший делитель равен 1).

Ответ:

Program upr4_6;

Var i, a, b: integer;

Begin

writeln ('Ведите a');

readln (a); {ввод первого числа}

writeln ('Ведите b');

readln (b); {ввод второго числа}

while ab do {Проверка равенства чисел}

if ab then a:=a-b else b:=b-a;

{Всегда из большего вычитаем меньшее}

if a=1 then writeln ('Да')else writeln ('Нет');

{Поскольку после выполнения цикла a и b равны, то мы одно из них сравниваем с 1}

End.

Результат работы программы может выглядеть так:

Ведите a

5

Ведите b

4

Да

Ведите a

20

Ведите b

4

Нет

Упражнение 7

Составьте программу, которая определяет, является ли данное натуральное число простым, и выводит на экран соответствующее сообщение: «Да» либо «Нет». (Простое число делится на 1 и на само себя).

Ответ:

Program upr4_7;

Var i,a, k: integer;

Begin

write ('Ведите a = '); readln (a); {ввод числа}

k:=0;

for i:=2 to (a div 2) do

if a mod i = 0 then k:=1;

{Если остаток от деления а на i равен нулю, то значит найден делитель}

if k=1 then writeln ('Нет')else writeln ('Да');

{Если найден делитель и число соответственно не простое, то выводится сообщение "Да", иначе - "Нет"}

End.

Результат работы программы может выглядеть так:

Ведите a = 20

Нет

Ведите a = 17

Да

Упражнение 8

Составьте программу, которая определяет, через сколько лет сумма в S р., положенная в банк под P% годовых с капитализацией, увеличится в 3 раза.

Ответ:

Program upr4_8;

Var s0, p, i, k: integer; s: real;

Begin

writeln ('Ведите сумму вклада '); readln (s0);

{ввод первоначальной суммы вклада}

writeln ('Ведите процентную ставку '); readln (p);

{ввод процентной ставки}

s:=s0; k:=0;

while s

begin

s:=s+s*p/100; k:=k+1;

{Ежегодное увеличение суммы и счётчика }

end;

writeln('Через ', k,' лет');

End.

Результат работы программы может выглядеть так:

Ведите сумму вклада

3000000

Ведите процентную ставку

15

Через 8 лет

Упражнение 9

Составьте программу вывода на экран n первых чисел Фибоначчи. (Числа Фибоначчи – это члены числовой последовательности 1, 1, 2, 3, 5, 8, 13, …, которые вычисляются по следующему правилу: а₁=1, а₂=1, а₃=а₂+а₁, … а_n=a_n-1+a_n-2).

Ответ:

Program upr4_9;

Var i, a, b, n: integer;

Begin

writeln ('Ведите n '); readln (n); {ввод n}

a:=1; b:=1;

if n mod 2 0 {Проверка чётности введённого числа n}

then

for i:=1 to n div 2+1 do

{Параметр цикла изменяется от 1 до n делённое нацело надвое плюс 1, например: для n=9 параметр цикла изменяется до 5, с шагом 1}

begin

write(a,' ');

if in div 2 {Проверка условия: параметр цикла меньше либо равен n делённое нацело надвое}

then write(b,' ');

a:= a+b; b:=b+a; {Изменение значений первого и второго слагаемого}

end

else

for i:=1 to n div 2 do {Параметр цикла изменяется от 1 до n делённое нацело надвое с шагом 1}

begin

write(a,' '); {Печать первого слагаемого}

a:= a+b; write(b,' '); b:=b+a;

{Печать второго слагаемого и изменение значений первого и второго слагаемого}

end ;

End.

Результат работы программы может выглядеть так:

Ведите n

9

1 1 2 3 5 8 13 21 34

Ведите n

10

1 1 2 3 5 8 13 21 34 55

Упражнение 10

Составьте программу «Угадай!» . Программа «задумывает» случайное число в диапазоне от 0 до 99. После каждой попытки играющего угадать число программа выводит на экран одно из сообщений: «Больше», «Меньше» или «Угадано». На отгадывание числа даётся 10 попыток. Программа завершается после выполнения одного из условий: дан правильный ответ либо все попытки исчерпаны.

Ответ:

Program upr4_8;

Var x, i, a, k: integer;

Begin

x:=random(100); {Случайное число от 0 до 99 помещается в переменную х}

writeln ('Задумано число от 1 до 99. Угадайте его!');

writeln ('У вас есть 10 попыток.');

i:=1; k:=0; {Номер попытки и количество сделанных попыток}

while i

begin

write('Попытка №',i,'. Введите предполагаемое число: ');readln (a);

{ввод числа}

i:=i+1;

if ax

then write('Меньше')

else if aБольше')

else begin write('Угадано'); i:=11; end;

writeln; {Переход на следующую строку}

k:=k+1;

end;

write('Число попыток: ',k);

End.

Результат работы программы может выглядеть так:

Задумано число от 1 до 99. Угадайте его!

У вас есть 10 попыток.

Попытка №1. Введите предполагаемое число: 50

Меньше

Попытка №2. Введите предполагаемое число: 25

Меньше

Попытка №3. Введите предполагаемое число: 12

Меньше

Попытка №4. Введите предполагаемое число: 6

Меньше

Попытка №5. Введите предполагаемое число: 3

Меньше

Попытка №6. Введите предполагаемое число: 2

Меньше

Попытка №7. Введите предполагаемое число: 1

Угадано

Число попыток: 7