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

Setcolor (6);

Setfillstyle (1, 6);

Floodfill (400, 350, 6);

Setcolor (4); {марсты салу}

Circle (500, 400, 40);

Setfillstyle (1, 4);

Setcolor (3); {жерді салу}

Arc (0, 470, 0, 90, 150);

Line (0, 470, 0, 320);

Line (0, 470, 150, 470);

Setfillstyle (1, 3);

Floodfill (10, 400, 3);

Setlinestyle (0, 1, 3);

Setcolor (10);

For I:=153 downto 110 do

Begin

Arc (0, 470, 0, I-110, I-3);

End;

Procedure raketa;

Begin

Setlinestyle (0, 1, 1); {ракетаныњ корпусын салу}

Line (150, 350, 200, 300);

Line (200, 300, 210, 310);

Line (210, 310, 160, 360);

Line (160, 360, 150, 350);

Setfillstyle (1, 8);

Floodfill (155, 350, 8);

Setcolor (7);

Line (200, 300, 220, 290);

Line (220, 290, 210, 310);

Line (210, 310, 200, 300);

Setfillstyle (1, 7);

Floodfill (210, 305, 7);

Setlinestyle (0, 1, 3); {ракетаныњ ќанаттары}

Setcolor (8);

Rectangle (150, 350, 160, 340);

Rectangle (160, 340, 170, 360);

Setcolor (4); {ракетадан шыќќан жалынды салу}

Line (150, 360, 140, 370);

Line (145, 355, 135, 365);

Setcolor (14);

Line (148, 358, 138, 368);

Line (155, 365, 145, 375);

End;

Directvideo := false;

A:=detect;

Initgraph (A, U, ‘C:\BP\BGI’);

E:= graphresult;

If E<> GROK then

Writeln (grapherror msg (E))

else

Clrscr ;

Setviewport (0, 0, getmax x, getmax y, clipon);

Planets;

Raketa

Getmem (T, SIZE);

Getimage (120, 250, 300, 370, T); {салѓандарды µшіру}

putimage (120, 250, T, XORPUT);

starsky;

X:=120;

DX:=10;

For I:=1 to 50 do

Begin

X:=X+DX;

putmage (X, Y, T, XORPUT);

delay (1000);

putimage (X, Y, T, XORPUT);

end;

end;

closegraph;

end.

№107 n натурал саны, наќты а₁,а₂,…,а_n сандары берілген. Егер а₁,а₂,…,а_n тізбегі µспеуі бойынша реттелген (а₁а₂…а_n) болса, онда оны µзгеріссіз ќалдырып, керісінше жаѓдайда а_n,,…, а₁ тізбекті шыѓару керек.

Type TP = ^ POSL;

POSL = record;

A : real;

NEXT : tp;

PRED : tp;

End;

Var F, C, P, B, Q : TP;

L: boolean;

Begin

Write(‘введите n:’);

F := NIL; P := NIL; Q := NIL;

For I:=1to N do

Begin

C^ . NEXT := NIL; C^. PRED := NIL;

READLN(C^. A);

IF F=NIL THEN F:=C;

P^. NEXT := C; P := C; C^. PRED := Q; Q := C;

End;

C := F;

Begin

If C^. A <= B^. A then

Begin

L := TRUE;

End

Begin

BREAK;

END;

Begin

While C< >NIL do

Begin

Writeln(C^. A : 4 : 4);

End

Else

C := P;

Begin

C :=C^. PRED;

End

End;

While C< > NIL do

Begin

F:=C^ .NEXT;

C := F;

End.
№108

Программасы мына т‰рде болады:

Program esepteu;

Var x,y: real;

Begin

Writeln (' х енгіз');

If (x>-5) and (x<0) then y:= sqrt (sqr(x)+abs(x))

else

if(x>=0) and (x<2) then y:= 5*sqr(x)*x+cos(x);

Writeln ('y=', y);

End.
№109

program f;

var i,j :integer; s,s1:real;

begin s:=0; s1:=0;

for i:=1 to 6 do

begin for j:=1 to 10 do

s:=s+1/(i+j); s1:=s1+s end;

write(‘s1=’ s1:4:2)

end.

n!

№110 Ñ^m_n = ---------- òåðó ñàíûí åñåïòå

Program f;

Var n,m,v,c1,c2,c3:integer; c:real;

Procedure teru(q:integer; var r:integer);

Var k: integer;

Begin r:=1;

For k:=1 to q do

R:=r*k

Begin read(n,m); v:=n-m;

teru(n,c1); teru(m, c2); teru(v,c3);

c:=c1/(c2*c3);

write(c:5:2)

end.

Const N=30;

Var A: array [1..N] of integer; I,L,C: integer;

Begin

For I:= to N do

Read (A[I]);

For I:=1 to N-1 do

If A[I] > A[L] then

Begin

A[I] := A[L];

A[L] := C;

End;

Writeln (A[I]:3);

End.
№112 A[5,5] массиві берілген. Массивті кему реті бойынша реттеудіњ программасын ќ±ру керек.

Program sortmin;

Const N = 5;

Type mas = array [1..N, 1..N] of integer;

Var A : mas;

B : array [1..N] of integer;

I, J, L, S, V, min, C : integer;

Begin

For I := 1 to N do

For J := 1 to N do

Read (A[I,J]);

For I := 1 to N do

Begin

For J := 1 to N do

If A[I,J] < min then min := A[I, J];

B[I] := min ;

End;

For J := 1 to N-1 do