1. solvetop.com
  2. Информатика
  3. Напишите программу на языке...

Напишите программу на языке Кумир, которая вычисляет площадь и периметр различных фигур. Для треугольника формулы

  • 23
Напишите программу на языке Кумир, которая вычисляет площадь и периметр различных фигур. Для треугольника формулы вычисления периметра и площади следующие: периметр треугольника - p = a + b + c, где a, b и c - длины сторон треугольника. Площадь треугольника - s = корень квадратный из (p(p-a)(p-b)(p-c)), где p = (a + b + c)/2.
Для прямоугольника формулы следующие: периметр прямоугольника - p = 2(a + b), где a и b - длины сторон прямоугольника. Площадь прямоугольника - s = ab, где a и b - длины сторон прямоугольника.
Для круга формулы вычисления периметра и площади следующие: периметр круга - p = 2πr, где r - радиус круга. Площадь круга - s = πr^2, где r - радиус круга.

Рекомендуется сохранять верные ответы и всегда делиться с друзьями, ведь они могут тебе ещё пригодиться!

Telegram Whatsapp ВКонтакте
Alina
48
Для круга формула вычисления периметра следующая:
\[
P = 2\pi r
\]
где \(P\) – периметр круга, а \(r\) – радиус круга.

А формула вычисления площади круга выглядит следующим образом:
\[
S = \pi r^2
\]
где \(S\) – площадь круга, а \(r\) – радиус круга.

Теперь давайте напишем программу на языке Кумир, которая будет вычислять площадь и периметр различных фигур.



algorithm FigureProperties;

    var choice, a, b, c, r, P, S: real;

begin

    writeln("Выберите фигуру для вычисления площади и периметра:");

    writeln("1 - треугольник");

    writeln("2 - прямоугольник");

    writeln("3 - круг");

    readln(choice);



    if choice = 1 then

    begin

        writeln("Введите длину стороны a:");

        readln(a);

        writeln("Введите длину стороны b:");

        readln(b);

        writeln("Введите длину стороны c:");

        readln(c);

        P := a + b + c;

        var p2: real;

        p2 := P / 2;

        S := sqrt(p2 * (p2 - a) * (p2 - b) * (p2 - c));

        writeln("Периметр треугольника P =", P);

        writeln("Площадь треугольника S =", S);

    end

    else if choice = 2 then

    begin

        writeln("Введите длину стороны a:");

        readln(a);

        writeln("Введите длину стороны b:");

        readln(b);

        P := 2 * (a + b);

        S := a * b;

        writeln("Периметр прямоугольника P =", P);

        writeln("Площадь прямоугольника S =", S);

    end

    else if choice = 3 then

    begin

        writeln("Введите радиус круга r:");

        readln(r);

        P := 2 * 3.14159 * r;

        S := 3.14159 * r * r;

        writeln("Периметр круга P =", P);

        writeln("Площадь круга S =", S);

    end

    else

    begin

        writeln("Выбрана недопустимая фигура");

    end;

end.


Эта программа позволяет выбрать фигуру (треугольник, прямоугольник или круг) и вводить необходимые значения для сторон или радиуса, а затем вычисляет и выводит периметр и площадь выбранной фигуры.