—Тест тапсырмалары1.Егер алгоритмдегі іс-әрекет бірінен кейін бірі қатаң түрде орындалса...алгоритм деп аталады.А) сызықтықВ) тармақталғанC) толық емес формадағы тармақталған алгоритмD) тармақталған элементтері бар сызықтық алгоритм2. Толық және толық емес формадағы алгоритмді не деп атайды?А) сызықтықВ) тармақталғанC) ондай алгоритм жоқD) таңдау алгоритмі3. Алгоритмнің бірнеше рет қайталануы?A) Сызықтық алгоритмВ) Тармақталған алгоритмC) Циклдік алгоритмD) Дұрыс жауабы жоқ4. Алгоритм дегенімізА) берілген есепті шешудегі жасалатын әрекеттердің дәл және қарапайыметіп жазылуыВ) толық сипатталған тапсырмаC) Іс-әрекетD) математикалық есептің шешілуі5.Компьютердің ең басты шинасы?А) Жүйелік шинаВ) Деректер пинасыC) Басқару шинасыD) Адрестік шина6.Жедел жады не үшін керек?A) Модеммен компьютерді жалғау үшінВ) ақпаратты өңдеу үшінС) программаларды іске қосу үшінD) ақаратты уақытша сақтау үшін7.Ұсынылғандардың ішінен алгоритм формаларына жатпайтынынкөрсетіңдер:А) сөздікВ) графикалықС) алгоритмдік тілдеD) ағылшын тілінде8.Блок-сызбада алгоритмнің басы мен соңы қандай фигурамен беріледі?A) эллипс​

1)С

2)А

3)В

4)А

5)С

6)А

7)Д

Жауаптары

Program velobike;

Uses crt,graph;

Var gr:integer;

gm:integer;

x,y:integer;

begin

gr:=detect;

initgraph(gr,gm,'..\bgi');

x:=600;

y:=250;

repeat

for x:=0 to 600 do

begin

cleardevice;

setbkcolor(8);

setcolor(2);

setlinestyle(1,0,1);

rectangle(1,3,639,475);

setfillstyle(1,6);

bar(2,280,638,475);

setcolor(6);

setfillstyle(1,2);

circle(x-150,y,27);

floodfill(x-140,y-10,6);

setcolor(yellow);

circle(x-150,y,3);

setcolor(6);

setfillstyle(1,2);

circle(x-0,y,27);

floodfill(x-0,y-10,6);

setcolor(yellow);

circle(x-0,y,3);

setcolor(yellow);

circle(x-70,y,10);

circle(x-70,y,2);

setcolor(yellow);

arc(x-150,y,355,190,30);

arc(x-0,y,445,200,30);

setcolor(2);

setlinestyle(0,0,2);

line(0,280,639,280);

setcolor(white);

setlinestyle(0,2,3);

moveto(x-110,y-50);

lineto(x-15,y-50);

moveto(x-150,y);

lineto(x-70,y);

lineto(x-10,y-35);

moveto(x-70,y);

lineto(x-110,y-50);

moveto(x-150,y);

lineto(x-110,y-50);

moveto(x-150,y);

lineto(x-170,y-35);

lineto(x-123,y-35);

moveto(x-0,y);

lineto(x-20,y-73);

lineto(x-40,y-60);

moveto(x-20,y-73);

lineto(x-12,y-90);

moveto(x-150,y);

lineto(x-180,y-10);

moveto(x-0,y);

lineto(x-30,y);

setcolor(6);

setlinestyle(0,0,1);

moveto(x-70,y);

lineto(x-55,y-20);

setcolor(red);

lineto(x-45,y-20);

setcolor(8);

moveto(x-70,y);

lineto(x-75,y+20);

setcolor(6);

lineto(x-85,y+20);

setcolor(6);

moveto(x-110,y-50);

lineto(x-115,y-63);

setcolor(red);

moveto(x-40,y-60);

lineto(x-50,y-60);

moveto(x-12,y-90);

lineto(x-22,y-90);

setcolor(red);

setlinestyle(0,0,3);

moveto(x-123,y-63);

lineto(x-103,y-63);

delay(10000);

end;

settextstyle(0,0,3);

cleardevice;

setcolor(red);

outtextxy(30,240,'XoTuTe IIocMoTpeTb eLLLe?');

outtextxy(100,280,'    Ha}|{MuTe Enter      ');

readln;

until keypressed;

readln;

closegraph;

end.

Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.