По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 пример выходных данных: |ab|=10.0 пользуясь формулой: аб= корень из ((х1-х2)^2+(y2-y1)^2)
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (xa,ya):=ReadReal2('Введите координаты х и у точки А:'); var (xb,yb):=ReadReal2('Введите координаты х и у точки B:'); Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya))) end.
Пример Введите координаты х и у точки А: 10 2 Введите координаты х и у точки B: 10 7 |AB| = 5
1. var A: array [1..10] of integer; i, sum, k: integer; begin for i:=1 to 5 do read(A[i]); sum:=0; k:=0; for i:=1 to N div 2 do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое первой части=', sum/k); sum:=0; k:=0; for i:=5 to 10 do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое второй части=', sum/k); end.
2. const: N={количество элементов массива}; var A: array [1..N] of integer; i, sum, k: integer; begin for i:=1 to N do read(A[i]); sum:=0; k:=0; for i:=1 to (N div 2) do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое первой части=', sum/k); sum:=0; k:=0; for i:=(N div 2) to N do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое второй части=', sum/k); end.
1. пример линейного алгоритма: решение алгебраического примера, типа: 2+ (9-5)*(3+1). план действий: 1)вычитание в скобках 2)сложение в скобках 3)умножение 4) сложение
2. пример разветвляющего алгоритма: отрывок из сказки Пушкина: "пойдет налево - песнь заводит, направо - сказку говорит" возникают две ветви в зависимости от условия. условие, например - "пойдет налево". если да, то действие - песнь заводит. если нет - то сказку говорит.
3. циклический алгоритм: наполнить стакан водой с десертной ложечки. цикл будет повторяться до тех пор, пока стакан не наполнится водой.
// Внимание! Если программа не работает, обновите версию!
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
Пример
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5