Написать программу на языке паскаля . заданы координаты двух точек. определите, расположены ли они на одной окружности с центром в начале координат. результат присвоить символьной переменной. две точки находятся на одной окружности, если длины радиус-векторов, соединяющих эти точки с началом координат, равны (проверку на равенство осуществить с точностью до е=1.0е-3)
акакий27
3
19.03.2019 11:50
1
Другие вопросы по теме Информатика
77linnik
19.05.2020 15:20
irinka218
19.05.2020 15:19
ddaler
19.05.2020 15:19
Матрос573
19.05.2020 15:19
Vladiko011
04.09.2019 11:20
диана2434
04.09.2019 11:20
Саня130905
04.09.2019 11:10
ArinaM25
04.09.2019 11:10
SuperWalker
04.09.2019 11:10
матвей426
04.09.2019 11:10
Популярные вопросы
- Польза фотосинтеза 8 штук (отвечать если только знаете)...
1 - Отношение длин сторон параллелограмма 5:8 . Вычисли длины сторон...
1 - Составьте по образцу сложноподчинённые предложения обратите внимание...
2 - Россия как демократическое государство придерживается принципа...
3 - математика 6класс #1034 1)3х+(5х-2) 3-2х 4(5х-1)-21х 1-3х 2)...
3 - не могу понять какой ответ...
1 - Дано: U1=220(B) P2=2.7(кВт) ΔР=0.4(кВт) cosφ1=0.72 Найти: P1-?...
1 - даю 20 б Предстожения с ОДНО 1 вариант3. Укажите предложение,...
3 - Табыңдар. жинаңдар. Онда төмендегідей сұрақтарға жауап беріңдер.1....
3 - 2. Используя данные приложения 1, классифицируйте страны мира...
1
var x1,x2,y1,y2:real;
a:string;
begin
readln(x1,y1);
readln(x2,y2);
if abs(x1/y1)=abs(x2/y2) then a:='Na odnoi okrujnosti' else a:='Ne na odnoi okrujnosti';
writeln(a);
end.
var x1,x2,y1,y2:real;
a:string;
begin
readln(x1,y1);
readln(x2,y2);
if abs(x1/y1)=abs(x2/y2) then a:='вот здесь я незнаюi';
writeln(a);
end.