Предмет: Информатика, автор: alsu9436

Написать программу нахождения площади высоты, радиусов вписанной и описанной окружности равностороннего треугольника со стороной а.​

Ответы

Автор ответа: IlYaToL
0

Ответ:

# Python 3.7.2

from math import sqrt

a = int(input())

h = sqrt(3) / 2 * a

r = a / (2 * sqrt(3))

R = a / sqrt(3)

print('Высота:', h)

print('Радиус вписанной окружности:', r)

print('Радиус описанной окружности:', R)


alsu9436: а с помощью read, var, write?
alsu9436: потому что так мы не делали
alsu9436: как ты написал
IlYaToL: Я написал на python, а надо тебе видимо на Паскале
alsu9436: да
alsu9436: на паскале нужно
alsu9436: можете помочь?
HappyCoder: Ниже посмотри, я написал же)
Автор ответа: HappyCoder
1

PascalABC.Net

  • procedure Rad(a: real; n: integer);
  • var
  •  R, R2: real;
  • begin
  •  R := a / (2 * sin(pi / n));
  •  R2 := R * cos(pi / n);
  •  Println('Радиус (Описаный): ', R);
  •  Println('Радиус (Вписаный): ', R2);
  • end;
  • begin
  •  var a := ReadReal('Введите A: ');
  •  var n := ReadInteger('Введите N: ');
  •  Rad(a, n);
  • end.

Varian 2

  • program HappyCoder;
  • var
  •  R, R2, A: real;
  •  n: integer;
  • begin
  •  Writeln('Введите A: ');
  •  Read(A);
  •  Writeln('Введите N: ');
  •  Read(n);
  •  R := a / (2 * sin(pi / n));
  •  R2 := R * cos(pi / n);
  •  Writeln('Радиус (Описаный): ', R:0:3);
  •  Writeln('Радиус (Вписаный): ', R2:0:3);
  • end.

alsu9436: да
alsu9436: мы пишем var a, s, h и тд
alsu9436: потом
alsu9436: begin
alsu9436: write ('
alsu9436: что написать в write?
HappyCoder: Я понял, 2 минуты переделаю под вас
alsu9436: спасибо большое
HappyCoder: Добавил 2 вариант
alsu9436: спасибо огромное
Похожие вопросы
Предмет: Английский язык, автор: 4etko
Предмет: Алгебра, автор: Maria89036