Prezentare pe tema: "1 Exemplu: Pentru fiecare dintre cei 25 de elevi ai clasei, numele și scorurile (în puncte) pentru cele cinci discipline sunt cunoscute." Este necesar să se calculeze scorul mediu al fiecărui elev. " - Transcriere:
1 1 Exemplu: Pentru fiecare dintre cei 25 de elevi ai clasei, numele și scorurile (în puncte) pentru cele cinci discipline sunt cunoscute. Este necesar să se calculeze scorul mediu al fiecărui elev și să se aleagă persoana cu cel mai mare scor mediu. În acest caz: Prenume - un șir de 15 caractere, scorul este un număr întreg, scorul mediu este un număr real (real). Programul
2 Tip de date combinat (înregistrări) Înregistrările sunt un tip de date structurat care conține un set de obiecte de diferite tipuri. Obiectele care formează înregistrări sunt numite câmpuri. În introducere, fiecare câmp are propriul nume. Scor Scor 5Avaluare 4Avaluare 3Avaluare 2Avaluare 1Numarul campurilor Intrări
3 3 Descrierea înregistrării Numele denumirilor de înregistrare ale lentilei care alcătuiește înregistrarea și tipurile acestora. Vedere generală: Tip = Înregistrare. ;. ; .... End;
4 Tip pupil = Record fam: String [15]; b1, b2, b3, b4, b5: 2 ... 5; sb: sfârșitul real; Pentru sarcina noastră: student famb1b2b2b3b3b4b4b5b5 sb RECORD Șir de 15 caractere 2..5 Tip real Nume înregistrare Câmpuri de înregistrare Tipul înregistrării
5 mai, trebuie să definiți un klass matrice, reprezentând o serie de înregistrări care urmează să fie stocate într-o memorie de informații despre calculator toate cele 25 de elevi de clasa: Note: câmpurile 1.Imena care alcătuiesc o înregistrare, nu ar trebui să fie repetate. 2. Fiecare câmp de înregistrare poate avea orice tip (cu excepția fișierului), în special, poate fi din nou o înregistrare. Var klass: Array [1..25] De elev;
6 6 Accesul la câmpurile de înregistrare Metoda 1: specificând numele variabilei și numele câmpului. De exemplu, klass [2] .fam, klass [3] .sb, klass [1] .b4. Prin urmare, introducerea numelor și a numelor studenților, adică elementele din matricea klass pot fi setate după cum urmează: Pentru i: = 1 la 25 nu Începeți Readln (klass [i] .fam); Readln (klass [i] .b1); Readln (klass [i] .b2); Readln (klass [i] .b3); Readln (klass [i] .b4); Readln (klass [i] .b5); End;
07 iulie Accesul la înregistrare câmpuri Metoda 2: Folosind declarația atașată, care permite accesul la aceste câmpuri înregistrează ca și în cazul în care acestea au fost simple variabile. Forma sa generală: În interiorul operatorului poate fi accesat folosind numele componentelor corespunzătoare de câmp pentru înregistrare: Pentru i: = 1 până la 25 face cu klass [i] INCEPE readln (fam); Readln (b1, b2, b3, b4, b5); End; Cu Do
8 8 program zapici; const n = 10; m este 6; tip pupel = record fam: șir [15]; b: matrice [1..m] de 2 ... 5; sb: sfârșit real; var klass: array [1..n] de pupel; i, j: întreg; sbmax: real; Program: Activitate
9 9 Începeți pentru i: = 1 pentru a face cu klass [i] nu începe writeln (Introduceți numele de familie și, m, de rating); readln (fam); pentru j: = 1 la m face readln (b [j]); se încheie;
= sbmax apoi sbmax: = klass [i] .sb; writeln (Nume Last ': 18, Guest' 18, ' "title =" 10 pentru i: = 1 la n face cu klass [i] do începe sb: = 0; pentru j: = 1 până la m do sb: = sb + b [j] / m final; sbmax: = 0; pentru i: = 1 la n face dacă klass [i] .sb> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume „: 18 , Guest '18,“ "class =" link_thumb„> 10 octombrie, pentru i: = 1 la n face cu klass [i] se începe sb: = 0; pentru j: = 1 până la m do sb: = sb + b [j] / m final; sbmax: = 0; pentru i: = 1 la n face dacă klass [i] .sb> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume „: 18, Vizitator '18' Sr.ball ': 15); writeln; pentru i: = 1 la n face dacă klass [i] .sb = sbmax apoi cu klass [i] se începe scriere (fam: 20' - „) ; pentru j: = 1 până la m do write (b [j]: 3); writeln ( '-' sb: 6: 3) final; readln; end = sbmax apoi sbmax: = klass [i] .sb ;. writeln (Nume Last ': 18, Guest' 18 '„> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume Last': 18, Guest '18' Sr.ball ': 15); writeln ; pentru i: = 1 la n face dacă klass [i] .sb = sbmax apoi cu klass [i] se începe scriere (fam: 20 '-'); pentru j: = 1 până la m do write (b [j ]: 3); scriteln (" - 'sb: 6: 3) final; readln terminația "> = sbmax apoi sbmax: = klass [i] .sb; writeln (Last." 18, Guest' 18, ' "title =" 10 pentru i : = 1 pentru a face cu klass [i] nu începe sb: = 0; pentru j: = 1 până la m sb: = sb + b [j] / m; se încheie; sbmax: = 0; pentru i: = 1 la n dacă klass [i] .sb> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume Last ': 18, Guest' 18 ' "> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume Last ': 18, Guest '18,'" title = „10 pentru i: = 1 la n face cu klass [i] se începe sb: = 0; pentru j: = 1 până la m do sb: = sb + b [j] / m final; sbmax: = 0; pentru i: = 1 până la n face dacă klass [i] .sb> = sbmax apoi sbmax: = klass [i] .sb; writeln (Nume Ultima ': 18 semne': 18' „>
11 11 Sarcini: 1. Date despre elevii care trebuie să intre din fișier. 2. Afișați informații despre elevul "Nume" pe ecran. 3. Afișează numele studenților care au clasele 5 în primele două discipline pe ecran. 4. Imprimați numele studenților cu un scor mediu maxim. 5.Rassortirovat elevii în ordinea descrescătoare a punctajului mediu.
12 12 Exemplu. Stabiliți data de mâine. Permiteți introducerea datei după cum urmează: Tip year =; luna = 1..12; zi = 1..31; date = înregistrare y: an; m: lună; d: zi; se încheie; Var dat, următor: date; Primul număr este ziua, al doilea este luna, al treilea este anul.
13 13 Funcția Salt (yy: year): boolean; Begin Leap: = (yy mod 4 = 0) Și (yy mod); End; Funcție Dmonth (mm: lună; yy: year): day; Începutul cazului mm de 1,3,5,7,8,10,12: dmonth: = 31; 4,6,9,11: dmonth = 30; 2: dacă Leap (yy) Atunci Dmonth: = 29 Alt Dmonth: = 28; End;
15 15 Begin Writeln (Introduceți ziua, luna, anul); Readln (dat.d, dat.m, dat.y); Mâine (data, următorul); Writeln (mâine va fi); Writeln (următoarea.d. următoare.m.m. următoare); readln; Sfârșit.
16 16 Sarcini: Introduceți data (dd mm aaaa). Găsiți: 1. data zilei anterioare; 2. Data care va veni în m zile; 3. Data care a fost de câteva zile înainte de ziua de astăzi; 4. Numărul de zile scurs de la data t1 la t2; 5. Ziua săptămânii care se încadrează la data t1, dacă se știe că în prima zi a erei noastre a fost luni.