PiotrekDudkiewicz |
Wysłany: Nie 17:31, 02 Paź 2005 Temat postu: Pascal - Obwód trójkąta |
|
Kod: |
program trojkat;
{Piotr Dudkiewicz i Izabela Rojczyk}
uses crt;
var a,b,c,obwod:integer;
begin
clrscr;
writeln('Podaj trzy boki trojkata');
readln(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
begin
writeln('Jest bok ujemny!!');
repeat until keypressed;
halt;
end;
if (a<(b+c)) and (b<(a+c)) and (c<(b+a)) then
begin
obwod:=a+b+c;
writeln('Obwod wynosi ',obwod);
end
else
writeln('Trojkat nie istnieje przy podanych bokach');
repeat until keypressed;
end.
|
|
|