Қызылорда қаласы №1 Екі санның қосындасын табу программасын құру керек



бет3/5
Дата08.06.2016
өлшемі0.5 Mb.
#122678
1   2   3   4   5

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.
102 “а” әрпінен басталатын және “а” әрпіне бітетін сөздерді текстен алып тастау программасын ќұру керек.
Program delse;

Var T: string;

I, K: integer;

Begin


Writeln (‘тексті енгіз’);

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;


Until (T(K+I]=’ ’) or (I+K= length(T));

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

End;

Writeln (T);



End.

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


Program sved KN;

Const N=10;

Type sved = RECORD

FIO : STRING[25];

NAZ , IZD : STRING;

GOD IZD : INTEGER;

End;

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



I: integer;

OFIO:string[25];

Begin

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



For I:=1 to N do

With mas sved[I] do

Begin

Readln (FIO);



Readln (NAZ);

Readln (IZD);

Readln (GOD IZD)

End;


Readln (OFIO);

For I:=1 to N do

With mas sved[I] do

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

Begin

Writeln (NAZ);



Writeln (IZD, GOD IZD);

End;


End.
104 А(5,5), В(5,5), С(5,5) массивтері берілген. Массивтіњ таќ баѓандарында т±рѓан ж±п оњ элементтердіњ максималды ќосындысын шыѓару программасын ќ±ру керек.

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


Writeln (‘массивті енгізіњіз:’);

For I:=1 to N do

For J:=1 to N do

Read(X[I,J]);

Writeln;

End;


Function SUM(x:MAS): integer ;{элементтердіњ ќосындысын санау}

Var S : integer;

Begin

S :=0;


For I :=1 to N do

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;


Procedure OUT MASS( X:MAS);{массивті шыѓару процедурасы}

Begin


For I:=1 to N do

begin


For J:=1 to N do

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

Writeln;

End;


End;

begin


INP MASS(A); INP MASS(B); INP MASS(C); {массивтерді енгізу }

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 Символдыќ f1 жєне f2 файлдары берілген. f1 компаненттерініњ ретін µзгертпей f2 файлына, ал f2 файлыныњ компаненттерін f1- ге кµшірудіњ программасын ќ±ру керек.

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


for I:= 1 to K do

begin write (I’.:’);

readln (DATA);

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

end;

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



procedure paste (var H1, H2: TEXT; K:= INTEGER);

begin


reset (H1);

reset (H2);

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

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

for I:= 1 to K do

begin


read (H1, DATA);

write (H2, DATA);

end;

end;


procedure OUT_ DATA (var F: TEXT);

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

begin

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



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

while NOT (EOF (F)) do

begin

read (F, DATA);



writeln (DATA: 6);

end;


end;

begin


assign (F1,’ C:\ BP\ BIN\ IN1_DATA.DAT’);

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;


End.

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


Program space;

Uses graph, crt;

Const N=1000;

Type


Pixeltype = record {ж±лдыздар координаталары}

XP,YP: integer;

End;

Var


A, U, E, X, DX, DY, I, SIZE: integer;

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

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

Procedure starsky;

Begin

Setbkcolor (0);



Randomize;

For i:=1 to N do

With P[I] do

Begin


XP:= random ( getmax x-10);

YP:= random (getmax y-10);

End;

Repeat


For I:=1 to N do

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;



Begin

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); {Венераны салу}



Достарыңызбен бөлісу:
1   2   3   4   5




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

    Басты бет