1). составить алгоритм и программу определения расстояния между точкамим( х, у) и м1( х1, у1). 2)составить алгоритм и программу для заданного трехзначного числа вычислить среднее арифметическое и среднее цифр , образующих это число .
Алгоритм: 1- введите числа для х, х1, у, у1 2- мы знаем что формула нахождения точек равна : Мм1=sqrt[(x1-x)^2+(y1-y)^2] sqrt это корень. 3- подставляем 4- потом мы вычитаем в скобках числа 5- умножаем полученные цифры на квадрат 6- вычитаем корень
Вот сама программа: Var x, x1,y, y1,t,a,b:real; Begin Readln(x, x1, y, y1); A:=sqr(x1-x); B:=sqr(y1-y); T:=sqrt(a+b); Write(t); End. если будут ошибки в проге, то сори, с телефона пишу. А что во 2 нужно сделать? Я не до конца понял
1- введите числа для х, х1, у, у1
2- мы знаем что формула нахождения точек равна : Мм1=sqrt[(x1-x)^2+(y1-y)^2] sqrt это корень.
3- подставляем
4- потом мы вычитаем в скобках числа
5- умножаем полученные цифры на квадрат
6- вычитаем корень
Вот сама программа:
Var x, x1,y, y1,t,a,b:real;
Begin
Readln(x, x1, y, y1);
A:=sqr(x1-x);
B:=sqr(y1-y);
T:=sqrt(a+b);
Write(t);
End.
если будут ошибки в проге, то сори, с телефона пишу.
А что во 2 нужно сделать? Я не до конца понял