Инф олимпиада doc
Массив элементтерін ендіру, шығару процедурасын құру мысалдары
жүктеу/скачать 91,93 Kb.
|
1544775476 (1)
| 12. Массив элементтерін ендіру, шығару процедурасын құру мысалдары.
а) массив элементтерінің қосындысы мен көбейтіндісін табу: Program massiv1; const n=5; type mas=array[1..n] of integer; var a,b:mas; s,p,k:integer; Procedure inp(n:integer; var x:mas); begin for k:=1 to n do raed(x[k]); end; Procedure out(n:integer; var x:mas; var s,p:integer); begin s:=0; p:=1; for kk:=1 to n do begin s:=s+x[k]; p:=p*x[k] end end; begin inp(n,a); out(n,a,s,p); {негізгі программа} writeln(‘қосынды=’,s); writeln(‘көбейтінді=’,p); inp(n,b); out(n,b,s,p); writeln(‘қосынды=’,s); writeln(‘көбейтінді=’,p); readln end. 13. Program bikvur; var a,b,c:real; {глобальныепеременные} y1,y2:real; flag:boolean; Procedure kvur(var y1,y2:real; var flag:boolean); var d:real; {дискриминант – локальная переменная} begin d:=sqr(b)-4*a*c; {глобальные переменные а, б и с известные процедуре} if d>=0 then begin flag:=true; y1:=(-d+sqrt(d))/2/a; y2:=(-d-sqrt(d))/2/a; end else flag:=false; end; {kvur} begin write(‘введите значения коэффициентов а,b,c:’); readln(a,b,c); kvur(y1,y2, flag); if flag then begin if y1>=0 then writeln(‘x1=’,sqrt(y1):10:5,’x2=’,-sqrt(y1):10:5) else writeln (‘вещественных корней x1 и х2 нет’); if y2 >=0 then writeln(‘x3=’,sqrt(y2):10:5,’x4=’,-sqrt(y2):10:5) else writeln (‘вещественных корней х3 и х4 нет’) end else writeln (‘вещесственных корней х3 и х4 нет’) end else writeln(‘вешественных корней нет’); end. 14. Program time conversion; var choice:integer; Procedure menu; begin writeln(‘1. преобразовать часы минуты и секунды в секунды’); writeln(‘2. преобразовать секунды в часы, минуты и сикунды’); writeln(‘3. завершить работу’); writeln; writeln(‘введите номер (1-3)’); end; Procedure seconds to time; var total seconds: longint; hours, minutes, seconds: longint; temp: longint; begin writeln(‘введите суммарное количество секунд:'); readln (total seconds); writeln; temp:=total seconds div 60; seconds:=total seconds mod 60; hours:=temp div 60; minutes:=temp mod 60; writeln; writeln(total seconds,’секунд-это’); writeln writeln(hours,’часов,’,minutes,’минут,’,seconds,’секунд’); writeln; writeln(‘для продолжения работы нажмите readln; end; Procedure time to seconds; var total seconds:longint; begin writeln(‘введите минуты:’); readln(minutes); writeln; writeln(‘введите секунды:’); raedln(seconds); writeln; total seconds:=hours*3600+minutes*60+seconds; writeln; writeln(hours,’часов,’,minutes,’минут,’,seconds,’секунд это’, total seconds,’секунд’); writeln; writeln(‘для продолжения работы нажмите readln; end; begin choice:=0; wrile choice<>3 do begin menu; readln(choice); case choice of 1:=time to seconds; 2:seconds to time; end; end; end. 15. Program strings to chars demo; uses crt; const nstrings=100; nchars=80; type array of strings= array [0..nstrings] of string; array of chars = array[0..nchars*nstrings] of char; var ArSt:array of strings; ArSt:array of chars; i:word; Procedure Strings to chars (var strings: array of strings; var chars: array of chars); var I, j:byte; begin for i:=1 to nstrings do begin for j:= 1 to nchars do begin chars [ncars*(i-1)+j]:= strings[i][j]; end; end; end; begin ClrScr; Randomize; ArSt[1]:= ‘imagine there’’s no heaven’; ArSt[2]:= ‘it’’s easy if you try’; ArSt[3]:= ‘no hell below us’; ArSt[4]:= ‘above us only sky’; ArSt[5]:= ‘imagine all the people’; ArSt[6]:= ‘living for today’; ArSt[7]:= ‘imagine there’’s no countries’; ArSt[8]:= ‘it isn’’t hard to do’; ArSt[9]:= ‘nothing to kill or die for’; ArSt[10]:= ‘and no religion too’; ArSt[11]:= ‘imagine all the people’; ArSt[12]:= ‘living life in peace.’; Strings to chars (ArSt, ArCh); i:=1; repeat textcolor(random (15)+1); write(ArCh[i]); inc(i); until ArCh[i]=’.’; readln; wrile not keypressed do begin delay (300); ClrScr; i:=1; repeat textcolor(random (15)+1); gotoxy (random (40), random(20)); write(ArCh[i]); inc(i); until ArCh[i]=’.’; end; readln; ClScr; i:=1; repeat textColor (random (15)+1); write (ArCh[i]); inc (i); until ArCh [i]=’.’; writeln; writeln (‘для завершения нажмите readln; end. жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу:
|