Файл: Олимпиадаа дайындалуа арналан есептер жинаЫ 1 Екі санны осындасын табу программасын ру керек.doc

Setcolor (6);

Circle (400, 350, 20);

Setfillstyle (1, 6);

Floodfill (400, 350, 6);

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

Circle (500, 400, 40);

Setfillstyle (1, 4);

Floodfill (500, 400, 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);

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

End;

End;

Procedure raketa;

Begin

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

Setcolor (8);

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;

Begin

Directvideo := false;

A:=detect;

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

E:= graphresult;

If E<> GROK then

Writeln (grapherror msg (E))

else

Begin

Clrscr ;

Cleardevice;

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

Planets;

Raketa

Size := imagesize (120, 250, 300, 370);

Getmem (T, SIZE);

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

putimage (120, 250, T, XORPUT);

starsky;

X:=120;

Y:=250;

DX:=10;

DY:=10 {ракетаны ќозѓалысќа келтіру}

For I:=1 to 50 do

Begin

X:=X+DX;

Y:=Y-DY;

putmage (X, Y, T, XORPUT);

delay (1000);

putimage (X, Y, T, XORPUT);

end;

end;

if readkey = #0 then X:=ord (readkey);

closegraph;

end.

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

Type TP = ^ POSL;

POSL = record;

A : real;

NEXT : tp;

PRED : tp;

End;

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

N, I : integer;

L: boolean;

Begin

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

Readln (N);

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

For I:=1to N do

Begin

New(C);

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;

Writeln;

C := F;

While C^. NEXT< >NIL do

Begin

B := C^. NEXT;

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

Begin

L := TRUE;

C := B;

End

Else

Begin

L := FALSE;

BREAK;

END;

END;

If L=TRUE then

Begin

C := F;

While C< >NIL do

Begin

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

C := C^ .NEXT;

---

End

End

Else

Begin

C := P;

While C< > NIL do

Begin

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

C :=C^. PRED;

End

End;

C:=F;

While C< > NIL do

Begin

F:=C^ .NEXT;

Dispose( C);

C := F;

End;

End.
№108
функциясыныњ х аргументіне байланысты нєтижесін есептеу программасын ќ±ру керек.

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

Program esepteu;

Var x,y: real;

Begin

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

Read (x);

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 ('нєтижесі');

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 = ---------- òåðó ñàíûí åñåïòå

m!(n-m)!

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

End;

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.

№111 А(30) массивіндегі элементтерді µсу реті бойынша орналастыру программасын ќ±ру ќажет.
Program sarmass;

Const N=30;

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

Begin

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

For I:= to N do

Read (A[I]);

For I:=1 to N-1 do

If A[I] > A[L] then

Begin

C : = A[I];

A[I] := A[L];

A[L] := C;

End;

For I := 1 to N do

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

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

For I := 1 to N do

For J := 1 to N do

Read (A[I,J]);

For I := 1 to N do

Begin

Min := A[I, 1];

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

For L := I+1 to N do

---

If B[I] < B[L] then

Begin C := B[I];

B[I] := B[L];

B[L] := C;

For J := 1 to N do

Begin

C := A[I ,J];

A[I,J] := A[L,J];

A[L,J] := C;

End;

End;

For I := 1 to N do

Begin

For J := 1 to N do

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

Writeln;

End;

End.
№113 ຺àëà суретініњ программасын ќ±ру керек.

Program pr;

Uses crt, graph;

Var device, mode:integer;Begin Device:=0;

Initgraph ( device, mode’, c; \ pascal \ bgi’);

Set color (blue ); setbkcolor (11);

Rectangle (300, 30, 360, 80 ); {òiê ò¼ðòá½ðûø}

Circle (330, 120, 40 ); {øå»áåð(áàñû)}

Circle ( 345, 110, 5 ); { øå»áåð

Circle ( 315, 110, 5 ); ê¼çäåði}

Line (320, 140, 340, 140); {ò¾çó(àóçû)}

Line (330, 120, 330, 130 ); {ò¾çó(ì½ðíû) }

Line ( 330, 120, 305, 130);

Line ( 330, 130, 305, 130);

Circle ( 330, 220, 60 ); {øå»áåð2}

Circle (330, 360, 80 );

Rectangle ( 350, 163, 455, 183 ); { òiê ò¼ðòá½ðûø}

Rectangle ( 203, 163, 308, 183 ); {åêi ºîëû}

Line ( 210, 130, 210, 440 );

Readln;

Close graph;

End.
№114

Осы жүйенің программасын паскаль тілінде жүргіз (үшін циклі арқылы).
Программасы:

Program ттт;

Var

y,a: real; x: integer

Begin read (a,x)

For a:=1 to 5 do

Begin If x>a then y:=x*exp(1/3*sqrt(x-a))

If x=a then y:=x*(sin(a*x));

If x
writeln (‘y:=’,y); End;

End.
№115 Массивтің оң элементтерінің қосындысын тап:

Program massiv;

Const n=5;

Type m1=array [1…n] of real;

Var a:m1; k: integer; S: real;

begin

for k:=1 to n do

begin read (a[k]);

end;

S:=ø

for k:=1 to n do

if a[k]>0 then S:=S+a[k];

Write (S);

End.
№116 Квадрат матрица берілген. (3;3) өлшемді. Матрица элементінің 2-ге тең элементтері нешеу екенін анықтау керек.
Program v;

Var a: array [1..3,1..3] of real;

i, j: integer; S: integer;

begin

for i:=1 to 3 do

for j:=1 to 3 do

read [i,j];

begin S:=0

for i:=1 to 3 do

for j:=1 to 3 do

if a[i, j]=2 then S:=S+1;

end;

Write (2-ге тең элементтер саны-‘S’);

End.
№117 С массиві берілген. С массивінің 5-інің кіші элементтің санын және 5-ен үлкен элементтің қосындысын тап?
Program м;

Type m=array [1…10] of real;

Var c:m; k,i: integer; S: real;

begin

for i:=1 to 10 do

read (c[i]);

begin S:=0; k:=0;

if c[i]<5 then k:=k+1 else S:=S+c[i];

Write (‘k:=’k; ‘S:=’S); end;

End.
№118 функцияның х1, х2, х3 үшін мәндерінің қосындысын тап?
Program мina;

Var x1, x1, x3, y1, y2, y3, p: real;

Procedure tabu (Var x: real; y: real);

begin y:=5*(sqr(x))+(x*x*x) end;

begin read (x1;x2;x3);

tabu (x1,y1); tabu (x2,y2); tabu (x3,y3);

p:=y1+y2+y3;

Write (‘p:=’p);

End.
№119 функцияның мәндерін х1=5 х2=12 х3=6 болған жағдайда қосындысын тап?
Program н;

Var x1, x1, x3, y1, y2, y3, S: real;

Function man(var x: real; y: real)

begin F:=4*(sqr(x))+exp(3*x*ln(x));

end;

begin x1:=5, x2:=12, x3:=6

---

man(x1,y1); man(x2,y2); man(x3,y3);

S:=y1+y2+y3;

Write (‘S:=’S);

End.
№120 Қабырғалары 6.5, 3.9, биіктігі 4.7 болатын трапецияның ауданын табу керек.
Program audan;

Var a, b, h, s: real;

Begin

a:=6.5; b:=3.9; h:=4.7;

s:=(a+b)*h/2; write(`s=`, s:5:2);

end.
№121 х=31, у=26 үшін х+у мәнін экранға шығару программасын құру керек.

Program f; Uses crt

Var x, y, s: integer;

Begin clrscr;

Write(`x, y=?`); readln (x,y); writeln;

Write (`s=`, x+y); delay (5000)

End.
Программаның орындалуы экранда мынадай түрде көрінеді:

x,y=? 31 26 КҚ

S=57
Мұңдағы CLRSCR, DELAY (n) стандартты атаулар (clear screen-экранды тазалау, delay-кідіріс). Олар Турбо Паскальда пайдаланылатын экранды тазалау және экрандағы көріністі n милли секунд ұстап тұратын нұсқаулар (милли=1/1000сек).
№122 Экранда мынадай бір шумақ өлең шығару қажет:

Өлең сөздің патшасы, сөз сарасы

Қиыннан қиыстырар ер данасы.

Тілге жеңіл, жүрекке жылы тиіп,

Теп-тегіс жұмыр келсін айналасы.

(Абай)
Program 3; uses crt;

Бір шумақ өлең

Begin clrscr;

Writeln(`Өлең сөздің патшасы, сөз сарасы `);

Writeln(`Қиыннан қиыстырар ер данасы.`)

Writeln(`Тілге жеңіл, жүрекке жылы тиіп,`)

Writeln(`Теп-тегіс жұмыр келсін айналасы.`)

Writeln; write (`Абай`); delay (5000)

End.
№123

Program func

Var x,y: real;

Begin

Writeln (‘x,y-енгіз’);

ReadLn (x,y);

If x>=1 and x<=4 THEN

Y:=(sqr(x)-2*x-5)/Exp(x); Else

Y:=5*sin(x)+cos(y);

If x>=4 THEN y:=sqrt(sqr(y)+5)+Ln(x)/Ln(10)

Writeln (‘y=’, y:4:2)

Readln;

End.
№124 n! ïðîãðàììàñûí º½ðó.
PROGRAM f(input,output);

VAR n,i,p:integer;

BEGIN read (n);

For i:=1 to n do

P:=P*i

WRITE (‘n!=’, P)

END.
№125. Массасы 5 г дене түзу сызықты қозғалғандығы жылдамдық уақыты берілген. Денеге әсер етуші күшті тап.

Программасы:

10. Rem

20. Read m, z1, z2, t

30. Let F=(m*(z1-z2))/t

40. Print “F=”;F

50. End

Run F5. Enter
№126. 1-ден 15-ке дейінгі барлық полиндром сандардың тізімін басып шығаратын программа құр (полиндром сан деп кері оқығанда да сол санға тең сан, яғни берілген есеп үшін бірінші және үшінші цифрлары тең сандар).

Программасы:

Program Polindrom;

Var a, b, c, P1: integer;

Begin

For a:=1 to 15 do

For c:=0 to 15 do

For b:=1 to 15 do

Begin

P1:=a*100+b*10+c;

If a=c then write (P1:5);

End.
№127. Массивтің элементтерінің 1-ден 7-ге дейінгі қосындысын тап:

Программасы:

---

Program ma;

Const n=7;

Type m1=array [1…n] of real;

Var a:m1; k: integer; S: real;

begin

for k:=1 to n do

begin read (a[1,...7]);

end;

S:=ø

for k:=1 to n do

if a[k]>0 then S:=S+a[k];

Write (S);

End.
№128 Мына өрнекті есептеп программасын құр? Q=(1+12/f*d*g).

Программасы:

10. Rem

20. Input Q, f, d, g

30. Q=(1+12/f*d*g).

40. Print “d=”;d

50. End.

№129 Тиын ақшаны n рет лақтырғанда цифр жағымен түсу жиіліктігін жуық шамамен анықтау программасын құрыңыз?

Программасы:

Program G; uses ctr;

{жиіліктік}

Label 10;

Var n, m, k, r: integer; W: real;

Begin clrscr;

10: Write (‘n=?’); readln (n); m:=0;

For k:=1 to n do

Begin r:=round(random)

If r:=1 then m:=m+1;

end; W:=m/n;

Writeln(n; сынақта сифр көрінуі-? , m ‘, рет’);

Writeln(‘бос орын клавишын бас’);

Repeat until (key pressed); goto 10

End.
№130 S1, V1 жылдамдықпен ағып жатқан өзеннен судың ағысына қатысты V2 жылдамдықпен қарсы жағаға қайықпен ағысқа перпендикуляр бағытта жүзіп өту үшін қанша уақыт кетеді? t=S/V өтуге кеткен уақыт формуласы.

10. Rem

20. Input S,V1,V2

30. S=80

40. If V1>V2 then 90

50. V=Sqr(V2^2-V1^2)

60. t=S/V

70. Print “t=”;t

80. Stop

90. Print “қайық қарсы жағаға өте алмайды”

100. End.
№131 Жазық бетте жатқан денеге горизонталь бағытта күш әсер етеді. Осы күштің әсерінен t - секунтта дене қанша жол жүреді?

10. Rem

20. Input M, F, k, t

30. If F>9.8*k*M then A=(F-9.8*k*M)/M

40. S=A*(t^2)/2 else S=0

50. Print “S=”;S

60. End.
№132 25м мыс. Сымның массасы 100,7г. Сымның диаметрін табыңдар?

L=2500 m=100.7 p=8.94 v=m/p d=Sqr((4*v)/(p*L))

10. Rem

20. Input L, M, R

30. v=mirIf F>9.8*k*M then A=(F-9.8*k*M)/M

40. d=Sqr((4*v)/(p*L))

50. Print “d=”;d

60. End.
№133 Ұжымдық мекемеде дипломы бар азаматқа жұмыс ұсыну процесі жүруде. Оған мамандарды ретімен қабылдайды. Программасын құр?

Program ds;

Var x, y, z, m: real;

Begin read(x, y, z);

If x>0 then writeln (‘m=’, жұмысқа қабылдау);

Else Writeln(‘y=’, жұмысқа қабылдамау);

If y>3.5 then writeln (‘m:=’, инженер конструктор);

Else Writeln(‘m :=’, ғылыми қызметкер);

If z>2 then writeln (‘m:=’, инженер қызметін ұсыну);

Else Writeln(‘m :=’, жұмысқа қабылдамау);

End.

№134 Дан линейный массив целых чисел. Подсчитать, сколько в нем различных чисел.

{Подсчет количества различных чисел в линейном массиве.

ИДЕЯ РЕШЕНИЯ: заводим вспомогательный массив, элементами

которого являются логические величины (False - если элемент

уже встречался ранее, True - иначе)}

Program Razlichnye_Elementy;

Var I, N, K, Kol : Integer;

A : Array [1..50] Of Integer;

Lo : Array [1..50] Of Boolean;

Begin

Write('Введите количество элементов массива: '); ReadLn(N);

FOR I := 1 TO N DO

Begin

Write('A[', I, ']='); ReadLn (A[I]);

Lo[I] := True; {Заполняем вспомогательный массив значениями True}

---