brydzowy Posted January 13, 2010 Report Share Posted January 13, 2010 Witam! Na początku zaznaczę że jestem bardzo początkujący jeśli chodzi o programowanie dopiero co zaczynam zabawę z nim i piszę sobie takie różne programiki ostatnio napisałem program do obliczania pola trójkąta z wozru 0,5*a*h KODprogram trojkat; uses crt; var bok1:byte; bok2:byte; wynik:real; begin writeln('podaj podstawe trojkata'); read(bok1); writeln('podaj wysokosc trojkata'); read(bok2); writeln('pole to:'); wynik:=0.5*bok1*bok2; writeln(wynik, 'centymertow kwadratowych'); end. program działa poprawanie lecz podaje wynik w takim formacie KODpodaj podstawe trojkata 10 podaj wysokosc trojkata 8 pole to: 4.00000000000000E+001centymertow kwadratowych blazej@blazej-desktop:/$ '/home/blazej/Pulpit/trójkąt/trójkąt2' podaj podstawe trojkata 10 podaj wysokosc trojkata 8 pole to: 4.00000000000000E+001centymertow kwadratowych moje pytanie brmi co zrobić aby podawał wynik w postaci dziesiętnej czyli w tym przypadku żeby było to 40 bo zauważyłem że to co jst na końcu czyli +001 mówi o ile miejsc należy przesunąć przecinek? Link to comment Share on other sites More sharing options...
Toster Posted January 13, 2010 Report Share Posted January 13, 2010 sproboj writeln(wynik:0:4, 'centymertow kwadratowych'); Always Dark<br /> Link to comment Share on other sites More sharing options...
olesio Posted January 13, 2010 Report Share Posted January 13, 2010 Myślę, że trzeba użyć funkcji Round do zaokrąglenia w górę lub Trunc do zaokrąglenia w dół. Można także ograniczyć ilość miejsc po separatorze dziesiętnym pisząć: Writeln(Liczba:0:2); Pozdrawiam: olesio Link to comment Share on other sites More sharing options...
brydzowy Posted January 13, 2010 Author Report Share Posted January 13, 2010 dzieki pomogło dopisanie tego :0:4 tyle że 4 zmieniłem na dwa ale działa tak samo tylko że mniejsza ilość zer o funkcjach Round i Trunc nie słyszałem ale muszę to nadrobić natomiast mam pytanie bo w między czasie wyszło mi coś takiego że jak wpiszę za duże liczby to nie podaje poprawnych odp np. CYTATpodaj podstawe trojkata 900 podaj wysokosc trojkata 900 pole to: 8712.00centymertow kwadratowych lub podaj podstawe trojkata1000 podaj wysokosc trojkata 1000 pole to: 26912.00centymertow kwadratowych da się coś z tym zrobić? czy tak musi zostać? Link to comment Share on other sites More sharing options...
xevil21 Posted January 13, 2010 Report Share Posted January 13, 2010 Hey! bok1:byte; bok2:byte; OS9zzgjŹqP)ŹŃ)ŹŃ( to w małym stopniu pomoże... poczytaj o rodzajach zmiennych Pozdrawiam! Link to comment Share on other sites More sharing options...
brydzowy Posted January 13, 2010 Author Report Share Posted January 13, 2010 bardzo dziękuję wszystkim za pomoc program działa bez problemów. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.