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

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

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

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

Пусть элементами прямоугольного равнобедренного треугольника являются:
1) катет а;
2) гипотенуза b;
3) высота h, опущенная из вершины прямого угла на гипотенузу;
4) площадь S.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2010, 21:11
Ответы с готовыми решениями:

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

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

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

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

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

Добавлено через 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  [ТС] 3
Цитата Сообщение от 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
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
09.10.2010, 22:59 4
x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)
1
2 / 2 / 2
Регистрация: 07.10.2010
Сообщений: 31
09.10.2010, 23:07  [ТС] 5
Цитата Сообщение от AF Посмотреть сообщение
x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)

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

Решение

Можно ещё вот так:
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  [ТС] 7
Цитата Сообщение от 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 8
Цитата Сообщение от Raptor2013 Посмотреть сообщение
Блин я чет уже запарился. Напиши пожалуйста формулу нахождения площади, высоты, катета и гепотинузы в прямоугольном ранобедренном треугольнике
просто формулу написать?

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

или эти параметры должны быть выведены для каждого случая в коде?
Просто формулы, я в проге уже сам доделаю. И так тебе огромное спасибо!
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
10.10.2010, 00:00 10
Пусть элементами прямоугольного равнобедренного треугольника являются:
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
10.10.2010, 00:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2010, 00:00
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru