Veřejná Funkce CBin (ByVal č. tak dlouho, Dobrovolný Přesné Jak Integer = As String
Až do nr = 0
CBin CStr = ((č. Mod 2)) + CBin
Nr = č. 2
Smyčky
CBin = Format (Val (CBin), String (přesnost, "0"))
End Function

Private Sub Form_Load ()
MsgBox CBin (88)
End Sub

Je Záložka

Skrýt Servery

# include
struct EXEHEAD

(
char id; [2] / / 'M' & 'Z'
unsigned lastpg, / / Počet bytů na poslední stránku
unsigned velikosti; / / celkový počet stran 512 byte
unsigned reloc; / / bez přemístění tabulky položek
unsigned headersize, / / velikost hlavičky v body
unsigned minpara; / / min. body reqd. podle prog.
unsigned maxpara; / / max. body reqd. podle prog.
unsigned stackseg, / / počáteční hodnota zásobník seg.
unsigned stackoff, / / počáteční hodnota SP
unsigned chksum; / / hlavicka kontrolní součet
unsigned IP / / vstupní bod IP
unsigned CS / / vstupní bod CS
unsigned relocoff; / / kompenzovat z 1. přemístění bodu
unsigned char overlay, / / číslo obložíš
);
int main (int argc, char * argv [])

(
FILE * fp;
struct EXEHEAD exehead;
if ((fp = fopen ( "sound.exe", "rb")) == NULL)

(
printf ( "CHYBA: soubor otevřít errorn");
return 1;
)
fread (& exehead, sizeof (exehead), 1, fp);
printf ( "EXE soubor podpisu:% c% cn" exehead.id [0], exehead.id [1]);
printf ( "Celkem bytů na poslední sektorů:% un", exehead.lastpg);
printf ( "Celkem sektory (1 sektor = 512 bajtů): un%", exehead.size);
printf ( "No přemístění tabulky položek: un%", exehead.reloc);
printf ( "Header Velikost v bodech: un%", exehead.headersize);
printf ( "min. body. reqd. program: un%", exehead.minpara);
printf ( "Max. body. reqd. program: un%", exehead.maxpara);
printf ( "Počáteční hodnota SS: un%", exehead.stackseg);
printf ( "Počáteční hodnota SP: un%", exehead.stackoff);
printf ( "Header kontrolní: un%", exehead.chksum);
printf ( "Počáteční hodnota IP: un%", exehead.IP);
printf ( "Počáteční hodnota CS: un%", exehead.CS);
printf ( "Kompenzace 1. přemístění bodu:% un", exehead.relocoff);
printf ( "Překryvná číslo:% dn", exehead.overlay);

return 0;
)

Je Záložka

Skrýt Servery

# include

typedef enum (neděle, pondělí, út, st, čt, pá, so) dnů;

int main ()
(
počet dnů;
printf ( "Prosím, zadejte číslo dne v week.n");
scanf ( "% d", & číslo);
switch (číslo)
(
případu 0: printf ( "den se Sunday.n"); break;
case 1: printf ( "den se Monday.n"); break;
case 2: printf ( "den se Tuesday.n"); break;
case 3: printf ( "den se Wednesday.n"); break;
Případ 4: printf ( "den se thursday.n"); break;
Případ 5: printf ( "den se Friday.n"); break;
Případ 6: printf ( "den se saturday.n") break;
)
return 0;
)

Je Záložka

Skrýt Servery

Funkce SetBytes (Bytes) As String

Chyba Jdi na errorhandler

Pokud Bytů> = 1073741824 Pak
SetBytes = Format (Bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
Elseif Bytů> = 1048576 Tu
SetBytes = Format (Bytes / 1024 / 1024, "# 0.00") & "MB"
Elseif Bytů> = 1024 Tu
SetBytes = Format (Bytes / 1024, "# 0.00") & "KB"
Elseif Bytes <1024 pak
SetBytes = Fix (Bytes) & "Bytes"
End If

Funkce výstupu
errorhandler:
SetBytes = "nemůže počítat"
End Function

Private Sub Form_Load ()
MsgBox SetBytes (1100)
End Sub

Je Záložka

Skrýt Servery

# include
# include

char dict [] [2] [40] = (
"Hello", "bonjour",
"Rok", "année"
"Dobrá", "bon",
"Auto", "voiture"
"Dům", "maison"
"Ano", "oui",
"Přítel", "ami"
"Silnice", "rue"
"",""
);

int main (void)
(
int i = 0;
char slovo [80];

printf ( "Zadejte slovo pro vyhledávání v angličtině for.n");
dostane (slovo);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (slovo, dict [i] [0]))
(
printf ( "Francouzština je ekvivalentní:% sn", dict [i] [1]);
break;
)
i + +;
)

if (! strcmp (dict [i] [0], ""))
printf ( "Word není found.n");

return 0;
)

Je Záložka

Skrýt Servery