По заданным координатам точек А и В вычислите длину отрез- ка AB. Подсказка: Расстояние d между точками А (x, y) и В (x, y, выражается формулой d = f(x, -х.) + (у, -у). Пример входных данных ха=2 уа=1 хb=10 yb=7 Пример выходных данных xas2 І АВ І=10.0
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите через пробел a,b:');
Writeln(a,' + ',b,' = ',a+b);
Writeln(a,' - ',b,' = ',a-b);
Writeln(a,' * ',b,' = ',a*b);
end.
Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74
begin
var n:=ReadInteger('n=');
var a:=ReadReal('a=');
var p:=1/a;
var s:=p;
for var i:=1 to n do begin p/=(a+i); s+=p end;
Writeln(s)
end.
Пример
n= 6
a= 2.4
0.57315329840095
begin
var n:=ReadInteger('n=');
var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
Writeln('Сумма модулей равна ',s)
end.
Пример
n= 6
Введите 6 чисел: -4.35 2.63 11 -8.1 0 -6.4
Сумма модулей равна 32.48
36 25 24 13 12 1
35 26 23 14 11 2
34 27 22 15 10 3
33 28 21 16 9 4
32 29 20 17 8 5
31 30 19 18 7 6
Объяснение:
1)
const n=6;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
if i mod 2=1
then for j:=1 to n do a[i,j]:=n*i-j+1
else for j:=1 to n do a[i,j]:=n*(i-1)+j;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Результат:
6 5 4 3 2 1
7 8 9 10 11 12
18 17 16 15 14 13
19 20 21 22 23 24
30 29 28 27 26 25
31 32 33 34 35 36
2)
const n=6;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for j:=n downto 1 do
if (n+j) mod 2=0
then for i:=1 to n do a[i,j]:=n*(n-j)+i
else for i:=1 to n do a[i,j]:=n*(n-j+1)-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Результат:
36 25 24 13 12 1
35 26 23 14 11 2
34 27 22 15 10 3
33 28 21 16 9 4
32 29 20 17 8 5
31 30 19 18 7 6