Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
Mega срочно! Требуется решить простенькую задачку. |
Философия, технологии, алгоритмы! |
|
Опции темы |
29.10.2003, 13:11 | #1 |
Форумец
Сообщений: 1,108
Регистрация: 22.04.2002
Не в сети |
Mega срочно! Требуется решить простенькую задачку.
Вот условие.
Введите 3 числа. Если они могут быть сторонами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите стороны, площадь и длину высоты в порядке возрастания. Необходимо решить в паскале, желательно через какие то циклы |
29.10.2003, 17:06 | #3 |
Германонаеме
Сообщений: 554
Регистрация: 29.04.2003
Возраст: 37
Не в сети |
Пример
Ну и вот вводите стороны треугольника, если они равны, то высчитываете площадь и высоту, если нет повторяете ввод заново, тут к стати и цикл.
Вот что я придумал. Ой что-то я в площади напортачил, вот прикрепил новый правильный файл. |
29.10.2003, 20:09 | #6 |
Германонаеме
Сообщений: 554
Регистрация: 29.04.2003
Возраст: 37
Не в сети |
program ravn_treugolnic;
uses crt; var a,b,c:real;{бв®а®_л ваҐгЈ®«м_ЁЄ_} h,s:real;{C®®вўҐвб⢥__® ўлб®в_ Ё Ї«®й_¤м} begin clrscr;{ЋзЁй_Ґ¬ нЄа__} repeat Writeln('‚ўҐ¤ЁвҐ бв®а®_л ваҐгЈ®«м_ЁЄ_'); read(a); read(b); read(c); until (a=b) and (b=c); if (a=b) and (b=c) then begin writeln('‚ ваҐгЈ®«м_ЁЄҐ ўбҐ бв®а®_л а_ў_л ', a:2,1); h:=(sqrt(3)/2)*a; s:=(1/4)*h*a*a; end; if (a>s) and (a>h) then begin writeln('бв®а®__ а_ў__ ', a); if s>h then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('ўлб®в_ а_ў__ ',h); end; if h>s then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end; end; if (s>a) and (s>h) then begin writeln('Ї«®й_¤м а_ў__ ', s); if a>h then begin writeln('бв®а®__ а_ў__ ',a); writeln('ўлб®в_ а_ў__ ',h); end; if h>a then begin writeln('ўлб®в_ а_ў__ ',h); writeln('Ї«®й_¤м а_ў__ ',s); end; end; if (h>s) and (h>a) then begin writeln('ўлб®в_ а_ў__ ', h); if s>a then begin writeln('Ї«®й_¤м а_ў__ ',s); writeln('cв®а®__ а_ў__ ',a); end; if a>s then begin writeln('бв®а®__ а_ў__ ',a); writeln('Ї«®й_¤м а_ў__ ',s); end; end; end. |
29.10.2003, 21:09 | #8 |
Форумец
Сообщений: 1,108
Регистрация: 22.04.2002
Не в сети |
Там "раВностороннего", но я уже всё решил с помощью Maxell, за что ему большое спасибо!
А вообще у меня проблема была не в геометрии, а в циклах, финальную часть программы не мог правильно завершить. Ещё раз всем СПАСИБО! Задача решена! |
30.10.2003, 09:22 | #9 |
Лыжник
Сообщений: 6,931
Регистрация: 11.06.2003
Не в сети |
млин..а я такую только покруче...три недели назад....решал....
@xeL ты где учишься..или закаким она тебе эта прога нужна была? интересно |