Инф олимпиада doc


Массив элементтерінің қосындысы мен көбейтіндісін табу процедурасын параметрсіз құру



бет28/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   24   25   26   27   28   29   30   31   ...   66
Байланысты:
1544775476 (1)

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]0)then
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.


Достарыңызбен бөлісу:
1   ...   24   25   26   27   28   29   30   31   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет