Уводни део часа : 1. Који су основни типови података у PASCAL - у ? 2. Какви су то нестандардни типови података ? ------------------------------------------------------------------------------------------------------------------- Главни део часа : 1. Дефинисати набројиви тип према следећим дефиницијама : а) ближа родбина б) омиљени филмови в) омиљени аутомобили г) омиљене музичке групе 2. Одредити које су од следећих наредби некоректне и зашто, ако је дата следећа декларација : type godisnjedoba=(zima, prolece, leto, jesen); var sezona : godisnjedoba; a) read(leto); б) sezona:=jesen; writeln(leto); writeln(sezona); в) sezona:=zima; г) sezona:=zima; case sezona of case sezona of zima : writeln('zima'); zima : writeln(zima); prolece : writeln('prolece'); prolece : writeln(prolece); leto : writeln('leto'); leto : writeln(leto); jesen : writeln('jesen') jesen : writeln(jesen) end; end; Пример 1. Написати програм за израчунавање укупног броја одсутних ученика са наставе за једну радну недељу од понедељка до петка. Уноси се број присутних ученика за сваки дан и број ученика уписаних у одељење. program nabroj(input, output); type x=(ponedeljak,utorak,sreda,cetvrtak,petak); t=array[ponedeljak..petak] of integer; var i : x; a : t; u,s : integer; begin writeln('Unesite broj ucenika upisanih u odeljenje'); read(u); writeln('Unesite broj prisutnih'); s:=0; for i:=ponedeljak to petak do begin read(a[i]); s:=s + (u - a[i]) end; writeln('sa nastave je odsustvovalo ',s:4,' ucenika'); readln; readln; end. Пример 2. Написати програм којим се описује рад семафора. program semafor-test(input,output); type semafor=(zeleno,zuto,crveno); var boja : semafor; begin writeln('Unesite boju'); read(boja); if boja:=zeleno then writeln('DOZVOLJEN PROLAZ') else begin if boja=zuto then writeln('PRIPREMI SE') else writeln('ZABRANJEN PROLAZ') end; readln; readln; end. |