"DatormÄcÄ«ba. Skaitlisko aprÄÄ·inu realizÄcijas metodes ...

More documents

Recommendations

Info

Pilnās sazarojuma konstrukcijas vispārīgais pieraksts Pascal vidē ir If then else ; Ar < loģisko izteiksmi> šeit domāta salīdzināšana: = (ir vienāds); (nav vienāds); < (ir mazāks); > (ir lielāks); = (ir lielāks vai vienāds). Konstrukcijas if..then..else blokshēma: Uzdevuma - aprēķināt funkcijas y vērtību, ja ì2x - 6, ja x £ 3 y = í î x + 5, ja x > 3 algoritma blokshēma ir: bet algoritma izpildes programma: program funkc2; uses crt; var x,y: integer; begin ClrScr; writeln('Ievadi x vertibu'); readln(x); if x
Nepieciešams atcerēties, ka, ja aiz operatora then vai aiz operatora else seko vairāki operatori, tad tie jāraksta starp operatoru iekavām begin un end, t.i., if then begin ; ; ..... ; end else begin ; ; …. ; end; pie kam aiz pirmā operatoru bloka end semikols (;) nav jāliek. Nav jāliek semikols (;) arī pirms else. Piemērs: if X=0 then writeln('A=', X) else begin A:=X - 1; writeln('A=', A); end; Daļējā sazarojuma konstrukcijas forma if Y=0 then begin A:=Y+1; writeln('A=', A); end else writeln('A=', A); if then < operatori> ir izmantojama gadījumos, ja kāda programmas daļa jāizpilda tikai pie noteiktiem nosacījumiem. Gadījumos, kad šie nosacījumi neizpildās, operatori aiz atslēgvārda then tiek ignorēti un izpildās nākamie programmas operatori. Šādas konstrukcijas if..then blokshēma ir: Piemērs. Sastādīt programmu, kura dod iespēju aprēķināt divu no klaviatūras ievadītu skaitļu a un b summu un izvadīt to uz ekrāna gadījumos, ja kāds no skaitļiem a vai b ir pāra skaitlis. Pretējā gadījumā, programma beidz darbu neaprēķinot summu. program summa; uses crt; Var a, b, sum: integer; begin ClrScr; write('Ievadi a :'); readln (a); write('Ievadi b :'); readln (b); if (a mod 2=0) or (b mod 2=0) then begin sum:=a+b; writeln('summa ir: ',sum); end; {sazarojums ar dubultnosacījumu or (vai)} {izvada summu} {sazarojuma beigas} 21
Page 1 and 2: RĪGAS TEHNISKĀ UNIVERSITĀTE Būv
Page 3 and 4: SATURS 1. PROGRAMMĒŠANAS PAMATI P
Page 5 and 6: 1. PROGRAMMĒŠANAS PAMATI PASCAL V
Page 7 and 8: su lielumu algebriskās summas dal
Page 9 and 10: Reālā tipa skaitļu pierakstam ie
Page 11 and 12: sin(x) cos(x) arctan(x) exp(x) ln(x
Page 13 and 14: Operatoru izpildes secības maiņas
Page 15 and 16: writeln; bez izvadāmo parametru sa
Page 17 and 18: interpretējams sekojošā veidā:
Page 19: Paškontroles uzdevumi 1 Pk1-1. Vei
Page 23 and 24: et visos citos gadījumos N=5N. Pas
Page 25 and 26: Piemēri: Izpildot programmas fragm
Page 27 and 28: program Nr3; var i,m,a:integer; beg
Page 29 and 30: Piemērs. Noteikt funkcijas y( x) l
Page 31 and 32: d) for i := 12 downto 4 do writeln(
Page 33 and 34: Datora atmiņā visi masīva elemen
Page 35 and 36: B:=A; writeln('Masivs B:'); for i:=
Page 37 and 38: Protams, šo uzdevumu var atrisinā
Page 39 and 40: write('Ievadi ',i,'. merijumu: ');
Page 41 and 42: program sakarto_1; const n=10; M:ar
Page 43 and 44: egin writeln('dotais masīvs'); for
Page 45 and 46: Pk4-7. Sastādīt programmu, kura a
Page 47 and 48: procedure linija ; var i: integer;
Page 49 and 50: x[i]:=random(10)+1; end; procedure
Page 51 and 52: egin ClrScr; A:= 'a'; B:= 'b'; Raks
Page 53 and 54: end; begin write('apaksseejaa robez
Page 55 and 56: Pk2-7. Jāizmanto operātors: if ((
Page 57 and 58: Nauda[1] = 17,52 Nauda[2] = 43,27 N
Page 59 and 60: Pascalā nav automātiska loģisko

"DatormÄcÄ«ba. Skaitlisko aprÄÄ·inu realizÄcijas metodes ...

Create successful ePaper yourself

Delete template?

Save as template?

"DatormÄcÄ«ba. Skaitlisko aprÄÄ·inu realizÄcijas metodes ...