Пример 4. Вводятся координаты точки

Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.

Решение:

program pr4;

var x,y: real;

begin

Write('введите x y ');

readln (x,y);

if (sqr(x)+sqr(y)<=25) and (sqr(x)+sqr(y)>=4) then writeln('точка попадает в заштрихованную область')

else writeln('точка не попадает в заштрихованную область');

readln;

end.

Результат:

1 случай:

введите x y 1 1

точка попадает в заштрихованную область

2 случай:

введите x y 2 5

точка не попадает в заштрихованную область

Пример 5.

Введено трехзначное число. Необходимо разбить его на цифры. Все четные цифры, которые меньше 8 увеличить на 2, а 8 заменить на 0.

Решение:

program pr5;

var n,a,b,c,d:Integer;

begin

write('введите n'); readln (n);

a:=n div 1000; b:=n div 100 mod 10;

c:=n div 10 mod 10; d:=n mod 10;

if (a mod 2=0) and (a<8) then a:=a+2 else if a=8 then a:=0;

if (b mod 2=0) and (b<8) then b:=b+2 else if b=8 then b:=0;

if (c mod 2=0) and (c<8) then c:=c+2 else if c=8 then c:=0;

if (d mod 2=0) and (d<8) then d:=d+2 else if d=8 then d:=0;

writeln('результат ',a,b,c,d);

readln;

end.

Результат:

введите n1824

результат 1046