Előadás 1. példa minden 25 osztályos ismert nevet és becslések (pontokban
Című előadásában: „1. példa :. Az egyes 25 osztályban a diákok ismert nevet és becslések (pontokban) az öt tantárgyból kell számítani az átlagos értékelése a minden tanuló számára.” - átirata:
Január 1 Példa: mind a 25 osztályos tanulók ismert nevet és becslések (pontokban) az öt tantárgyból. Ki akarja számítani egy átlagos értékelés minden tanuló válassza ki a személy, aki a legmagasabb átlagos pontszám. Ebben az esetben a: Név - egy sor 15 szimbólumok, értékelés - egész szám, átlagos pontszám - valódi (tényleges) száma. program
2 Kombinált adattípus (write) bejegyzések - strukturált adattípus, amely egy sor tárgyak különböző típusú elemek, az úgynevezett tárgyak rekordmezők. A felvétel minden területnek megvannak a saját nevét. Átlagos rang 5Otsenka 4Otsenka 3Otsenka 2Otsenka 1Familiya Fields bejegyzések
Március 3 Leírás Felvétel Felvétel Név objektum nevek alkotják, hogy a rekord, és típusai. Általános nézet: Type = Record. ;. ; .... Vége;
4 Típus tanuló = Record fam: String [15]; B1, B2, B3, B4, B5: 2..5; SB: real vége; Mert a mi feladatunk: tanuló famb1b2b2b3b3b4b4b5b5 sb RECORD sor 15 karakter 2..5 igazi típusnév rekordmezők Record Record típusú
Május 5, meg kell határoznunk egy tömb klass, ami egy sor nyilvántartások kell tárolni a számítógép memóriájában információt 25 diák osztály: Megjegyzés: 1.Imena mezők, amelyek egy rekord, nem kell megismételni. 2. Minden felvétel terén lehet bármilyen típusú (kivéve a fájlt), különösen, akkor újra a felvételt. Var klass: Array [1..25] A tanuló;
Június 6. Hozzáférés a rekordmezők 1. út: a változó nevét, és a mező nevét. Például, klass [2] .fam, klass [3] .sb, klass [1] .b4. Ezért a bemeneti nevét és tanulói értékelés, tehát Array elemek be lehet állítani, klass: for i: = 1-től 25 do Begin Readln (klass [i] .fam); Readln (klass [i] .b1); Readln (klass [i] .b2); Readln (klass [i] .b3); Readln (klass [i] .b4); Readln (klass [i] .b5); Vége;
Július 7. Hozzáférés a rekordmezők 2. módszer: a mellékelt nyilatkozat, amely lehetővé teszi a hozzáférést az ilyen bejegyzések mezőket, mintha egyszerű változók. Általános formájában: Belül a kezelő lehet hozzáférni a neve a megfelelő mező alkatrészek rögzítésére: az I: = 1-től 25 köze klass [i] do Begin Readln (fam); Readln (b1, b2, b3, b4, b5); Vége; Do
Augusztus 8 programot zapici; const n = 10; m = 6; típusú pupel = rekord fam: string [15]; b: array [1..m] a 2..5; sb: igazi vége; var klass: array [1..n] a pupel; i, j: integer; sbmax: real; Program: Célkitűzés
Szeptember 9 kezdődnek a i: = 1-től n-köze klass [i] do kezdenek writeln (Írja be a nevet, és, m, értékelés); readln (fam); j: = 1-től m do readln (b [j]); végén;
= Sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név ': 18, Guest' 18, ' "cím =" 10 i: = 1-től n-köze klass [i] do kezdődik sb: = 0; ha j: = 1-től m do sb: = sb + b [j] / m; end; sbmax: = 0; i: = 1-től n tenni, ha klass [i] .sb> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név „: 18 , Guest '18,” "class =" link_thumb„> október 10 i: = 1-től n-köze klass [i] do kezdődik sb: = 0; ha j: = 1-től m do sb: = sb + b [j] / m; end; sbmax: = 0; i: = 1-től n tenni, ha klass [i] .sb> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név „: 18, Guest '18' Sr.ball ': 15); writeln; i: = 1-től n tenni, ha klass [i] .sb = sbmax majd klass [i] do kezdenek write (fam: 20,' - „) ; j: = 1-től m do write (b [j]: 3); writeln ( '-', sb: 6: 3) vége; readln; end = sbmax majd sbmax: = klass [i] .sb ;. writeln (Utolsó Név ': 18, Guest' 18, '„> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név': 18, Guest '18' Sr.ball ': 15); writeln ; i: = 1-től n tenni, ha klass [i] .sb = sbmax majd klass [i] do kezdenek write (fam: 20, '-'); j: = 1-től m do write (b [j ]: 3); writeln ( ' - 'sb: 6: 3) vége; readln; end "> = sbmax majd sbmax: = klass [i] .sb; writeln (Last." 18, Guest' 18, ' "cím =" 10 i : = 1-től n-köze klass [i] do kezdődik sb: = 0; j: = 1-től m do sb: = sb + b [j] / m; végén; sbmax: = 0; i: = 1-től n tenni, ha klass [i] .sb> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név ': 18, Guest' 18, ' "> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név ': 18, Guest '18,'" cím = „10 i: = 1-n köze klass [i] do kezdődik sb: = 0; ha j: = 1-től m do sb: = sb + b [j] / m; end; sbmax: = 0; i: = 1-től n- tenni, ha klass [i] .sb> = sbmax majd sbmax: = klass [i] .sb; writeln (Utolsó Név ': 18 védjegyek': 18' „>
November 11. Feladatok: 1. Ez a beiratkozott tanulók a fájlból. 2.Vyvesti a képernyőn tájékoztatás a tanuló, „Last Name”. 3.Vyvesti a képernyő nevét hallgatók értékelése 5 az első két tudományág. 4.Raspechatat tanulók nevezzenek maximális átlagos pontszám. 5.Rassortirovat diákok csökkenő fokozatú pont átlaga.
Példa 12-én. Azt a napot holnap. Hagyja, hogy a dátum beírásakor a következő: Type év =; hó = 1..12; nap = 1..31; data = Adatok y: év m: hónap; d: nap; végén; Var dat, a következő: az adatok; Az első szám - egy nap, a második - egy hónap, a harmadik - évben.
13 13 Funkció Leap (yy: év): logikai; Kezdjük Leap: = (yy mod 4 = 0) és az (yy mod); Vége; Funkció Dmonth (mm: hónap; yy: év): nap; Kezdje Case mm 1,3,5,7,8,10,12: dmonth: = 31; 4,6,9,11: dmonth: = 30; 2: ha Leap (yy) Ezután Dmonth: = 29 Else Dmonth: = 28; Vége;
15 15 Kezdete writeln (Írja be az aktuális dátumot, hónap, év); Readln (dat.d, dat.m, dat.y); Holnap (dat, következő); WriteLn (Holnap); WriteLn (next.d next.m. next.y.); readln; Vége.
16 16 Célkitűzések: a dátum (mm dd nn). Keresés: 1. időpontja az előző nap; 2. Az időpont jön át m nap; 3. A dátum volt az m nap a mai napig; 4. A napok száma, amelyek kézről T1-T2 időpontban; 5. A nap a héten, hogy esett az időpont t1, ha tudjuk, hogy az első napon a korunk hétfő volt.