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

Мәліметтерді енгізу форматы

жүктеу/скачать 91,93 Kb.

бет	57/66
Дата	08.02.2022
өлшемі	91,93 Kb.
	#123795

1 ... 53 54 55 56 57 58 59 60 ... 66

Байланысты:
1544775476 (1)

Мәліметтерді шығару форматы

Мәліметтерді енгізу форматы
Кіріс файлдың жекеше жолында үш бүтін сан жазылған А,В,С(0<=A, B<=10¹⁸,1<=C<=10¹⁸). Сандар аралары пробел арқылы бөлінген.

Мәліметтерді шығару форматы
Шығыс файлда бір бүтін сан жазылу керек-есептің жауабы.

Мысал

F. in

F. out

3 4 5

1

uses crt;

var i,j,k,l,m,n:longint;
begin
assign(input,'f.in');reset(input);
assign(output,'f.out');rewrite(output);
readln(i,j,k);
l:=1;m:=0;
repeat
inc(m);
l:=l*(i mod k);
until(m=j);
writeln(l mod k);
close(input);close(output);
end.

Спортшы бірінші күні 10 км жүгірді. Әр күні ол күнделікті жүгіру нормасына 10 % қосып отырды.Спортшы неше күнен кейін:

а) 20 км астам жол жүгіреды;
b) қосқанда 100 км астам жол жүгіреді.
a) Program F7_a1;
Var s: real; i: integer;
Begin
S:=10; i:=1;
While s<=20 do
Begin
I:=i+1;s:=s+0.1*s end;
Write (‘20 км астам жол жүгіреды ол ',I,’күні’);
End.

b) Program F7_b1;

Var s, sum: real; i: integer;
Begin
S:=10; i:=1; sum:=s;
While sum<=100 do
Begin
I:=i+1;s:=s+0.1*s;sum:=sum+s end;
Write (‘қосқанда 100 км астам жол жүгіреді, ол.',I,’күні’);
End.

Берілген үштаңбалы санның бірдей цифрларының бар екенін анықтайтын программа жаз.

Program F8_a1;

Var x,x1,x2,x3: integer;
Begin writeln; write(‘үш таңбалы санды енгіз’); read(x);
x1:=x mod 10;
x2:= x mod 10;
x:=x div 10;
x3:=x div 10;
if (x1=x2) or (x2=x3) or (x1=x3) then write(‘бар ’) else write (‘ жоқ’);
end.

N элементтен түратын массив берілген. Оны төмендегі берілген ереже бойынша өзгертіп жаңа массив құрастыратын программа жаз(егер х_к^і- мағынасында берілсе к-жаңа массивтің элементы болады):

X_rⁱ=max x, егер I<=i<=k;
массив элементтерінің кері жағдайдағы;
Xⁱ_N=X_I, xⁱ_k=x_k+1, мұнда k=1,2,…N-1 .

Program F9_d1;

Const n=5;
Var x:array[1..n] of integer; i, k, max : integer;
Begin
For I:=1 to n do
Begin
Write(‘массив элементінің нөмірін енгіз’, i); readln (x[i]);
End;
For k:=1 to n do
Begin
Max= x[k];
For i:=1 to k do if x [i]> max then max:= x[i];
X[k]:= max;
End;
For i:=1 to n do write (‘ ‘,x[i])
End.

Program F9_d2;

Const n=5;
Var x:array[1..n] of integer; i,z : integer;
Begin
For I:=1 to n do
Begin
Write(‘массив элементінің нөмірін енгіз’, i); readln (x[i]);
End;
For i:=1 to n do
Begin
z:= x[i];
x [i]:= x[n-i+1];
x[n-i+1]:= z;
End;
For i:=1 to n do write (‘ ‘,x[i])
End.

Program F9_d3;

Const n=5;
Var x:array[1..n] of integer; I, z : integer;
Begin
For I:=1 to n do
Begin
Write(‘массив элементінің нөмірін енгіз’, i); readln (x[i]);
End;
Z:= x[n];
x [n]:= x[1];
for i:=1 to n-2 do x[i]= x[i+1];
x[n-1];=z;
For i:=1 to n do write (‘ ‘,x[i])
End.

Х және У массив элементтері кему ретімен орналасқан. Массив элементтерін бір Z массивіне қосып, оның элменттерінде кему ретілігімен орналстырып программа жаз.

Program F10_d1;
Const n=5;
Var x,y:array[1..n] of integer; z :array[1..2*n] of integer; I,j,k,m:integer;
Begin
For I:=1 to n do
Begin
Write(‘x,y элементінің нөмірін енгіз’, i); readln (x[i], y[i]);
end;
k:=0;
for i:=1 to n do
begin
k:=k+1; z[k]:=x[i];
k:=k+1; z[k]:=y[i];
End;
For i:=1 to n do
Begin
M=z[i]; k:=I;
For j:=I to n do if z[j]>m then begin m:=z[j]; k:=j end;
B:=z[i]; z[i]=z[k]; z[k]:=b
End;
For i:=1 to n do write(‘ ‘,z[i])
End.

Қашықтан сегіру жарысының қортындысы келесі матрицада көрсетіледі 5х3(5- спортшы, 3- әр споршының кезегі). Қандай споршы, қай кезекте ең жоғары нәтиже көрсететін программа жаз.

Program f11_d1;
Var I,j,max,k,m: integer; a:array[1..5,1..3] of integer;
Begin
For i:=1 to 5 do
For j:=1 to 3 do
Begin
Write(‘енгіз а ’, I,j); read (a[I,j]);
End;
Writeln(‘енгізілген екі өлшемді массивтің түрі:’);
For i:=1 to 5 do
Begin
For j:=1 to 3 do write(a[I,j]:3);
Writeln end;
Max:=a[1,1]; k:=1; m:=1;
For i:=1 to 5 do
For j:=1 to 3 do
If a(I,j)> max then begin max:=a[I,j]; k:=I; m:=j end;
Write(‘жоғары нәтиже =’. max);
Write(‘споршы нөмірі’, k,’кезекті нөмірде’, m) end.

3х3 берілген екі өлшемді массивтің қатар , бағана және диагональ бойынша сандардың қосындысы бірдей матрицаны шығаратын программа жаз. Мысалы:

жүктеу/скачать 91,93 Kb.

Достарыңызбен бөлісу:

1 ... 53 54 55 56 57 58 59 60 ... 66