22.01 Простые и составные условия

Задача 1

Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.

Решение:

{ Вычисление частного }

var

a,b,c: real; { делимое, делитель и частное }

begin

writeln('Вычисление частного');

writeln('Введите в одной строке через пробел делимое и делитель,');

writeln('затем нажмите ');

writeln('->');

readln (a,b);

if b<> 0 then

begin

c:=a/b;

writeln('частное от деления а на Ь равно ',с);

end else

writeln('Ошибка! Делитель не должен быть равен нулю!');

readln;

end.

Задача 2

var x: integer;
begin
write('Введите x = '); read(x);
if x > 0 then
write('положительное');
else
write('не положительное');
end.

Задача 2а

var x: integer;
begin
write('Введите x = '); read(x);
if x > 0 then
writeln('положительное');
if x = 0 then
write('0');
if x<0 then
writeln('отрицательное');

end.

Задача 3

uses GraphABC;
var m:integer;
begin
Rectangle(250,50,390,250);
SetBrushColor(clBlack);
Circle(320,100,30);
Circle(320,200,30);
SetBrushColor(clWhite);
writeln('Введите время');
read(m);
writeln(m);
if m mod 2 = 1 then
FloodFill(320,100,clRed)
else
FloodFill(320,200,clGreen);
end.