Решение практических задач (урок_1)

Использование числовых последовательностей

Задание 1. Вывести на экран последовательность целых чисел от 1 до 20.

begin for var i:=1 to 20 do begin write(i); end; end.

Упражнения:

1. Добавьте в вывод чисел разделитель ";".

2. Выведите числовую последовательность от 50 до 100.

3. Выведите числа в столбец.

4. Выведите на экран 10 случайных чисел (из промежутка от 1 до 100) и их квадраты. Для случайного числа используйте команду x:=random(1,100);

Использование числовых последовательностей

Задание 2. Вывести на экран последовательность четных двузначных чисел в строку через запятую.

begin for var i:=10 to 99 do begin if i mod 2 = 0

then write(i, ','); end; end.

Упражнения:

1. Выведите на экран все трехзначные числа, кратные 3 в строку через двоеточие.

2. Выведите на экран все числа от 100 до 200, кратные 12 в столбец.

Нахождение суммы числовой последовательности

Задание 3. Посчитать сумму чисел от 1 до 100.

var S: integer;

begin

S:=0; for var i:=1 to 100 do begin S:=S+i;

end;

writeln(S); end.

Упражнения:

1. Найдите сумму трехзначных целых чисел.

2. Найдите произведение целых чисел от 2 до 10.

Нахождение суммы числовой последовательности

Задание 4. Посчитать сумму четных чисел от 1 до 100.

var S: integer;

begin

S:=0; for var i:=1 to 100 do begin if i mod 2 =0

then S:=S+i;

end;

writeln(S); end.

Упражнения:

1. Найдите сумму нечетных двузначных чисел.

2. Найдите сумму трехзначных чисел, кратных 5.

Нахождение количества чисел, удовлетворяющих условию

Задание 5. В лотерее номер билета генерируют случайным образом из промежутка (1. .100). Выигрышным считается билет, номер которого кратен 5. Определить, сколько выигрышных билетов среди n сгенерированных.

var n, k, a:integer; begin write('Количество билетов n ='); // сколько билетов генерируют read(n);

k:=0; // k - количество выигрышных билетов for var i:= 1 to n do begin a:= random(1,100); write(a,' '); // генерируем номер билета а if a mod 5 = 0 then k := k+1; // если номер а кратен 5, то количество k увеличиваем на 1 end; writeln; // переход на новую строку writeln('Выиграло ',k, ' билета(-ов)'); // вывод результата end.

Упражнения:

1. На ферме работают 10 сборщиков ягод. Определите количество сборщиков, которые собрали за день больше 5 килограммов ягод. Масса собранных ягод каждым сборщиком генерируется случайным образом из промежутка (1..20).

2. Найдите количество четных трехзначных чисел.

Домашнее задание:

Параграф 19

Задачи:

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

2. Составьте программу, которая найдет количество трехзначных чисел, кратных 3. (в помощь - программа примера 19.6 (стр.100 учебника).