1. példa
iskola AH
ALG terméket számok (Arg célra Num, Res célra P)
nachtsel i, j, k, l
Num: = abs (Num) | abs - abszolút értéke
i: = div (Num, 1000) | i - az első számjegy
| div - a hányados a fennmaradó
J: = mod (div (Num, 100) 10) | j - a második számjegy
| mod - fennmaradó maradékos osztás
k: = mod (div (Num 10), 10) | k - A harmadik számjegy
L: = mod (Num, 10) | l - a negyedik számjegy
P: = i * j * k * l;
játék
Turbo Pascal
Program DigitsProduct;
Felhasználás Crt;
Var száma,
i, j, k, l,
P. egész;
BEGINClrScr;
Write ( „Add meg a négyjegyű számot.”); ReadLn (szám);
Száma: = Abs (szám);
Write ( 'alakjai' Number .. '');
I: = száma div 1000; Írása (i: 3);
j: = száma div 100 mod 10; Írása (j: 3);
k: = száma div 10 mod 10; Írása (k: 3);
l: = szám mod 10; WriteLn (l: 3);
P: = i * j * k * l;
WriteLn ( 'O t e r termék szám egyenlő' P.);
ReadLn
END.
QBasic
CLS
INPUT „Adja meg a négyjegyű számot.” Száma
Nyomtatványra. PRINT „A számok”; száma; "";
Száma = ABS (szám)
i = FIX (száma / 1000): PRINT i; „FIX - az egész része az érvelés
J = FIX (száma / 100) MOD 10. PRINT j;
k = FIX (száma / 10) MOD 10. PRINT k;
L = száma MOD 10. nyomtatás l
P = i * j * k * l
Nyomtatványra. PRINT „Az e t t a termékben a számok megegyeznek.”; P
VÉGE
más feljegyzések
tesztek Teszt száma rendszer ellenőrzi az esetben Odds eredmények a b c 1, D> 0 1 1 -2 x1 = 1, x2 = - február 2 d = 0 1 2 1 A gyökerek egyenlő: X1 = - 1, x2 = március 1 - d