Задания уровня 1

Упражнение 1.
    Программа выводит на экран диапазон чисел.

1. Наберите текст программы:


Program CIKL;
Var {Описание параметров цикла}
i: integer;
c: char;
b: boolean;
begin
{Вывод на печать целых чисел от 1 до 10}
for i:=1 to 10 do writeln (i);
{Вывод на печать целых чисел от 10 до -10}
for i:=10 downto -10 do
writeln (i);
{Вывод на печать латинских символов от a до r}
{ Параметр цикла изменяется от a до r в алфавитном порядке}
for c:='a' to 'r' do writeln (c);
end.

 2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P4PR1

 

Упражнение 2.
     Тест по таблице умножения: ученику задается ровно пять вопросов и в конце тестирования выставляется оценка по пятибалльной системе.

1. Наберите текст программы:


Program TABL;
uses CRT; {Подключаем графический модуль}
var s1, s2, otvet, k, prav: integer; {s1,s2–сомножители, otvet–ответ ученика, prav – пр. ответ }
begin
randomize; {Инициализация датчика случайных чисел}
clrscr; {Очистка экрана}
for k:=1 to 5 do
begin
s1:= random(18)+2; s2:= random(18)+2;{s1,s2 – случайные числа в диапазоне от 2 до 19}
write ('Сколько будет ', s1, ' * ', s2, '? ');
readln (otvet);
if otvet=s1*s2 then
begin
write(' Правильно! ');
prav:=prav+1;
end
else write(' Неверно… ');
end;
if prav < 3 then prav:=2;
clrscr; {Очистка экрана}
writeln(' Ваша оценка: ' , prav);
end.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P4PR2

 

Упражнение 3.
     Дано натуральное число N. Определить, является ли оно простым. Натуральное число N называется простым, если оно делится нацело без остатка только на единицу и N. Число 13 – простое, т.к. делится только на 1 и 13, N=12 не является простым, т.к. делится на 1, 2, 3, 4, 6, 12. Алгоритм решения этой задачи заключается в том, что число N делится на параметр цикла i, изменяющийся в диапазоне от 2 до N/2. Если среди значений параметра не найдется ни одного числа, делящего заданное число нацело, то N – простое число, иначе оно таковым не является.
 

1. Наберите текст программы:


Program PRCH;
Var
N, i: integer;
Pr: boolean;
begin
writeln ('N= ');
readln(N);
Pr:=true; {Предположим, что число простое}
for i:=2 to N div 2 do
if N mod i=0 then {Если найдется хотя бы один делитель, то}
begin
Pr:=false; {число простым не является, и}
break; {досрочный выход из цикла}
end;
if Pr then {Проверка значения логического параметра и вывод на печать соответствующего сообщения}
writeln('Число ', N, ' - простое')
else
writeln('Число ', N, ' простым не является')
end.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P4PR3

Задания уровня 2

1. Вычислить an (n>0), где a — вещественное число, которое необходимо возвести в целую положительную степень n. Записать программу под именем P4PR4
2. Вычислить сумму натуральных нечетных чисел, не превышающих n. Сохранить программу под именем P4PR5
3. Вычислить произведение натуральных чисел, кратных трем и не превышающих n. Сохранить программу под именем P4PR6
4. Выведите на экран в три столбца список чисел от 1 до N, их квадратов и кубов. Число N вводите с клавиатуры. Сохранить программу под именем P4PR7
5. Вычислите сумму S и произведение P всех целых чисел от N1 до N2. Пример: для N1=3, N2=7 получим S=25, P=2520. Сохранить программу под именем P4PR8
 

Задания уровня 3

 
6. Напишите программу вычисления выражения (3-x)(6-x)(9-x)• … •(21-x), где x – действительное число. Сохранить программу под именем P4PR9
7. Последовательно вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел. Сохранить программу под именем P4PR10
8. Вводится последовательность из M элементов. Каждый элемент последовательности – цифра (то есть находится в диапазоне от 0 до 9). Сформировать число N, считая первый элемент последовательности младшим разрядом. Например, дана последовательность 5, 4, 3, 2, 1, тогда десятичное число формируется следующим образом: 5+4*10+3*100+2*1000+1*10000=12345. Сохранить программу под именем P4PR10

 
Контрольные вопросы:
1. Что называют циклом?
2. Какова функция оператора цикла с параметром?
3. В программах какого типа используется счетный оператор цикла?
4. Каким образом изменить наращивание переменной цикла в отрицательную сторону?
5. Перечислите правила использования оператора цикла с параметром.