7.2.. Učitati katetu pravouglog trougla i ugao alfa u stepeima. Izračunati katetu i hipotenuzu.
Opis rješenja:
Listing programa:
REM P07211080;
pi = 3.141592654
INPUT "Unesite katetu:"; A
INPUT "Unesite ugao ALFA u STEPENIMA"; alfa
IF (A > 0) AND (alfa > 0) AND (alfa < 90) THEN
PRINT "Duzina druge katete je:"; A * (COS((alfa * pi) / 180) / SIN((alfa * pi) / 180))
PRINT "Duzina hipotenuze je:"; A / SIN((alfa * pi) / 180)
ELSE
PRINT "Takav trougao ne postoji."
END IF
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211080.gif)
Index
|