Компьютерде үш қолданбалы программаны таңдардар.Бұл программаларды төмендегі кестедегідей үлгісіне қарап,оларды талда.Мысалы,Word,Excel,Power Point.Талдау үшін басқа да қолданбалы пргораммаларды таңдауыңа болады.
Const n=10; type ar=array[1..n+1] of integer; var a:ar; i,p:integer; procedure pr(var a:ar; p:integer; var k:integer); begin k:=1; while a[k]<>p do k:=k+1; end; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; p:=17; a[n+1]:=p; pr(a,p,i); if i<n then writeln('Значение 17 найдено, номер элемента = ',i) else writeln('Значения 17 в массиве нет'); end.
Пример: Массив A: 14 5 7 17 25 15 28 0 24 0 Значение 17 найдено, номер элемента = 4
6445 Кбайт
Объяснение:
V = t * f * i * k , где
V - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение, разрядность) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
t = 5 мин = 5 * 60 = 300 секунд
f = 22000 (единицы не указаны, будем считать что Гц)
i = 8 бит
k не указано (будем считать 1 моно)
Найти:
V
V = t * f * i * k
V = 300 * 22000 * 8 * 1 = 52 800 000 бит
V = 52 800 000 бит = 52 800 000 / 8 = 6 600 000 байт = 6 600 000 / 1024 = 6 445,3125 Кбайт ≈ 6445 Кбайт
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.
Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4