Напишите программку которая вводит координаты двух точек на числовой оси и
Напишите программку которая вводит координаты двух точек на числовой оси и выводит расстояние между ними. Учитывайте , что первой может быть введена меньшая координата.
Задать свой вопрос1 ответ
Гость
Program rasstojanie1;
Uses CRT;
Var x1, x2, y1, y2, d : real;
Begin
CLRSCR;
Write ( vvedite pervuju koordinatu pervoj tochki x1= );
Readln (x1);
Write ( vvedite vtoruju koordinatu pervoj tochki y1= );
Readln (y1);
Write ( vvedite pervuju koordinatu vtoroj tochki x2= );
Readln (x2);
Write ( vvedite vtoruju koordinatu vtoroj tochki y2= );
Readln (y2);
d:= sqrt (sqr(x2-x1)+sqr(y2-y1));
Writeln ( rasstojanie mezhdu tochkami= , d:10:2 );
Repeat until keypressed;
End.
Program rasstojanie2;
Uses CRT;
Var x1, x2, d : real;
Begin
CLRSCR;
Write ( vvedite koordinatu pervoj tochki x1= );
Readln (x1);
Write ( vvedite koordinatu vtoroj tochki x2= );
Readln (x2);
d:= abs (x2-x1);
Writeln ( rasstojanie mezhdu tochkami= , d:10:2 );
Repeat until keypressed;
End.
Uses CRT;
Var x1, x2, y1, y2, d : real;
Begin
CLRSCR;
Write ( vvedite pervuju koordinatu pervoj tochki x1= );
Readln (x1);
Write ( vvedite vtoruju koordinatu pervoj tochki y1= );
Readln (y1);
Write ( vvedite pervuju koordinatu vtoroj tochki x2= );
Readln (x2);
Write ( vvedite vtoruju koordinatu vtoroj tochki y2= );
Readln (y2);
d:= sqrt (sqr(x2-x1)+sqr(y2-y1));
Writeln ( rasstojanie mezhdu tochkami= , d:10:2 );
Repeat until keypressed;
End.
Program rasstojanie2;
Uses CRT;
Var x1, x2, d : real;
Begin
CLRSCR;
Write ( vvedite koordinatu pervoj tochki x1= );
Readln (x1);
Write ( vvedite koordinatu vtoroj tochki x2= );
Readln (x2);
d:= abs (x2-x1);
Writeln ( rasstojanie mezhdu tochkami= , d:10:2 );
Repeat until keypressed;
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Облако тегов