Public Function CBin (ByVal Nr tak długo, Opcjonalny Precision As Integer = As String
Czy Do Nr = 0
CBin = CStr ((Nr Mod 2)) + CBin
Nr = Nr 2
Pętla
CBin = Format (Val (CBin), String (Precision, "0"))
End Function

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

Bookmark It

Ukryj Witryny

# include
struct EXEHEAD

(
char id [2]; / / "M" i "Z"
unsigned lastpg; / / nie bajtów na ostatniej stronie
unsigned size; / / całkowita liczba stron 512 bajtów
unsigned reloc; / / nie przenoszenia elementów tabeli
unsigned headersize; / / header size w pkt
unsigned minpara; / / min. Reqd pkt. przez prog.
unsigned maxpara; / / max. Reqd pkt. przez prog.
unsigned stackseg; / / początkowa wartość stosu sekund.
unsigned stackoff; / / wartość początkowa SP
unsigned chksum; / / Suma kontrolna nagłówka
unsigned IP; / / punktu wejścia IP
unsigned CS / / punktu CS
unsigned relocoff; / / zbilansowaniem 1-gi przenoszenie pozycji
unsigned char nakładki / / nakładki numer
);
int main (int argc, char * argv [])

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

(
printf ( "BŁĄD: errorn otworzyć pliku");
return 1;
)
fread (& exehead, sizeof (exehead), 1, fp);
printf ( "plik EXE podpis:% c% cn", exehead.id [0], exehead.id [1]);
printf ( "Razem bajtów na ostatnie sektory:% un", exehead.lastpg);
printf ( "Razem sektorów (1 sektor = 512 bajtów):% un", exehead.size);
printf ( "Liczba delokalizacja tabeli pozycje:% un", exehead.reloc);
printf ( "Nagłówek rozmiar pkt:% un", exehead.headersize);
printf ( "min. pkt. Reqd. przez program:% un", exehead.minpara);
printf ( "Max. pkt. Reqd. przez program:% un", exehead.maxpara);
printf ( "Początkowe wartości SS:% un", exehead.stackseg);
printf ( "Początkowe wartości PS:% un", exehead.stackoff);
printf ( "Header checksum:% un", exehead.chksum);
printf ( "Początkowe wartości IP:% un", exehead.IP);
printf ( "Początkowe wartości CS:% un", exehead.CS);
printf ( "Offset od 1 Relokacja pozycji:% un", exehead.relocoff);
printf ( "Nakładka liczby:% dn", exehead.overlay);

return 0;
)

Bookmark It

Ukryj Witryny

# include

typedef enum (N, Pn, Wt, Śr, Cz, Pt, So) dni;

int main ()
(
liczba dni;
printf ( "Wprowadź numer z dnia week.n");
scanf ( "% d", & liczba);
switch (liczba)
(
case 0: printf ( "dzień jest Sunday.n"); break;
case 1: printf ( "dzień jest Monday.n"); break;
case 2: printf ( "dzień jest Tuesday.n"); break;
case 3: printf ( "dzień jest Wednesday.n"); break;
case 4: printf ( "dzień jest thursday.n"); break;
przypadku 5: printf ( "dzień jest Friday.n"); break;
przypadku 6: printf ( "dzień jest saturday.n"); break;
)
return 0;
)

Bookmark It

Ukryj Witryny

Funkcja SetBytes (Bajty) As String

On Error GoTo ErrorHandler

Jeśli Bajty> = 1073741824 Następnie
Format SetBytes = (bajtów / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
ElseIf Bajty> = 1048576 Then
Format SetBytes = (bajtów / 1024 / 1024, "# 0.00") & "MB"
ElseIf Bajty> = 1024 Then
Format SetBytes = (bajtów / 1024, "# 0.00") & "KB"
ElseIf Bajtów <1024 Then
SetBytes = Fix (Bajty) & "Bajty"
End If

Exit Function
ErrorHandler:
SetBytes = "nie może obliczyć"
End Function

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

Bookmark It

Ukryj Witryny

# include
# include

dict char [] [2] [40] = (
"Hello", "Bonjour",
"Rok", "Annee"
"Dobre", "bon",
"Samochód", "voiture"
"Dom", "maison"
"Tak", "oui",
"Przyjaciela", "AMI"
"Drogi", "rue"
"",""
);

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

printf ( "Wprowadź słowa w języku angielskim, aby wyszukać for.n");
dostaje (słowo);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (wyraz, dict [i] [0]))
(
printf ( "Francuski ekwiwalent:% sn", dict [i] [1]);
break;
)
i + +;
)

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

return 0;
)

Bookmark It

Ukryj Witryny