DelphiPascal fyrir 20 árum, 7 mánuðum Fjöldi lestra: 1169

Modulus er mikið notaður..

Sælir forritarar..

Nota MODulus deilingu mikið. Leyfin getur gefið okkur hinar ýmsustu upplýsingar. T.d. við að finna út vikudag. Vitum að dagur nr.1 er mánudagur, hvaða vikudag ber dagur nr. 211 upp á?

Jú 211 mod 7 gefur okkur 1 þar sem 7 * 30 = 210. 211-210=1 sem er leyfin.

en hvað? Jú 1 mod 7 gefur okkur 1, ==> dagur nr. 211 er mánudagur.
Ef við hefðum fengið leyfina 2, þá er það þriðjudagur osfv. Ath! leyf 0 = sunnudagur!

Nú önnur tilfelli þar sem ég hef notað MOD er t.d. þegar þarf að reikna línunr og í buffer sem er kaflaður upp í blaðsíður.

Kanna kennitölur með kt-tékki.

Allskonar innlestrarútínur með buffers, dæmi með buffer upp á 4096 bytes og er að lesa skrá. Skráin er X stór, hvar verður síðasti stafurinn í síðasta bufferlestri osfv.

Til að reikna út miðjun á gluggum í skjá. Og mikið mikið meira.

Eins nota ég bitvise operatora mjög mikið. Sérstaklega þegar ég þarf hraðvirkar og minnissparandi rútínur.

Kveðja
Delphi & Pascal maðurinn

davido fyrir 20 árum, 7 mánuðum

DelphiPascal: “Til að reikna út miðjun á gluggum í skjá.”

Hvernig notarðu modulus í þetta? Er það ekki bara “Left = (iBreiddSkjas - iBreiddGlugga) div 2” ?

Annars allt í lagi grein held ég (sagði mér svo sem ekkert nýtt, en hey ég veit líka allt ;) - allavega gott að sjá eitthvað líf hérna :D

0100100100100000011000010110110100100000010001000110000101110110011010010110010000100001

Fyrra álit

DelphiPascal 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 í staki nr. x og þarf að miðja það í viðkomandi línu í bufferinum.

Þraut fyrir ykkur:

Lesið inn skjámyndina í buffer, finnið strenginn ‘HALLÓ’ og miðjið í viðkomandi línu í buffer.

kv. Delphiman!

Fyrra álit

davido fyrir 20 árum, 7 mánuðum

ahh… DOS… the good old days :D

Þá skil ég þetta líka mun betur :) - tók þetta bara sem eitthvað Windows-Delphi dæmi (eitthvað með nafnið kannski eða eitthvað ;)

0100100100100000011000010110110100100000010001000110000101110110011010010110010000100001

Fyrra álit

xeeder fyrir 20 árum, 7 mánuðum

Og hér má sjá hvernig modulus er notaður til þess að reykna út 8bit binary streng, yfir í integer.

#include

using std::cout;
using std::cin;
using std::endl;

#include

int main() {
int tala1 = 0;
int tala2 = 0;
int tala3 = 0;

cout > tala1;

for (int x = 1; x (pow(10 , x)) );
tala2 = tala2 / (pow(10,x)/10);
tala3 += tala2 * pow(2,x);
}

cout

Fyrra álit

xeeder fyrir 20 árum, 7 mánuðum

Svo virðist vera að kóðinn hafi ekki komið rétt hér inn á huga, þökk sér einhverju helvítis scriping option sem ekki er hægt að slökkva á.

Réttan kóða má finna á http://www.germy.net/bin-dec.txt

Fyrra álit

skobbih fyrir 20 árum, 6 mánuðum

AHA UHUM ÉG ER SAMÁLA UM ÞETTA NEM ÞAÐ AÐ 87("77=55) 432SMM EKKI NÓGU MIKIÐ UMFJALLAÐ HÉR Á HUGA EN ÞETTA ER MJÖG GÓÐ HUGMYND HJÁ ÞÉR SAMT EN 8$ = 877% AF AFIRNARFORITINU SVO ÞETTA ER ALGJÖR ÞVÆLA ÞVÍ 67/444 STENST EINGANVEGIN SAMAN VIÐ 157% AF AKÓSÝUNAR REGLUNNI. SJÁUMST SÍÐAR

Fyrra álit

Iwmwar fyrir 20 árum, 4 mánuðum

Hvernig tékkar maður kennitölur með kt-tékki?

Fyrra álit

DelphiPascal 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;

Fyrra álit

Forritun

Forritun

Ofurhugar

Stjórnendur

Hverjir eru inni

Greinar

Modulus er mikið notaður..

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi