Здравейте някой ще може ли да ми я напише програмката. Мерси предварително.

Програмата е като се въведат произволни числа на стоиностите a,b,c да ли може да се построй триъгълник. Господина ни е дал схемата ние само трябва да я напишем.

Начало

Въвеждане на a,b,c

a+b<c ---- Да--- a+c<b ------Да ----- b+c<a ------ Да ----> да извежда съобщението " Може да се построй триъгълника "

Ако горните обаче не са верни да извежда съобщението " Не може да се построй триъгъкника

И на последно място край.

Мерси предварително.

Здравейте някой ще може ли да ми я напише програмката. Мерси предварително.

Програмата е като се въведат произволни числа на стоиностите a,b,c да ли може да се построй триъгълник. Господина ни е дал схемата ние само трябва да я напишем.

Начало

Въвеждане на a,b,c

a+b<c ---- Да--- a+c<b ------Да ----- b+c<a ------ Да ----> да извежда съобщението " Може да се построй триъгълника "

Ако горните обаче не са верни да извежда съобщението " Не може да се построй триъгъкника

И на последно място край.

Мерси предварително.

Здравей. Не, че нещо, но или ти си объркал неравенствата, или учителят ти е присъствал доста малко в часовете по математика - но все си мисля, че за да може да се построи триъгълник, то a+b>c, a+c>b и b+c>a. А ето и решението на задачата (което може да не е вярно де):

Program triagalnik;

Var a,b,c:real;

Begin

Write('Въведете a: ');Readln(a);

Write('Въведете b: ');Readln(b);

Write('Въведете c: ');Readln( c);

If (a<0) or (b<0) or (c<0) then writeln('Въвели сте отрицателна стойност!');

If (c<a+b) and (a<c+b) and (b<a+c)

then writeln('Може да се построи триъгълник.')

else writeln('Не може да се построи триъгълник.');

Readln;

End.

Пробвай я все пак, за да видиш дали работи така, както трябва. Дано съм ти помогнал...

Редактирано 8 юни 201016 г. от Конрад (преглед на промените)

Мерси многооооооооооо

Съставете програма , която намира произволни числа от клавиатурата цели числа,въведени числа от клавиатурата и го отпечатва и това продължава до въвежданего на 0. Спешно е