Помогите пожалуйста! Даю 40
Написать программу в среде Кумир, которая вычисляет площадь и периметр треугольника, прямоугольника и круга
И скиньте код программы. Буду очень благодарен.
Ответы
Ответ:program GeometryCalculator;
var
choice: char;
sideA, sideB, radius, base, height: real;
perimeter, area: real;
begin
writeln('Добро пожаловать в геометрический калькулятор!');
repeat
writeln('Выберите фигуру:');
writeln('1. Треугольник');
writeln('2. Прямоугольник');
writeln('3. Круг');
writeln('4. Выйти из программы');
write('Введите номер выбранной фигуры: ');
readln(choice);
case choice of
'1': begin
write('Введите длину основания треугольника: ');
readln(base);
write('Введите высоту треугольника: ');
readln(height);
perimeter := base + 2 * sqrt((base / 2) * (base / 2) + height * height);
area := 0.5 * base * height;
end;
'2': begin
write('Введите длину стороны A прямоугольника: ');
readln(sideA);
write('Введите длину стороны B прямоугольника: ');
readln(sideB);
perimeter := 2 * (sideA + sideB);
area := sideA * sideB;
end;
'3': begin
write('Введите радиус круга: ');
readln(radius);
perimeter := 2 * 3.14159265359 * radius;
area := 3.14159265359 * radius * radius;
end;
'4': writeln('До свидания!');
else writeln('Неверный выбор.');
end;
if choice <> '4' then
begin
writeln('Периметр: ', perimeter);
writeln('Площадь: ', area);
end;
until choice = '4';
end.
Объяснение:
Программа предлагает выбрать фигуру, запрашивает соответствующие параметры и вычисляет площадь и периметр выбранной фигуры.