Извините, что-то я не заметил, что в задании на Паскале надо было написать, поэтому сначала на Питоне написал.
Вот на Паскале:
program HW;
var r,x,y: real;
var chk:string;
begin
write('Введите радиус: '); readln(r);
r := abs(r);
write('Введите X координату точки: '); readln(x);
write('Введите Y координату точки: '); readln(y);
if (x>=0) and (abs(x)<=r) and (y>=0) and (abs(y)<=r) then chk := 'ВХОДИТ'
else if (x<=0) and (abs(x)<=r) and (y<=0) and (abs(y)<=r) then chk := 'ВХОДИТ'
else if (x<=0) and (abs(x)<=r) and (y>=0) and (abs(y)<=r) and (y<=-1*sqrt(sqr(r)-sqr(x+r))+r) then chk := 'ВХОДИТ'
else if (x>=0) and (abs(x)<=r) and (y<=0) and (abs(y)<=r) and (y>=sqrt(sqr(r)-sqr(x-r))-r) then chk := 'ВХОДИТ'
else chk := 'НЕ ВХОДИТ';
writeln('Точка с координатам (', x:1:1, ', ', y:1:1, ') ', chk, ' в выделенную область.');
end.
А это то же на Питоне, вдруг пригодится:
import math
r = abs(float(input("Введите радиус: ")))
x = float(input("Введите X координату точки: "))
y = float(input("Введите Y координату точки: "))
if x>=0 and abs(x)<=r and y>=0 and abs(y)<=r: chk = 'ВХОДИТ'
elif x<=0 and abs(x)<=r and y<=0 and abs(y)<=r: chk = 'ВХОДИТ'
elif x<=0 and abs(x)<=r and y>=0 and abs(y)<=r and y<=-1*math.sqrt(r**2-(x+r)**2)+r: chk = 'ВХОДИТ'
elif x>=0 and abs(x)<=r and y<=0 and abs(y)<=r and y>=math.sqrt(r**2-(x-r)**2)-r: chk = 'ВХОДИТ'
else: chk = 'НЕ ВХОДИТ'
print("Точка с координатам (%.1f, %.1f) %s в выделенную область." % (x, y, chk))
Зачем нужны программы распознавания текста.
С их выполняется редактирование информации, исправление ошибок, сохранение данных в нужном формате и т.
Как происходит распознавание текста?
Поэтапное сканирование и распознавание текста. ... Далее происходит проверка на предмет синтаксических и орфографических ошибок
Какие программы распознавание текста вы знаете?
Они с легкостью переведут pdf, jpg, png или «бумажный файл» в редактируемый формат для Word и прочих офисных приложений.
ABBYY FineReader.
OCR CuneiForm.
Readiris Pro.
Freemore OCR.
ABBYY Screenshot Reader.
Adobe Acrobat Pro.
Scanitto Pro.
RiDoc.
Какими пользовались?
ABBYY FineReader.
OCR CuneiForm.
Поделитесь своими знаниями, ответьте на вопрос:
Одномерный массив а(15) заполнен случайным образом в интервале(-15, 20 получить массив в таким образом, чтобы его элементами были нечётные элементы массива а
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-15,20); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
-5 17 0 6 -3 10 -5 18 1 15 3 18 -1 -1 12
-5 17 -3 -5 1 15 3 -1 -1