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

@Raptor2013 · Регистрация: 07.10.2010

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

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

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

@AF · 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.

@Raptor2013 · 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 это катеты?

@AF · 09.10.2010, 22:59

x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)

@Raptor2013 · 09.10.2010, 23:07 **[ТС]**

Сообщение от AF

x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента)

Спасибки огромное

@znahar · 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.

@Raptor2013 · 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.

Блин я чет уже запарился. Напиши пожалуйста формулу нахождения площади, высоты, катета и гепотинузы в прямоугольном ранобедренном треугольнике

@znahar · 09.10.2010, 23:33

Сообщение от Raptor2013

Блин я чет уже запарился. Напиши пожалуйста формулу нахождения площади, высоты, катета и гепотинузы в прямоугольном ранобедренном треугольнике

просто формулу написать?

или эти параметры должны быть выведены для каждого случая в коде?

@Raptor2013 · 09.10.2010, 23:38 **[ТС]**

Сообщение от znahar

просто формулу написать?

или эти параметры должны быть выведены для каждого случая в коде?

Просто формулы, я в проге уже сам доделаю. И так тебе огромное спасибо!

@znahar · 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

Вроде так...
Для третьего случая я ошибался. Перепиши код в соответствии с этими формулами.

Новые блоги и статьи Все статьи Все блоги /
Мой 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 с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .

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

	Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. 09.10.2010, 21:11. Показов 20883. Ответов 9 Метки нет (Все метки) Составить программу (используя оператор выбора case), которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника. Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) высота h, опущенная из вершины прямого угла на гипотенузу; 4) площадь S. 0

@AF 49 / 48 / 21 Регистрация: 06.10.2010 Сообщений: 115
	09.10.2010, 22:59
	x и xx - это вспомогательные переменные, считываются с клавиатуры (номер и значение соответствующего элемента) 1

@znahar 25 / 25 / 14 Регистрация: 01.07.2010 Сообщений: 59
	10.10.2010, 00:00
	Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза c; 3) высота h, опущенная из вершины прямого угла на гипотенузу; 4) площадь S. a - катет, с - гипотенуза, h - высота, S - площадь 1. S = (aa)/2 c= корень_квадратный(2aa) h = с/2 2. a = корень_квадратный((cc)/2) S = (aa)/2 h = с/2 3. a = h/cos(45pi/180) c = 2h S = (aa)/2 4. a = корень_квадратный(2S) c = корень_квадратный(2a*a) h = c/2 Вроде так... Для третьего случая я ошибался. Перепиши код в соответствии с этими формулами. 1

Опции темы

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

Решение