Номер 4, страница 178 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.4. Программирование разветвляющихся алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 4, страница 178.

Условие.

4. Две точки на плоскости заданы своими координатами. Разработайте, отладьте и протестируйте программу, определяющую, которая из точек находится ближе к началу координат. Для проверки правильности программы используйте тест:

Входные данные	Выходные данные
Координаты 1-й точки>>1 2 Координаты 2-й точки>>3 4	1-я точка ближе
Координаты 1-й точки>>1 2 Координаты 2-й точки>>2 1	Точки равноудалены
Координаты 1-й точки>>2 4 Координаты 2-й точки>>2 2	2-я точка ближе

Решение.

var
x1, y1, x2, y2: integer;
z1, z2: real;
begin
writeln ('Введите координаты двух точек');
readln (x1, y1, x2, y2);
z1:=sqrt (x1*x1+y1*y1);
z2:=sqrt (x2*x2+y2*y2);
if z1=z2 then
writeln ('Точки равноудалены')
else
if z1‹z2 then
writeln ('1-я точка ближе')
else
writeln ('2-я точка ближе');
end.