PDA

View Full Version : Задача по информатика



Ghost_Rider
03-27-2007, 21:30
Здравейте!Искам да ви помоля ако някой може да реши следната задача по информатика, спешно е!

Да се състави програма на Паскал, при която като се въведат 3 числа, тя да провери дали образуват страни на триъгълник и да пресметне лицето и периметъра на триъгълника.

Ако може някой да ми напише решението, ще съм му много благодарен

RoyTheReaper
03-28-2007, 14:05
Може начина по който съм я написал да е малко дълъг, но поне работи; другите ми давах грешки, които не можех да отстраня. Приел съм, че страните са цяло число. Ако трябва да е реално, в декларацията var вместо integer пишеш real, а вместо writeln('Perimetara e ',p) пишеш writeln('Perimetara e ',p:6:2).

program Project1;

var a,b,c,p: integer;

begin

write('Vavedete daljina na strana a: '); readln(a);
write('Vavedete daljina na strana b: '); readln(b);
write('Vavedete daljina na strana c: '); readln(c);
if a+b<=c then
begin
writeln('Nevalidni daljini na strani!');readln;
end
else
begin
if a+c<=b then
begin
writeln('Nevalidni daljini na strani!');readln;
end
else
begin
if b+c<=a then
begin
writeln('Nevalidni daljini na strani!');readln;
end
else
begin
p:=a+b+c;
writeln('Perimetara e ',p);
readln;
end;
end;
end;

end.