Pascal | Практическая №4

Задания уровня 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.

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

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

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