Олимпиадаға дайындалуға арналған есептер жинағЫ №1 Екі санның қосындасын табу программасын құру керек

If B[I] < B[L] then

B[I] := B[L];

B[L] := C;

For J := 1 to N do

Begin

C := A[I ,J];

A[L,J] := C;

End;

End;

Begin

Write (A[I,J] : 4);

Writeln;

End;

Var T: string;

I, K: integer;

Begin

Readln (I);

For I := 1 to length(T) do

If T[I] = ‘a’ then

If (T[I-1] = ‘’) or (I=1)then

Begin K:= 0;

Repeat

K:= K+1;

If T[I+K-1] = ’a’ then delete (T,I,K);

End;

Writeln (T);

№103 “ Программирование” атты кітаптардыњ ішінен белгілі автордыњ кітабын табу программасын ќ±ру керек.

Const N=10;

Type sved = RECORD

FIO : STRING[25];

NAZ , IZD : STRING;

GOD IZD : INTEGER;

End;

Var mas sved : array[1..N] of sved

OFIO:string[25];

Begin

Writeln (‘берілгендерді енгіз’);

With mas sved[I] do

Begin

Readln (FIO);

Readln (IZD);

Readln (GOD IZD)

End;

For I:=1 to N do

With mas sved[I] do

If (FIO =OFIO) and (POS(’программирование’, NAZ)< >0) then

Begin

Writeln (NAZ);

End;

Program kontr;

Const N=5;

Type MAS=ARRAY[ 1..N] of integer;

Var A,B,C : MAS; {n-ші ретті массивті бейнелеу};

I,J : integer; {циклдердегі санаѓыштар};

Procedure INP MASS (VAR x : MAS) {массивті енгізу процедурасы}

Begin

For I:=1 to N do

For J:=1 to N do

Read(X[I,J]);

Writeln;

End;

Var S : integer;

Begin

S :=0;

For J:=1 to N do

If J mod 2<>0 then

If (X[I,J]>0)and (X[I,J]mod2=0) then S:=S+X[I,J];

Sum:=S;

End;

Begin

begin

Write (X[I,J]:2);

Writeln;

End;

begin

if(sum (A)> sum(B))and (sum(A)> sum(C)) then out mas(A);

if (sum(B)> (sum(A))and(sum(B)> sum(C)) then out mas(B);

if (sum(C)> (sum(A))and(sum(C)> sum(B)) then out mas(C);

end.

№105 Символдыќ f₁ жєне f₂ файлдары берілген. f₁ компаненттерініњ ретін µзгертпей f₂ файлына, ал f₂ файлыныњ компаненттерін f₁- ге кµшірудіњ программасын ќ±ру керек.

Program file;

Type TEXT = file of char; {файлдыќ тип}

VAR DATA: char; {файлдыњ компоненттерін уаќытша саќтау}

F1, F2: TEXT; {берілген символдыќ файлдар}

I, K1, K2: word;

Procedure IN – DATA (var F: TEXT; K: WORD);

{файл компоненттерін енгізу}

begin

begin write (I’.:’);

readln (DATA);

write (F, DATA); {берілгендерді f файлына жазу}

end;

end; {бір файл компоненттерін екіншісіне кµшіру}

begin

reset (H2);

seek (H2, filesize (H2)); {H2 файлыныњ кµрсеткішін осы файлдыњ соњына ауыстыру};

{H1 файлыныњ компоненттерін біртіндеп H2 файлына кµшіру}

for I:= 1 to K do

begin

write (H2, DATA);

end;

end;

{файлда саќталѓандарды экранѓа шыѓару}

begin

reset (F); {файлды оќу ‰шін инициалдау}

while NOT (EOF (F)) do

begin

read (F, DATA);

end;

begin

assign (F2,’ C:\ BP\ BIN\ in2_DATA.dat’);

rewrite (F1); {аќпаратты файлѓа саќтауды инициалдау}

rewrite (F2); {F1 файлыныњ компоненттерініњ санын аныќтау}

write (‘F1 файлыныњ компонент саны:’);

readln (K1);

IN_ DATA (F1,K1); {F1 файлы ‰шін компоненттерді енгізу процедурасын шаќыру}

{F2 файлыныњ компоненттер санын аныќтау}

write (‘F2 файл компоненттері саны:’);

readln (K2);

IN_DATA (F2, K2) {F2 файлы компоненттерін енгізу}

Paste (F1, F2, K1); {F1 файлыныњ компоненттерін F2 файлына кµшіру }

Paste (F2, F1, K2); {F2 файлыныњ компоненттерін F1 файлына кµшіру}

{файлдыњ компоненттерін экранѓа шыѓару}

writeln (‘біріктіруден кейін:’);

writeln (‘F1:’);

OUT_DATA (F1);

Writeln (‘F2:’)

OUT_DATA (F2);

Close (F1); {файлдарды жабу}

Close (F2);

Readln;

№106 Жерден ±шып шыќќан ракетаныњ анимациялыќ суретініњ программасын ќ±ру керек.

Uses graph, crt;

Const N=1000;

Type

XP,YP: integer;

End;

Var

P: array [1..N] of pixeltype {ж±лдыздар координаталарыныњ массиві}

T : POINTER {кµрсеткіш}

Procedure starsky;

Begin

Setbkcolor (0);

For i:=1 to N do

With P[I] do

Begin

YP:= random (getmax y-10);

End;

Repeat

With P[random (N)] do

Putpixel (XP, YP, 15);

If not keypressed then

For I:= N downto 1 do

With P[random (N)] do

Putpixel (XP, YP, 0);

Until keypressed ;

End;

Procedure planets;

Setcolor (12); {Сатурнды салу}

Ellipse (120, 100, 0, 360, 50, 40);

Setfillstyle (1, 12);

Floodfile (120, 100, 12);

Setcolor (14);

Setlinestyle (0, 1, 3);

Ellipse(120, 100, 155, 25, 60, 25);

Setlinestyle (0, 1, 1); {Венераны салу}