Тест жұмысы 1. Информатика пәні нені зерттейтін ғылым?
а)ақпараттар жиынтығын
ә)мәліметтерді тасмалдау
б) ЭЕМ – нің көмегімен танбалар мен сигналдарды сақтау зандылықтары
в) ЭЕМ – нің көмегімен ақпараттарды жинау, сақтау, өңдеу заңдылықтары
2. Ақпараттың өлшем бірлігі
А) бид, байт
Ә)код, бит
Б)бит, байт
В)код, бит
3.Ақпараттық процестерді жүзеге асыратын құрал ...
а)компьютер
ә)модем
б) сканер
в) принтер
4.1Кбайтта қанша байт бар?
а)1000 байт
ә)1024 бит
б) 100 байт
в) 1024 байт
5. Бірінші ЭЕМ қай жылы жасалды және ол қалай аталады?
а)1823, МИНСК
ә) 1946, ЭНИАК
б) 1951, ІВМ
в)1949, ЭНИАК
6. Қай сөйлем дұрыс?
а) Пернетақта – енгізу құрылғысы
ә) Пернетақта – шығару құрылысы
б) Манитор – енгізу құрылысы
в)Принтер – енгізу құрылысы
7. Ақпаратты шығару құрылғыларын көрсетіңіз...
а)Монитор, принтер
ә)Монитор, тінтуір
б) Процессор, принтер
в)Принтер, сканер
8. Жүйелік блоктың ішінде қандай құрылғылар бар?
А) процессор,қатқыл диск,CD-ROM,дискжетек
Ә) процессор,жады,электронды түтікше
Б) дискжетек,процессор,пернетакта
9. Компьютердің ішкі жадысының неше түрі бар?
А) тұрақты,уақытша жадтайтын құрылғы
Ә) жедел,тұрақты жадтайтын құрылғы
Б) жедел,оперативті сақтайтын құрылғы
10. Принтердің қандай түрі бар
А) лазерлік;инелік,сиялық
Ә) матрицалық,инелік,сия бүріккіш
Б) матрицалық,лазерлік,сия бүріккіш. Өтінемін көмектесініздерші
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.