переписать код без процедуры функции длины
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
108
380
Ответы на вопрос:
Объяснение:
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
var i: integer;
begin
for i: =1 to 8 do
writeln(i,' -> в квадрате ',i*i,' -> в кубе ',i*i*i);
end.
Популярно: Информатика
-
Bananthic22.09.2020 16:18
-
lavrinenkoll26.09.2022 18:20
-
Ilyas30rus09.12.2020 21:55
-
Snow24114.01.2021 09:37
-
melochun114.12.2022 04:33
-
nastyafominto04.10.2020 05:46
-
pohta00000023.09.2020 02:04
-
alice160718.01.2021 11:19
-
триggg28.01.2023 08:10
-
Асуна22511.01.2022 15:33