Atkrtojums Strukturtie datu tipi Ieraksti Programmanas valodas Lekt
- Slides: 19
Atkārtojums, Strukturētie datu tipi - Ieraksti Programmēšanas valodas Lekt. M. Lukjanska 30. 11. 2011
Atkārtojums / Strukturētie datu tipi - Ieraksti Kopsavilkums l l Atkārtojums Failu apstrāde l l turpinājums Strukturētie datu tipi – ieraksti l 30. 11. 2011 2 turpinājums Programmēšanas valodas
Programmas struktūra – 7. Lekcija Pascal programmas struktūra 3 Pascal PROGRAM Programmas. Nosaukums; USES (* CONST (* TYPE (* VAR (* Bibliotēkas *) Konstantes *) Datu tipi *) Mainīgie *) (* Apakšprogrammu definīcijas *) BEGIN (* Operatori *) END. 30. 11. 2011 Deklarēšanas bloks Apakšprogrammu bloks (Function/Procedure) Pamatbloks Programmēšanas valodas
Programmas struktūra – 7. Lekcija Funkciju / Procedūru sintakse 30. 11. 2011 4 Programmēšanas valodas
Programmas struktūra – 7. Lekcija Pascal programmas struktūras piemērs 5 Pascal PROGRAM Programmas. Nosaukums; USES crt; VAR x : integer; Deklarēšanas bloks Function kvadrats ( i : integer ) : integer; begin i : = i * i; Apakšprogrammu bloks (Function/Procedure) kvadrats : = i; end; BEGIN x : = 10; writeln(kvadrats(x)); readln; END. 30. 11. 2011 Pamatbloks Programmēšanas valodas
Atkārtojums 2. Kontroldarbs – 3. uzdevums 6 program kd 2_3_1; const y : integer = 10; var p, q, r, v : ^integer; z : integer; begin p : = @y; v : = @z; q : = p; r : = q; r : = v; v^ : = 8; z : = 7; r^ : = 3; write(p^, ' ', q^, ' '); write(r^, ' ', v^, ' '); write(z, ' ', y); Readln; end. 30. 11. 2011 Programmēšanas valodas
Atkārtojums 2. Kontroldarbs – 3. uzdevums 7 program kd 2_3_2; var r_m : ^integer; i : integer; mas : array [0. . 4] of integer; begin r_m : = @mas; i : = -1; repeat r_m^ : = i; i : = i + 1; Write(r_m^: 4); r_m : = r_m + 1; until ( r_m > ( @mas + 4 * sizeof (integer)) ); Writeln; while ( r_m > @mas ) do begin r_m : = r_m - 1; Write(r_m^: 4); end; Writeln; Readln; end. 30. 11. 2011 Programmēšanas valodas
Atkārtojums 2. Kontroldarbs – 3. uzdevums 8 program kd 2_3_3; const y : integer = 1; function funkcija (z : integer; x : integer) : integer; begin z : = x - z; funkcija : = z; end; var x : integer; z : integer; begin x : = 4; z : = 7; Writeln (x, ' ', y, ' ', funkcija (x, z)); Readln; end. 30. 11. 2011 Programmēšanas valodas
Atkārtojums 2. Kontroldarbs – 3. uzdevums 9 program kd 2_3_4; var r, rs : ^integer; i : integer; begin new(r); rs : = r; r^ : = 1; rs^ : = 10; writeln (r^); dispose (r); readln; end. 30. 11. 2011 Programmēšanas valodas
Atkārtojums 2. Kontroldarbs – 3. uzdevums 10 program kd 2_3_6; type istais. Masivs = array [0. . 4] of integer; r. Istais. Masivs = ^istais. Masivs; procedure proc (pt : r. Istais. Masivs); var i : integer; Begin for i : = 0 to sizeof(pt) do begin 4 pt^[i] : = pt^[i]*2; end; End; 30. 11. 2011 var m : r. Istais. Masivs; i : integer; begin m : = New (r. Istais. Masivs); for i : = 0 to sizeof(m) do m^[i] : = i + 1; 4 proc(m); for i : = 0 to sizeof(m) do write(m^[i]: 4); Dispose (m); Readln; end. Programmēšanas valodas
Atkārtojums / Strukturētie datu tipi - Ieraksti - atkārtojums l 11 Ieraksta tipa apraksts TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; l Ieraksta apraksts var students 1 : studenta. Info; studentu. Saraksts : array [1. . 10] of studenta. Info; l Piekļuves sintakse students 1. vards : = 'Janis'; studentu. Saraksts[1]. atzime : = 10; 30. 11. 2011 Programmēšanas valodas 11
Atkārtojums / Strukturētie datu tipi - Ieraksti - piemērs 12 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var students : studenta. Info; begin write readln ('Ievadiet studenta vardu: '); ( students. vards ); ('Ievadiet studenta uzvardu: '); ( students. uzvards ); ('Ievadiet studenta atzimi: '); ( students. atzime ); Procedūra ievadei writeln ('Jus ievadijat sekojosus datus: '); writeln ( students. vards, ' ', students. uzvards, ' ', students. atzime ); readln; end. 30. 11. 2011 Procedūra izvadei Programmēšanas valodas 12
Atkārtojums / Strukturētie datu tipi - Ieraksti – piemērs (turpinājums) 13 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var students : studenta. Info; procedure ievadit. Ierakstu ( var s : begin write ('Ievadiet studenta readln ( s. vards ); write ('Ievadiet studenta readln ( s. uzvards ); write ('Ievadiet studenta readln ( s. atzime ); end; begin. . . ievadit. Ierakstu (students); . . . 30. 11. 2011 end. studenta. Info ); vardu: '); Ja nav norādīts var: uzvardu: '); atzimi: '); Programmēšanas valodas 13
Atkārtojums / Strukturētie datu tipi - Ieraksti - piemērs 14 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var students : studenta. Info; begin write readln ('Ievadiet studenta vardu: '); ( students. vards ); ('Ievadiet studenta uzvardu: '); ( students. uzvards ); ('Ievadiet studenta atzimi: '); ( students. atzime ); Procedūra ievadei writeln ('Jus ievadijat sekojosus datus: '); writeln ( students. vards, ' ', students. uzvards, ' ', students. atzime ); readln; end. 30. 11. 2011 Procedūra izvadei Programmēšanas valodas 14
Atkārtojums / Strukturētie datu tipi - Ieraksti – piemērs (turpinājums) 15 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var students : studenta. Info; . . . procedure izvadit. Ierakstu ( s : studenta. Info ); begin writeln ( s. vards, ' ', s. uzvards, ' ', s. atzime ); end; begin. . . izvadit. Ierakstu (students); . . . end. 30. 11. 2011 Programmēšanas valodas 15
Atkārtojums / Strukturētie datu tipi - Ieraksti – piemērs (turpinājums) 16 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var students : studenta. Info; procedure ievadit. Ierakstu ( var s : studenta. Info ); begin. . . end; procedure izvadit. Ierakstu ( s : studenta. Info ); begin. . . end; begin ievadit. Ierakstu ( students ); writeln ('Jus ievadijat sekojosus datus: '); izvadit. Ierakstu ( students ); readln; end. 30. 11. 2011 Programmēšanas valodas 16
Atkārtojums / Strukturētie datu tipi - Ieraksti – piemērs (turpinājums) 17 program ieraksti. Studenti; TYPE studenta. Info = RECORD vards : string [25]; uzvards : string [25]; atzime : integer; END; var studentu. Sar : array [0. . 4] of studenta. Info; i : integer; procedure ievadit. Ierakstu ( var s : studenta. Info ); . . . procedure izvadit. Ierakstu ( s : studenta. Info ); . . . begin for i : = 0 to 4 do ievadit. Ierakstu ( studentu. Sar[i] ); writeln ('Jus ievadijat sekojosus datus: '); for i : = 0 to 4 do izvadit. Ierakstu ( studentu. Sar[i] ); readln; end. 30. 11. 2011 Programmēšanas valodas 17
Atkārtojums / Strukturētie datu tipi - Ieraksti 18 l l 30. 11. 2011 Paldies par uzmanību! Jautājumi? Programmēšanas valodas
Atkārtojums / Strukturētie datu tipi - Ieraksti Izmantotie resursi 19 1. R. Zaks, Introduction to Pascal: Including Turbo Pascal, 2 nd ed. , Sybex, 1986, p. 464. 2. J. Bule, RTK kursa “Programmēšanas valodas" lekciju materiāli, RTK, 2010. 3. B. Brown, P. Henry, Pascal Programming v. 2. 0. [Tiešsaiste] – [atsauce 23. 11. 2011. ] Pieejams: [saite] 4. Pascal Programming. [Tiešsaiste] – [atsauce 23. 11. 2011. ] Pieejams: [saite] 30. 11. 2011 Programmēšanas valodas
- Datu tipi
- Datu tipi
- L tipi matris risk analizi
- P tipi yarı iletken
- Uzkrātais absolūtais biežums
- Intervāla viduspunkts
- Bakit mexico ang kasali sa kalakalang galyon?
- Tula ng tausug
- Vid publiskojamo datu bāze
- Maksud sistem kedatuan di sarawak
- Literārās sarunvalodas stils
- Eiropas savienības valodas
- Lietišķo rakstu valodas stila pazīmes
- Publicistikas valodas stils piemēri
- Leksiskie valodas līdzekļi ir
- Uzdevumi
- Strofe e versi
- Carte tematiche definizione
- Ad una trave uniforme lunga 3 m
- Sözlü sınavların avantajları ve dezavantajları