Найти треугольник, у которого самый большой радиус описанной окружности

@tonia233 · Регистрация: 07.10.2012

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

помогите решить в паскале

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

@ermolay · 07.10.2012, 09:07

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
function rad(a,b,c: real): real;
var p,r: real;
begin
  p:=(a+b+c)/2;
  r:=a*b*c/4/sqrt(p*(p-a)*(p-b)*(p-c));
  rad:=r;
end;
 
var
  n,i,k: integer;
  a,b,c,r,max: real;
begin
  write('Сколько треугольников рассматривается? ');
  readln(n);
  write('Введите стороны 1-го треугольника:');
  readln(a,b,c);
  max:=(rad(a,b,c)); k:=1;
  for i:=2 to n do
  begin
    write('Введите стороны ',i,'-го треугольника:');
    readln(a,b,c);
    if rad(a,b,c)>max then
    begin
      max:=rad(a,b,c);
      k:=i;
    end;
  end;
  writeln('Наибольший радиус описанной окружности у ',k,'-го треугольника, и = ',max:0:3);
end.

@tonia233 · 07.10.2012, 11:55 **[ТС]**

а здесь ещё вроде нужно добавить условие когда треугольник не существует
f:=(a<b+c)and(b<a+c)and(c<a+b);
if not f then writeln('длинны сторон введены неверно'
оно добовляется в первый ввод и во второй?

@ermolay · 07.10.2012, 12:04

да, программа с проверкой:

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
function rad(a,b,c: real): real;
var p,r: real;
begin
  p:=(a+b+c)/2;
  r:=a*b*c/4/sqrt(p*(p-a)*(p-b)*(p-c));
  rad:=r;
end;
 
var
  n,i,k: integer;
  a,b,c,r,max: real;
  f: boolean;
begin
  write('Сколько треугольников рассматривается? ');
  readln(n);
  write('Введите стороны 1-го треугольника:');
  readln(a,b,c);
  
  f:=(a<b+c)and(b<a+c)and(c<a+b);
  if not f then writeln('длинны сторон введены неверно') else
    max:=(rad(a,b,c)); k:=1;
  for i:=2 to n do
  begin
    write('Введите стороны ',i,'-го треугольника:');
    readln(a,b,c);
    
    f:=(a<b+c)and(b<a+c)and(c<a+b);
    if not f then writeln('длинны сторон введены неверно') else
    
    if rad(a,b,c)>max then
    begin
      max:=rad(a,b,c);
      k:=i;
    end;
  end;
  writeln('Наибольший радиус описанной окружности у ',k,'-го треугольника, и = ',max:0:3);
end.

Добавлено через 2 минуты
но с такой проверкой программа выведет "длины сторон введены неверно" и пойдет дальше.. чтобы пользователь заново ввел правильные данные, можно использовать конструкцию repeat until

@tonia233 · 07.10.2012, 12:15 **[ТС]**

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
begin
repeat
  writeln('scolko treygolnikov');
  readln(n);
  for i:=1 to n do
 
    begin
    write('введите стороны ',i,'треугольника:');
    readln(a,b,c);
    f:=(a<b+c)and(b<a+c)and(c<a+b);
    if not f then writeln('длинны сторон введены неверно')
    until (a<b+c) and(b<a+c) and (c<a+b);

я написала через repeat проверку но паскаль выдаёт ошибку ожидалля индификатор но until обнаружено

@ermolay · 07.10.2012, 12:35

первый треугольник описывается, чтобы переменной за max принять первый найденный радиус и сравнивать с ним все остальные. Можно изначально за max принять, например, ноль, и сразу приступить к циклу, но такой код считается не очень красивым..

ошибку выдает, потому что после begin программа не нашла end
и ввод количества треугольников нужно вывести до цикла

@Kres00 · 25.10.2013, 17:46

Ребятки , вот код , который я переделал под свою задачу, правильно? (Два треугольника заданы координатами своих вершин. Определить радиусы окружностей, описанных возле треугольников.)
Процедура:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program abc;
function rad(a,b,c: real): real;
var p,r: real;
begin
  p:=(a+b+c)/2;
  r:=a*b*c/4/sqrt(p*(p-a)*(p-b)*(p-c));
  rad:=r;
end;
var
  n,i,k: integer;
  a,b,c,r: real;
begin
  write('1-ый треугольник');
  readln(a,b,c);
  a:=(rad(a,b,c));
  writeln(a:0:3);
  begin
    write('2-ой треугольник:');
  readln(a,b,c);
  b:=(rad(a,b,c));
    writeln(b:0:3);
    end;
    end.

А теперь нужно мне сделать с помощью функции, что мне заменить не подскажите?

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@tonia233 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 29

	Найти треугольник, у которого самый большой радиус описанной окружности 07.10.2012, 00:30. Показов 2462. Ответов 6 Метки нет (Все метки) помогите решить в паскале n треугольников заданы длинами своих сторон. Найти треугольник, у которого самый большой радиус описанной окружности 0

@tonia233 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 29
	07.10.2012, 11:55 [ТС]
	а здесь ещё вроде нужно добавить условие когда треугольник не существует f:=(a<b+c)and(b<a+c)and(c<a+b); if not f then writeln('длинны сторон введены неверно' оно добовляется в первый ввод и во второй? 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	07.10.2012, 12:35
	первый треугольник описывается, чтобы переменной за max принять первый найденный радиус и сравнивать с ним все остальные. Можно изначально за max принять, например, ноль, и сразу приступить к циклу, но такой код считается не очень красивым.. ошибку выдает, потому что после begin программа не нашла end и ввод количества треугольников нужно вывести до цикла 2