Gleymt lykilorð
Nýskráning
Forsíða

Notendur

DelphiPascal
DelphiPascal Notandi síðan fyrir 20 árum, 8 mánuðum 14 stig

Re: Modulus er mikið notaður..

í Forritun fyrir 20 árum, 2 mánuðum
For i := 1 TO 7 DO Summa := Summa + (ORD(Kennitolu_Arr[10 - i]) * i); Summa := Summa + (ORD(Kennitolu_Arr[2]) * 2); Summa := Summa + (ORD(Kennitolu_Arr[1]) * 3); IF ((Summa MOD 11) = 0) AND ((Kennitolu_Arr[10] IN ['0','8','9'])) THEN Leyfileg_Kennitala := TRUE ELSE Leyfileg_Kennitala := FALSE;

Re: Modulus er mikið notaður..

í Forritun fyrir 20 árum, 7 mánuðum
Sæll Davido Vissulega þegar um er að ræða einn glugga ofan grunnglugga. Notaði grep í einu directory sem hafði að geyma gamlar pascal skrár sem ég skrifaði hérna fyrir 10-12árum. Þar fann ég m.a. í skjáúttaki MOD skipunina. Var smástund að fatta kóðan, enda 10ára gamall, en í DOS er skjárinn 80*25 stafir eða 2000 stafir, reyndar 2000 í viðbót sem geymir attribute's. Ég er að lesa inn skjámyndir í buffer, þ.e. 4000 bytes, sem ég síðan er að skanna, leita að strengjum. Finn kannski streng í...

Re: Modulus spilagaldrar

í Forritun fyrir 20 árum, 8 mánuðum
Hmmmm… var W_Kg : WORD; begin WriteLn ('Lesið inn kílóin : ‘); Readln (W_Kg); WriteLn (’Þarf ‘, W_Kg DIV 50, ’ af 50kg kössum ‘, W_Kg MOD 50, ’ af 1kg kössum); end.
  • Síður:
Hugi notar vefkökur til að bæta notendaupplifun á vefsíðunni og greina umferð um hana. Einnig hefur Hugi uppfært persónuverndarstefnu sína. Skoðaðu stefnuna hér..
Ok