ti83

hej sidder op programmere lidt i ti83 lommeregneren. Da jeg har et gammelstykke matematik ark hvor der står hvorledes man udregner sin fødselsdag (ugedag) og jeg godt kunne tænke mig at lave det på lommeregneren skal jeg bruge en funktion som dividere på "manuel" vis. Dvs at hvis vi fx siger 5/2 skal man se hvor mange gange 2 går op i 5 og så smide alt efter kommaet ud (noget der står i den opgave til at udregne fødselsdatoen)

hej

der er en funktion på lommeregneren, der gør det. den hedder int(). den ligger i math -> num -> 5 int(. den skulle lave trikket

adam
Køb en zebra - og kald den plet

Kode 

fuction RoundDown(Number: Float): Integer;
var
  S: String;
begin
  S := FloatToStr(Number); //Hent tallet ind i en string

  S := Copy(S, 0, 1); //Kopier det første tal (tallet før kommaet)
  Result := StrToInt(S); //Sæt det ind i en integer
end;

men så vil den jo bare runde tallet op og det er det som den ikke må. Kan godt finde ud af at angive antal decimaler men den må jo ikke runde op !

hej

der er en funktion på lommeregneren, der gør det. den hedder int(). den ligger i math -> num -> 5 int(. den skulle lave trikket

adam
Køb en zebra - og kald den plet


ellers kan du vel meget simpelt lave din egen funktion...
fx:

Kode 

fuction RoundDown(Number: Float): Integer;
var
  S: String;
begin
  S := FloatToStr(Number); //Hent tallet ind i en string

  S := Copy(S, 0, 1); //Kopier det første tal (tallet før kommaet)
  Result := StrToInt(S); //Sæt det ind i en integer
end;

P.S. dette er ikke afprøvet men burde virke

/Mads