Инф олимпиада doc
Массив элементтерінің қосындысы мен көбейтіндісін табу процедурасын параметрсіз құру
жүктеу/скачать 91,93 Kb.
|
1544775476 (1)
- Бұл бет үшін навигация:
- 17. Футбол чемпионатына қатысқан 12 команданың алған ұпайлары бойынша, алғашқы 3 және соңғы 5 орын алған командалар тізімін шығару процедурасын құру.
| 16. Массив элементтерінің қосындысы мен көбейтіндісін табу процедурасын параметрсіз құру:
Program massiv2; cost n=5; var x,a,b:array[1..n] of integer; s,p,k:integer; Procedure inp; begin for k:=1 to n do read(x[k]); writeln end; Procedure out; begin s:=0; p:=1; for k:=1 to n do begin s:=s+s+x[k];p:=p*x[k] end end; begin inp; out; {негізгі программа} writeln(‘қосынды=’,s); writeln(‘көбейтінді=’,p); inp; out; writeln(‘қосынды=’,s); writeln(‘көбейтінді=’,p); readln end. 17. Футбол чемпионатына қатысқан 12 команданың алған ұпайлары бойынша, алғашқы 3 және соңғы 5 орын алған командалар тізімін шығару процедурасын құру. Program futboll; USES crt; type m=array[1..12] of integer; n=array[1..12] of string; var k,I,p:integer; a:n;b:m; Procedure engiz(var b:m; var a:n); begin for k:=1 to 12 do begin writeln(k,’команданың аты:’); readln (a[k]); writeln(‘оның алған ұпайы:’); readln(b[k]) end; end; Procedure kemu(b:m; var a:n); var max,f:=1 to 11 do begin max:=b[12]; f:=12; m:=a[12]; for i:=12 downto k do if b[i]>max then begin f:=I; max:=b[i]; m:=a[i]; end; b[f]:=b[r]; b[k]:=max; a[f]:=a[k]; a[k]:=m; end; writeln; end; Procedure autsaider(b:m; var a:n); begin kemu(b,a); writeln; writeln(‘артта қалған командалар:’); for k:=8 to 12 do write(a[k]:7); end; Procedure juideger(b:m; a:n); begin writeln; writeln(‘жүлдегер командалар:’); for k:=1 to 3 do write(a[k]:7); end; begin Clrscr; engiz9b,a); {негізгі программа} autsaider(b,a); juldeger(b,a); readln end. 18. Космос кораблі Күн системасындағы тоғыз планетаның бірінен шығып барлық планеталарды айналып қайтып келуі тиіс. Жанар майды үнемдеу үшін ол әр жолы арақашықтығы ең аз деген қашықтықта орналасқан планетаға баруы тиіс. Космос кораблінің ең тиімді маршруты мен оның барлық жүрген жолын анықтау программасы. Program planeta; USES crt; var m:set of 1..10; a:array[1..10] of integer; b:array[1..10,1..10] of integer; n,x,c,d,k,I,y,min:integer; Procedure inp; begin for k:=1 to n do for i:=1 to k do begin read(b[I,k]); b[k,i]:=b[I,k]; end; end; Procedure out; begin for k:=1 to n do begin for i:=1 to n do write(b[k,i]:4); writeln; end; end; begin Clrscr; {негізгі программа} write(‘матрица өлшемін енгіз:’); Readln(n); inp; out; write(‘қай планетадан шықты, нөмірін енгіз:’); readln(x); m:=[x]; a[1]:=x; c:=x; d:=0; for i:=1 to n-1 do begin min:=maxsint; y:=1; for k:=1 to n do if (b[x,k] begin min:=b[x,k]; y:=k; end; d:=d+min; m:=m+[y]; a[i+1]:=y; x:=y end; writeln(‘корабльдің барлық жүрген жолы:’,d+b[c,x]); write(‘корабльдің ең тиімді маршруты:’); for k:=1 to n do write(a[k]:4); write(‘’,c); readln end. жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу:
|