Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pascal: odrediti o kojem se trokutu radi...

[es] :: Pascal / Delphi / Kylix :: Pascal: odrediti o kojem se trokutu radi...

[ Pregleda: 1441 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dugmee

Član broj: 112517
Poruke: 70
*.businessworld.co.at.



Profil

icon Pascal: odrediti o kojem se trokutu radi...12.12.2009. u 18:33 - pre 174 meseci
Dakle moje pitanje je, kako da ubacim ovaj dio sa vrstama trokuta?

Dio koji imam do sada ide ovako:

Code:

program trokut;
var a, b, c : integer;
begin
readln (a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b) then
writeln ('Brojevi cine trokut')
else
writeln ('Brojevi ne cine trokuta');
readln;
end.


Sad treba da ubacim jos o kojem se trokutu radi kao npr. : if (a=b=c) then readln ('trokut je jednostranicni'); ali nikako mi ne uspjeva.

Ima neko neku ideju, trik?
 
Odgovor na temu

xenox
ex Memodata sysadmin
Beograd

Član broj: 6903
Poruke: 168
195.178.35.*

ICQ: 7682925


+3 Profil

icon Re: Pascal: odrediti o kojem se trokutu radi...12.12.2009. u 20:16 - pre 174 meseci
program trokut;
var a, b, c : integer;
begin
readln (a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b) then
begin
if (a=b) and (b=c) then
writeln 'Jednakostranicni trokut'
else
writeln ('Brojevi cine trokut');
end
else
writeln ('Brojevi ne cine trokuta');
readln;
end.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pascal: odrediti o kojem se trokutu radi...

[ Pregleda: 1441 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.