Skocz do zawartości

Co zrobić żeby wynik programu był zapisywany w formie dziesiętnej?


brydzowy

Polecane posty

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 do komentarza
Udostępnij na innych stronach

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 trojkata

1000

podaj wysokosc trojkata

1000

pole to:

26912.00centymertow kwadratowych

 

da się coś z tym zrobić? czy tak musi zostać?

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...