Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
andruxa773
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 40
#1

Вывести значения остальных элементов треугольника - Pascal ABC

26.05.2015, 22:06. Просмотров 209. Ответов 1
Метки нет (Все метки)

Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона (а), 2 — радиус вписанной окружности (R1), 3 — радиус описанной окружности (R2), 4 — площадь (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника (в том же порядке).
Помогите пожалуста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 22:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести значения остальных элементов треугольника (Pascal ABC):

Вывести значения остальных элементов треугольника
21 Элементы равностороннего треугольника пронумерованы следую¬щим образом: 1...

Элементы равнобедренного прямоугольного треугольника пронумерованы. Дан номер одного из них. Вывести значения остальных
Case13. Элементы равнобедренного прямоугольного треугольника пронумерованы...

Вывести значения элементов треугольника
Элементы равностороннего треугольника пронумерованы следующим образом: 1 —...

Вывести значения элементов данного треугольника
привет всем!)у меня к вам огромная просьба,помогите пожалуйста решить...

Вычислить значение всех остальных элементов треугольника, зная один
Пусть элементами прямоугольного треугольника являются: 1)катет а; 2)гипотенуза...

Вывести значения данного треугольника
Составить блок-схему! Задача: Элементы равностороннего треугольника...

1
Manhunt
0 / 0 / 5
Регистрация: 02.10.2014
Сообщений: 27
26.05.2015, 22:52 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Значения могут быть не круглыми, поэтому можно округлить trunc() или round()
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
var
  a, R1, R2, S: real;
  k: integer;
 
    {
    1 — сторона (а), 
    2 — радиус вписанной окружности (R1), 
    3 — радиус описанной окружности (R2), 
    4 — площадь (S). 
    }
 
begin
  read(k);
  
  case k of 
    1: read(a);
    2: read(R1);
    3: read(R2);
    4: read(S);
  end;
  
  case k of 
    2: a := R1 * 2 * sqrt(3);
    3: a := R2 * sqrt(3);
    4: a := (2 * sqrt(S)) / sqrt(sqrt(3));
  end;
  
  R1 := a / (2 * sqrt(3));
  R2 := a / sqrt(3);
  S := (sqrt(3) * a * a) / 4;
  
  case k of
    1: write('радиус вписанной окружности = ', R1, ' радиус описанной окружности = ', R2, ' площадь = ', S);
    2: write('сторона = ', a, ' радиус описанной окружности = ', R2, ' площадь = ', S);
    3: write('сторона = ', a, ' радиус вписанной окружности = ', R1, ' площадь = ', S);
    4: write('сторона = ', a, ' радиус вписанной окружности = ', R1, ' радиус описанной окружности = ', R2);
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 22:52
Привет! Вот еще темы с решениями:

По заданному номеру и значению соответствующего элемента вычислить значения всех остальных элементов треугольника
Помогите плиз решить задачу Пусть элементами прямоугольного равнобедренного...

По заданному номеру и значению соответствующего элемента вычислить значения всех остальных элементов треугольника.
Пож помогите решить задачку ! Составить программу для решения текстового...

Даны имя и значение одного из элементов круга. Вывести значения остальных элементов круга
Элементы круга именованы следующим образом:радиус-R,диаметр-D,длина...

По заданному номеру и значению соответствующего элемента вычислить значение всех остальных элементов треугольника.
Пусть элементами равностороннего треугольника являются: 1) сторона а, 2)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru