Niaj hnub no, cov kev ua si yooj yim, qhov uas tsis muaj teeb meem lossis cov suab zoo, tab tom muaj kev rov ua dua. Ua si rau lawv, cov neeg siv tsom rau qhov xwm txheej, thiab tsis yog ntawm kev coj ua txuj ci. Cov lus Pascal yog qhov zoo tsim rau tsim cov kev ua si zoo li no.
Cov Lus Qhia
Kauj ruam 1
Rub tawm lub Pascal sau los ntawm nplooj ntawv nram qab no - https://edn.embarcadero.com/article/20803. Thov nyeem cov nqe lus ntawm kev siv rau pob software no thiab nruab nws nruab
Kauj ruam 2
Sim los tsim ib qho kev ua si uas tus neeg ua si yuav tsum twv txog tus naj npawb hauv thaj tsam li 0 txog 100. Ua ntej, nkag mus rau lub npe ntawm qhov program: program ugadayka;
Kauj ruam 3
Txuas cov chav CRT: siv crt;
Kauj ruam 4
Sau koj lub zog hloov xws li qhov no: var
zagadka, mnenie, popytki: integer;
knopochka: char
Kauj ruam 5
Pib qhov kev pab cuam los ntawm kev tshem tawm lub vijtsam thiab cov khoom hloov tau, thiab muab cov nqi pseudo-random rau tus lej zais: pib
clrscr;
Random;
popytki: = 0;
mnenie: = 0;
zagadka: = rau cov menyuam (rnd * 100);
Kauj Ruam 6
Ua lub computer nug tus neeg siv dab tsi, hauv nws lub tswv yim, tus lej zais yog, kom txog thaum nws twv nws: thaum tsis mnenie = zagadka ua
pib
popytki: = popytki + 1;
writeln ('Sim tus lej', popytki, '.');
sau ('Koj xav li cas, tus lej twg yog xeeb?');
readln (mnenie);
yog tias zagadka> mnenie ces sau tias ('Tsis yog, tus lej zais yog ntau dua!')
lwm qhov writeln ('Tsis yog, tus lej zais yog tsawg dua!')
xaus;
Kauj Ruam 7
Tom qab tus lej raug twv lawm, rov ua haujlwm tsis siv neeg ntawm cov txheej xwm saum toj no yuav nres. Cov kab txuas ntxiv ntawm cov program yuav pib ua haujlwm. Hauv lawv, ua kom lub tshuab tso tawm cov ntaub ntawv uas tus neeg siv kwv yees tus lej: writeln ('Zoo Siab! Koj twv tau tus lej los ntawm kev sim tus lej', popytki, '. Nws yeej sib npaug', zagadka, '.');
knopochka: = nyeem ntawv
Kauj ruam 8
Sau ib kab lus hais kom xaus qhov program: kawg.
Kauj Ruam 9
Txuag txoj haujlwm nyob hauv ib lub npe uas xav tau siv cov ntawv qhia cov khoom-- Tseg tau li. Yav tom ntej, tom qab txhua qhov hloov kho, txuag nws los ntawm nias tus yuam sij F2.
Kauj ruam 10
Txhawm rau kom pib qhov kev zov me nyuam kom tiav, nias lub pob tswj (Control) thiab F9 tib lub sijhawm.
Kauj ruam 11
Tom qab qhov kev pab cuam tawm, kom pom dab tsi nws tso tawm ntawm lub vijtsam ua ntej, nias rau alt="Duab" thiab F5 tuav tib lub sijhawm. Nias tib qhov tseem ceeb ua ke dua kom rov qab mus rau tus editor.
