Составить программу с использованием оператора выбора и с условным оператором

@bpan96 · Регистрация: 28.11.2013

Студворк — интернет-сервис помощи студентам

Составить программу с использованием оператора выбора и с условным оператором. Данные для формирования условия должны вводиться с клавиатуры.
Ввести с клавиатуры длину стороны равностороннего треугольника и номер варианта для вычисления. Если введен 1, то вычислить высоту, 2 – радиусы вписанной окружности, 3 – радиусы описанной окружности.

@Cyborg Drone · 11.12.2013, 03:42

Pascal

program triangle;
 
var a, p, s: real;
    c: char;
 
begin
  repeat
    write('Сторона равностороннего треугольника = '); readln(a);
    if a <= 0 then writeln('Длина стороны должна быть > 0.')
  until a > 0;
  p := 3 * a / 2;
  s := sqrt(p * (p - a) * (p - a) * (p - a));
  writeln('Для вычисления введите цифру:');
  writeln('1 - высота,');
  writeln('2 - радиус вписанной окружности,');
  writeln('3 - радиус описанной окружности.');
  repeat
    write('Ваш выбор: '); readln(c);
    if not(c in ['1'..'3']) then writeln('Некорректный ввод.');
  until c in ['1'..'3'];
  case c of
    '1': writeln('h = ', 2 * s / a);
    '2': writeln('r = ', s / p);
    '3': writeln('R = ', a * a * a / 4 / s)
  end;
  readln
end.

@bpan96 1 / 1 / 0 Регистрация: 28.11.2013 Сообщений: 14
		1
	Составить программу с использованием оператора выбора и с условным оператором 10.12.2013, 14:31. Показов 2051. Ответов 1 Метки нет (Все метки) Составить программу с использованием оператора выбора и с условным оператором. Данные для формирования условия должны вводиться с клавиатуры. Ввести с клавиатуры длину стороны равностороннего треугольника и номер варианта для вычисления. Если введен 1, то вычислить высоту, 2 – радиусы вписанной окружности, 3 – радиусы описанной окружности. 0

Опции темы

Составить программу с использованием оператора выбора и с условным оператором

Решение