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

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

Var

a, b: integer; {Операнды – целые числа}

result: real; {Результат – вещественное число}

Begin

write ('Введите значение делимого a: '); read(a);

write ('Введите значение делимого b: '); read(b);

if b=0

{Условие выполнено}

then writeln (′Неверные исходные данные: делитель - ноль′)

{Условие не выполнено}

Else

{Составной оператор нужен для объединения двух команд в единое целое}

begin{Начало составного оператора}

result:=a/b;

writeln (′Частное чисел′, a, ′и′, b, ′ =′, result:7:3);

end{Конец составного оператора}

End.

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

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

4. Сохраните программу на своем диске: <F2> A:\P3PR1

Упражнение 2. Вычислить частное двух целых чисел. В связи с тем, что делить на ноль нельзя, организуем контроль ввода данных.

Var

n: integer;

Begin

write ('Введите целое число: ');

readln(n);

write ('Число ', n, ′ - ′);

if n mod 2=0 then writeln (′четное′) else writeln (′нечетное′);

End.

Комментарий: для проверки на нечетность можно использовать функцию odd:

if odd(n) then writeln (′нечетное′) else writeln (′четное′);

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

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

4. Сохраните программу на своем диске: <F2> A:\P3PR2

Упражнение 3. Вывести на печать название дня недели, соответствующее заданному числу D, при условии, что в месяце 31 день и 1-е число – понедельник. Для решения задачи воспользуемся операцией mod, позволяющей вычислить остаток от деления двух чисел, и условием, что 1-е число – понедельник. Если в результате остаток от деления заданного числа D на 7 будет равен 1, то это понедельник, двойке – вторник, тройке – среда и т.д.

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

Program D_NED;

Var