5 / 5 / 0
Регистрация: 16.01.2010
Сообщений: 70
1

Дана матрица А с 3 столбцами и 7 строками. Содержание каждой ее строки трактуется как длины сторон одного из 7 треугольников.

14.05.2011, 18:42. Показов 3286. Ответов 2
Метки нет (Все метки)

Дана матрица А с 3 столбцами и 7 строками. Содержание каждой ее строки трактуется как длины сторон одного из 7 треугольников. Начиная с 1-й строки, в цикле рассматривать элементы отдельных строк и, пока элементы в строках соразмерны в плане построения треугольника с данными сторонами (любой из них меньше суммы двух других), печать площади треугольников, иначе цикл оканчивать.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2011, 18:42
Ответы с готовыми решениями:

Дана матрица A c 2 столбцами и 10 строками
Первый элемент каждой строки представляет абсциссу, а второй-ординату одной из 10 заданных точек....

Дана матрица с 4 столбцами и 7 строками
Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по...

Дана матрица M с 10 строками и 6 столбцами
Дана матрица M с 10 строками и 6 столбцами.Вычислить сумму минимальных элементов всех строк...

Дана матрица с 4 столбцами и 7 строками
Дана матрица с 4 столбцами и 7 строками.В каждой строке содержатся оценки одного из 7 студентов по...

2
100 / 93 / 90
Регистрация: 10.05.2011
Сообщений: 172
14.05.2011, 19:14 2
Лучший ответ Сообщение было отмечено Unpric как решение

Решение

иначе цикл оканчивать
В смысле оканчивать текущую интерацию и проверять следующий треугольник на предмет существования? Т.к. после неправильно введенных длин могут находиться правильные.
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
Const
 n = 7;
 m = 3;
Var
 a:array [1..n,1..m] of integer;
 i,j:byte;
 b:boolean;
 p,s:real;
Begin
 Writeln('Введите стороны ',n,' треугольников: ');
 For i:=1 to n do
  Begin
   Writeln(i,'-й треугольник');
   For j:=1 to m do
    readln(a[i,j]);
   Writeln('---');
  End;
 Writeln;
 b:=false;
 For i:=1 to n do
  Begin
   If (a[i,1] < a[i,2]+a[i,3]) and (a[i,2] < a[i,1]+a[i,3]) 
   and (a[i,3] < a[i,2]+a[i,1]) then Begin
                                      b:=true;
                                      p:=(a[i,1]+a[i,2]+a[i,3])/2;
                                      s:=sqrt(p*(p-a[i,1])*(p-a[i,2])*(p-a[i,3]));
                                      writeln('Площадь ',i,'-го треугольника ',s:0:2)
                                     End
                                else b:=false;
   If b = false then Begin
                      writeln('Несуществующий ',i,'-й треугольник');
                      continue
                     End;
  End;
End.
Если все же прерывать выполнение цикла, то в условном операторе
Pascal
1
2
3
4
If b = false then Begin
                      writeln('Несуществующий ',i,'-й треугольник');
                      continue
                     End;
"continue" заменить на "break".
1
5 / 5 / 0
Регистрация: 16.01.2010
Сообщений: 70
15.05.2011, 09:32  [ТС] 3
Нужен первый вариант.
Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2011, 09:32
Помогаю со студенческими работами здесь

Дана матрица А с 2 строками и 10 столбцами. Первый элемент каждого столбца рассматривается как диаметр внутрен
Дана матрица А с 2 строками и 10 столбцами. Первый элемент каждого столбца рассматривается как...

Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу,
Дана матрица с n строками и m столбцами. 1-й элемент каждого столбца представляет массу, а 2-й и...

Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной
Дана матрица Р с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и...

Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и ордината одной
Дана матрица P с двумя строками и десятью столбцами, каждым столбцом которой задана абсцисса и...

Заданы длины сторон трёх треугольников. Найти больший периметр
Заданы длины сторон трёх треугольников. Найти больший периметр. Для вычисления периметра...

Найти длины сторон всех прямоугольных треугольников с длиной гипотенузы до 30
Помогите пожалуйста мне создать такую программу: Найти всех прямоугольных треугольников (длины их...


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

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

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