(*Объявление переменных*)
var
var1,var2,var3, result:real;
begin
(*Ввод значений*)
readln(var1, var2, var3);
(*Считаем натуральный лог. от квадрата суммы var1 и var3 *)
result := ln((var1 + var2) * (var1 + var2));
(*Выводим результат*)
writeln('Результат = ', result:2);
(*Выводим все введенные числа*)
writeln('Число 1 = ', var1:2);
writeln('Число 2 = ', var2:2);
writeln('Число 3 = ', var3:2);
end.
fpc 3.0.0 - compiler
Объяснение:
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.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.