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

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

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. Сохраните программу на своем диске:<F2> A:\P4PR1

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

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;

clrscr; {Очистка экрана}

writeln('Ваша оценка: ' , prav);

Readln

End.

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

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

4. Сохраните программу на своем диске:<F2> 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: boolen;

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. Сохраните программу на своем диске:<F2> A:\P4PR2

3. Выполнить самостоятельно: