• Предмет: Информатика
  • Автор: HellRisers
  • Вопрос задан 11 месяцев назад

1)Найти два меньших числа из трех.
2)Определить , является ли треугольник со сторонами a,b,c
а) равносторонним
б) равнобедренным
в) разносторонним


антагонист: а язык?
HellRisers: паскаль

Ответы

Ответ дал: антагонист
1
var a,b,c:integer;
begin
writeln('введите три числа');
readln(a,b,c);
if ((a<b) and (a<c)) and (b<c) then writeln ('меньшие ', a,'и',b) ;
if ((a<b) and (a<c)) and (c<b) then writeln ('меньшие ', a,'и',c) ;
if ((c<a) and (c<b)) and (a<b) then writeln ('меньшие ', c,'и',a) ;
if ((c<b) and (c<a)) and (b<a) then writeln ('меньшие ', c,'и',b) ;
end.

HellRisers: спасибо чувак)
антагонист: progmaster не растраивайся
ProgMaster: да не успел ;c
антагонист: если не трудно, не отметишь мой ответ как лучший? :D
ProgMaster: кстати, в первом условии, как правило, должно быть еще и b=c
ProgMaster: пишешь не плохо) только, вместо еще одного условия (разносторонний), что бы не создавать лишнюю нагрузку, хоть и мелкую, но все же.... через else же проще сделать....
ProgMaster: var a,b,c: real;
begin
write('Введите значения a,b,c(основание): '); readln(a,b,c);
if((a=b) and (a=c) and (b=c)) then writeln('Треугольник,очевидно, равносторонний')
else if((a=b) or (a=c) or (c=b)) then writeln('Треугльник равнобедренный')
else writeln('Треугольник разносторонний');
end.
ProgMaster: вот так я сделал
антагонист: Условие b=c в первом if совершенно не обязательно, ведь a=c and a=b автамотически подразумевает условие b=c.
антагонист: а через else, вы правы, делать проше, хоть и не на много, максимум текст программы сокрашается, и время исполнения на сотые доли секунды меньше становится, хотя и при моём решении ответ выдаёт сразу.
Похожие вопросы