2. Создайте документ под названием WordART. В этом у создайте 5 экземпляров объекта WordART. К каждом пляру примените различные форматирования KHMra-RULOUR SHONMAM
//2 var a, b, c: real; begin write('Введите стороны треугольника A B C: '); readln(a, b, c); writeln('Периметр = ', a + b + c); end.
//3 var a, b: real; begin write('Введите стороны прямоугольника A B: '); readln(a, b); writeln('Площадь = ', a * b); writeln('Периметр = ', 2 * (a + b)); end.
//4 var a, b, c: real; begin write('Введите ребра A, B, C: '); readln(a, b, c); writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1); writeln('Объем = ', (a*b*c):0:1); end.
//5 var r: real; begin write('Введите радиус: '); readln(r); writeln('Длина окружности = ', (2 * pi * r):0:1); end.
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0