Практическая работа №17 Тема: Цикл с параметром.

Практическая работа  №17

Тема: Цикл с параметром.

Задача №15 «Нахождение делителей числа».

Цель:

Ø  Закрепить принцип работы оператора цикла с параметром.

Ø  Продолжить формировать навыки программирования циклических алгоритмов в среде TP.

Рассмотрим задачу «Найти делители числа»

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

Определим входные данные: i - счётчик цикла, n - натуральное число.

Определим параметры цикла:1-начальное значение, n – конечное значение.

Результат: i – делители числа  n.

Программа:

program deliteli;

uses Crt;

var n,i:integer;

begin

ClrScr;

writeln ('введите число');

readln (n);

writeln ('делители');

for х:=1 to n do

if n mod i=0 then write (i);

end.

Задания

1)       Запустить программу Pascal

2)       Ввести программу deliteli.

3)       Произвести компиляцию. Запустить программу.

4)       Ввести число 36.

5)       Получить ответы и записать их в тетрадь.

6)       Запустить программу ещё раз.

7)       Ввести  152.

8)       Получить ответы. Записать их в тетрадь.

9)       Сохраните программу в файле.

Дополнительные задания

10)   Ввести в эту программу все числа от 1 до 20 (поочерёдно) и проверить является ли оно простым числом. (Простое число – число, делящееся только на 1 и на само себя).

11)   Найти все простые числа и записать их в тетрадь.

12)   Сохраните программу в файле.

Скачано с www.znanio.ru