Старый 29.10.2003, 13:11   #1   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
Mega срочно! Требуется решить простенькую задачку.

Вот условие.

Введите 3 числа. Если они могут быть сторонами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите стороны, площадь и длину высоты в порядке возрастания.

Необходимо решить в паскале, желательно через какие то циклы
 
Старый 29.10.2003, 15:30   #2   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
NeoExpert Спасибо... я что то сам не врубаюсь... Но условие точно правильное!
 
Старый 29.10.2003, 17:06   #3   
Германонаеме
 
Аватар для Maxell
 
Сообщений: 554
Регистрация: 29.04.2003
Возраст: 37

Maxell вне форума Не в сети
Пример

Ну и вот вводите стороны треугольника, если они равны, то высчитываете площадь и высоту, если нет повторяете ввод заново, тут к стати и цикл.
Вот что я придумал.

Ой что-то я в площади напортачил, вот прикрепил новый правильный файл.
 
Старый 29.10.2003, 18:51   #4   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
Maxell Напиши please сюда сам код... у меня вместо русских, нормальных, человеческих, понятных, распрекрасных букв одни хреновы каракули
 
Старый 29.10.2003, 19:46   #5   
Форумец
 
Сообщений: 1,696
Регистрация: 24.11.2002
Возраст: 39

LSL вне форума Не в сети
@xeL Открой pas файл как txt.
 
Старый 29.10.2003, 20:09   #6   
Германонаеме
 
Аватар для Maxell
 
Сообщений: 554
Регистрация: 29.04.2003
Возраст: 37

Maxell вне форума Не в сети
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, 20:51   #7   
Форумец
 
Аватар для Noname
 
Сообщений: 10,696
Регистрация: 20.09.2002
Возраст: 34

Noname вне форума Не в сети
задача вообще скорее не по программированию, а по геометрии...
Так там "раЗностороннего" или "раВностороннего" все-таки?
 
Старый 29.10.2003, 21:09   #8   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
Там "раВностороннего", но я уже всё решил с помощью Maxell, за что ему большое спасибо!
А вообще у меня проблема была не в геометрии, а в циклах, финальную часть программы не мог правильно завершить.
Ещё раз всем СПАСИБО! Задача решена!
 
Старый 30.10.2003, 09:22   #9   
Лыжник
 
Аватар для DeeP_DiveR
 
Сообщений: 6,931
Регистрация: 11.06.2003

DeeP_DiveR вне форума Не в сети
млин..а я такую только покруче...три недели назад....решал....
@xeL ты где учишься..или закаким она тебе эта прога нужна была? интересно
 
Старый 30.10.2003, 15:15   #10   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
DeeP_DiveR ВГУ - Факультет Компьютерных Наук. Просто пропустил несколько лекций по циклам... пришлось самому разбираться...
 
Старый 30.10.2003, 16:00   #11   
Германонаеме
 
Аватар для Maxell
 
Сообщений: 554
Регистрация: 29.04.2003
Возраст: 37

Maxell вне форума Не в сети
@xeL а Машку Ноздрачёву знаешь? Привет ей от Макса, одноклассника её передавай, если знаешь.
 
Старый 30.10.2003, 18:30   #12   
Форумец
 
Аватар для @xeL
 
Сообщений: 1,108
Регистрация: 22.04.2002

@xeL вне форума Не в сети
Maxell нет не знаю...
 
Старый 30.10.2003, 19:21   #13   
Форумец
 
Сообщений: 1,696
Регистрация: 24.11.2002
Возраст: 39

LSL вне форума Не в сети
У нас что тут клуб знакомств ? Поимейте совесть, все в приват.
Тема закрыта.
 
Поиск в теме: 


Опции темы

Быстрый переход:

  Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Support by DrIQ & Netwind