2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31

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

09.10.2010, 21:11. Показов 20883. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу (используя оператор выбора case), которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

Пусть элементами прямоугольного равнобедренного треугольника являются:
1) катет а;
2) гипотенуза b;
3) высота h, опущенная из вершины прямого угла на гипотенузу;
4) площадь S.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.10.2010, 21:11
Ответы с готовыми решениями:

По заданному номеру и значению соответствующего элемента вычислить значение всех остальных элементов треугольника.
Пусть элементами равностороннего треугольника являются: 1) сторона а, 2) площадь S, 3) высота h, 4) радиус вписанной окружности r, 5)...

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

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

9
AF
 Аватар для AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
09.10.2010, 22:53
Я так понял, что треугольник прямоугольный и равнобедренный?

Добавлено через 15 минут
Программа для прямоугольного равнобедренного треугольника.
Возможны ошибки в формулах
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
USES Crt;
VAR
  x: byte; 
  xx: REAL;
BEGIN
  READ(x, xx);
  CASE x OF 
    1: BEGIN
         WRITELN('b=', xx*sqrt(2):0:4);
         WRITELN('h=', xx/sqrt(2):0:4);
         WRITELN('S=', sqr(xx)/2:0:4);
       END;
    2: BEGIN
         WRITELN('a=', xx/sqrt(2):0:4);
         WRITELN('h=', xx/2:0:4);
         WRITELN('S=', sqr(xx)/4:0:4);
       END;
    3: BEGIN
         WRITELN('a=', xx*sqrt(2):0:4);
         WRITELN('b=', xx*2:0:4);
         WRITELN('S=', xx:0:4);
       END;
    4: BEGIN
         WRITELN('a=', sqrt(xx*2):0:4);
         WRITELN('b=', 2*sqrt(xx):0:4);
         WRITELN('h=', sqrt(xx)/2:0:4);
       END;
  END;
  READLN;
  READLN
END.
2
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
09.10.2010, 22:56  [ТС]
Цитата Сообщение от AF Посмотреть сообщение
Я так понял, что треугольник прямоугольный и равнобедренный?

Добавлено через 15 минут
Программа для прямоугольного равнобедренного треугольника.
Возможны ошибки в формулах
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
USES Crt;
VAR
  x: byte; 
  xx: REAL;
BEGIN
  READ(x, xx);
  CASE x OF 
    1: BEGIN
         WRITELN('b=', xx*sqrt(2):0:4);
         WRITELN('h=', xx/sqrt(2):0:4);
         WRITELN('S=', sqr(xx)/2:0:4);
       END;
    2: BEGIN
         WRITELN('a=', xx/sqrt(2):0:4);
         WRITELN('h=', xx/2:0:4);
         WRITELN('S=', sqr(xx)/4:0:4);
       END;
    3: BEGIN
         WRITELN('a=', xx*sqrt(2):0:4);
         WRITELN('b=', xx*2:0:4);
         WRITELN('S=', xx:0:4);
       END;
    4: BEGIN
         WRITELN('a=', sqrt(xx*2):0:4);
         WRITELN('b=', 2*sqrt(xx):0:4);
         WRITELN('h=', sqrt(xx)/2:0:4);
       END;
  END;
  READLN;
  READLN
END.
x и xx это катеты?
0
AF
 Аватар для AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
09.10.2010, 22:59
x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)
1
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
09.10.2010, 23:07  [ТС]
Цитата Сообщение от AF Посмотреть сообщение
x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)

Спасибки огромное
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
09.10.2010, 23:10
Лучший ответ Сообщение было отмечено как решение

Решение

Можно ещё вот так:
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
39
40
41
42
43
44
45
uses crt;
var a,c, s: real;
    x: byte;
begin
  while (true) do
    begin
     clrscr;
     writeln('1: izvestno katet');
     writeln('2: izvestno gipotenuza');
     writeln('3: izvestno vysota');
     writeln('4: izvestno square');
     writeln('5: exit');
     write('Vash vybor: ');
     readln(x);
     case x of
      1: begin
         write('katet = '); readln(a);
           c:=sqrt(2*sqr(a));
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      2: begin
         write('gipotenuza = '); readln(c);
           a:=sqrt(sqr(c)/2);
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
    3: begin
         write('h = '); readln(h);
           c:= 2*h*sin(45*pi/180);
           a:= h*cos(45*pi/180);
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      4: begin
         write('S = '); readln(s);
           a:=sqrt(2*s);
           c:=sqrt(2*sqr(a));
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      5: break;
     end;
    end;
end.
3
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
09.10.2010, 23:29  [ТС]
Цитата Сообщение от znahar Посмотреть сообщение
Можно ещё вот так:
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
39
40
41
42
43
44
45
uses crt;
var a,c, s: real;
    x: byte;
begin
  while (true) do
    begin
     clrscr;
     writeln('1: izvestno katet');
     writeln('2: izvestno gipotenuza');
     writeln('3: izvestno vysota');
     writeln('4: izvestno square');
     writeln('5: exit');
     write('Vash vybor: ');
     readln(x);
     case x of
      1: begin
         write('katet = '); readln(a);
           c:=sqrt(2*sqr(a));
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      2: begin
         write('gipotenuza = '); readln(c);
           a:=sqrt(sqr(c)/2);
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
    3: begin
         write('h = '); readln(h);
           c:= 2*h*sin(45*pi/180);
           a:= h*cos(45*pi/180);
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      4: begin
         write('S = '); readln(s);
           a:=sqrt(2*s);
           c:=sqrt(2*sqr(a));
           writeln('gipotenuza= ',c:3:0,' katet= ', a:3:0); 
         readln;
       end;
      5: break;
     end;
    end;
end.
Блин я чет уже запарился. Напиши пожалуйста формулу нахождения площади, высоты, катета и гепотинузы в прямоугольном ранобедренном треугольнике
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
09.10.2010, 23:33
Цитата Сообщение от Raptor2013 Посмотреть сообщение
Блин я чет уже запарился. Напиши пожалуйста формулу нахождения площади, высоты, катета и гепотинузы в прямоугольном ранобедренном треугольнике
просто формулу написать?

или эти параметры должны быть выведены для каждого случая в коде?
1
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
09.10.2010, 23:38  [ТС]
Цитата Сообщение от znahar Посмотреть сообщение
просто формулу написать?

или эти параметры должны быть выведены для каждого случая в коде?
Просто формулы, я в проге уже сам доделаю. И так тебе огромное спасибо!
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
10.10.2010, 00:00
Пусть элементами прямоугольного равнобедренного треугольника являются:
1) катет а;
2) гипотенуза c;
3) высота h, опущенная из вершины прямого угла на гипотенузу;
4) площадь S.

a - катет, с - гипотенуза, h - высота, S - площадь

1.
S = (a*a)/2
c= корень_квадратный(2*a*a)
h = с/2

2.
a = корень_квадратный((c*c)/2)
S = (a*a)/2
h = с/2

3.
a = h/cos(45*pi/180)
c = 2*h
S = (a*a)/2

4.
a = корень_квадратный(2*S)
c = корень_квадратный(2*a*a)
h = c/2

Вроде так...
Для третьего случая я ошибался. Перепиши код в соответствии с этими формулами.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.10.2010, 00:00
Помогаю со студенческими работами здесь

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

По заданному номеру и значению одного из элементов треугольника вычислить значение остальных его элементов
Пусть элементами прямоугольного равнобедренного треугольника являются катет a(элемент номер 1), гипотенуза b(элемент номер 2), высота h,...

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

Составить программу которая по заданному значению соответствующего элемента, вычисляла бы значения всех остальных элементов треугольника.
В общем суть задачи такова: Дан равнобедренный треугольник с катетом - a, гиппотенузой - b, высотой - h и площадью - s, и, нужно...

Составить программу, которая по номеру и значению элемента вычисляла значение остальных элементов треугольника
Пусть элементами равностороннего треугольника являются: 1) сторона a; 2) площадь S; 3) высота h; 4) радиус вписанной окружности r; ...


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

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

Новые блоги и статьи
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить
_Ivana 18.07.2025
p2UhJNMGY94
Десять Middleware Node.js для эффективного кодинга
Reangularity 18.07.2025
Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .
Context и глубины Android
mobDevWorks 18.07.2025
В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .
Результаты исследования от команды MCM (июль 2025 г.)
Programma_Boinc 18.07.2025
Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js
Reangularity 17.07.2025
React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru