תפקיד ציבורי CBin (ByVal Nr כל עוד, כפי Precision אופציונלי שלם = כמו מחרוזת
האם עד Nr = 0
CBin = CStr ((Nr Mod 2)) + CBin
Nr Nr = 2
לולאה
CBin = פורמט (ואל (CBin), מחרוזת (Precision, "0"))
סיום תפקיד

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

זה הפוך

הסתר אתרים

# לכלול
struct EXEHEAD

(
char id [2]; / / 'ז' & 'Z'
unsigned lastpg; / / לא של בתים על העמוד האחרון
unsigned גודל; / / סך של 512 בתים לא דפים
unsigned reloc; / / לא relocation של פריטים בטבלה
unsigned headersize; / / כותרת גודל paras
unsigned minpara; / / דק. paras reqd. על ידי prog.
unsigned maxpara; / / מקס. paras reqd. על ידי prog.
unsigned stackseg; / / הערך הראשוני של מחסנית seg.
unsigned stackoff; / / הערך הראשוני של SP
unsigned chksum; / / כותרת המחאה בסכום
unsigned IP; / / נקודת כניסה IP
unsigned CS; / / נקודת כניסה CS
unsigned relocoff; / / 1 relocation מושוה של הפריט
unsigned char כיסוי; / / מספר כיסוי
);
int הראשי (int argc, char * argv [])

(
קובץ * fp;
struct EXEHEAD exehead;
אם ((fp = fopen ( "sound.exe", "RB")) == Null)

(
printf ( "שגיאה: קובץ פתוח errorn");
חזור 1;
)
fread (& exehead, sizeof (exehead), 1, fp);
printf ( "קובץ EXE חתימה: CN%% C", exehead.id [0], exehead.id [1]);
printf ( "סה"כ בתים האחרון על מגזרים:% האו"ם", exehead.lastpg);
printf ( "סה"כ מגזרים (סקטור 1 = 512 בתים):% האו"ם", exehead.size);
printf ( "מס 'פריטים של relocation הטבלה:% האו"ם", exehead.reloc);
printf ( "כותרת עליונה גודל פסקאות:% האו"ם", exehead.headersize);
printf ( "מינימום. paras. reqd. לפי התוכנית:% האו"ם", exehead.minpara);
printf ( "מקסימלי. paras. reqd. לפי התוכנית:% האו"ם", exehead.maxpara);
printf ( "ראשוני ערך SS:% האו"ם", exehead.stackseg);
printf ( "ראשוני ערך SP:% האו"ם", exehead.stackoff);
printf ( "בדיקת כותרת: האו"ם%", exehead.chksum);
printf ( "ערך ראשוני של ה-IP:% האו"ם", exehead.IP);
printf ( "ערך ראשוני של CS:% האו"ם", exehead.CS);
printf ( "1 OFFSET של הפריט relocation:% האו"ם", exehead.relocoff);
printf ( "שכבת מספר: DN%", exehead.overlay);

חזור 0;
)

זה הפוך

הסתר אתרים

# לכלול

typedef enum (יום ראשון, שני, שלישי, רביעי, חמישי, שישי, שבת) ימים;

int Main ()
(
מספר ימים;
printf ( "הקלד את מספר היום של week.n");
scanf ( "% d", & מספר);
Switch (מספר)
(
מקרה 0: printf ( "היום הוא Sunday.n"); לשבור;
מקרה 1: printf ( "היום הוא Monday.n"); לשבור;
מקרה 2: printf ( "היום הוא Tuesday.n"); לשבור;
מקרה 3: printf ( "היום הוא Wednesday.n"); לשבור;
מקרה 4: printf ( "היום הוא thursday.n"); לשבור;
מקרה 5: printf ( "היום הוא Friday.n"); לשבור;
מקרה 6: printf ( "היום הוא saturday.n"); לשבור;
)
חזור 0;
)

זה הפוך

הסתר אתרים

תפקיד SetBytes (bytes) כמו מחרוזת

שגיאה ב GoTo errorhandler

אם Bytes> 1073741824 = אחר כך
SetBytes = פורמט (Bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
ElseIf Bytes> = 1048576 לאחר מכן
SetBytes = פורמט (Bytes / 1024 / 1024, "# 0.00") & "MB"
ElseIf Bytes> = 1024 אחר כך
SetBytes = פורמט (Bytes / 1024, "# 0.00") & "KB"
ElseIf Bytes <אז 1024
SetBytes = תקן (בתים) & "Bytes"
אם סוף

יציאה תפקיד
errorhandler:
SetBytes = "לא ניתן לחשב את"
סיום תפקיד

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

זה הפוך

הסתר אתרים

# לכלול
# לכלול

Dict char [] [2] [40] = (
"שלום", "bonjour",
"השנה", "annee",
"טוב", "bon",
"מכונית", "voiture",
"הבית", "משחקים",
"כן", "Oui",
"חבר", "עמי",
"הדרך", "להצטער",
"",""
);

int הראשי (ריק)
(
int i = 0;
נקיון מילה [80];

printf ( "הכנס מילה באנגלית לחיפוש for.n");
מקבל (Word);
בעת (strcmp (Dict [i] [0 ],""))
(
אם (! strcmp (Word, Dict [i] [0]))
(
printf ( "הוא שווה ערך צרפתית:% sn", Dict [i] [1]);
לשבור;
)
אני + +;
)

אם (! strcmp (Dict [i] [0], ""))
printf ( "לא found.n Word");

חזור 0;
)

זה הפוך

הסתר אתרים