1. Определим размер файла, содержащего 1с записи. Частота дискретизации по времени 16 кГц означает, что за 1с снимаются 16000 отсчетов громкости в каждом канале, а всего 4×16000=64000 отсчетов.. Частота дискретизации по уровню громкости (разрешение) составляет 32 бита или 32/8=4 байта и поэтому файл запись потребует для хранения одной секунды 64000×8=512000 байт = 512000/1024 = 500 Кбайт. 2. Найдем время записи 60 Мбайт = 60×1024 = 61440 Кбайт - общий объем файла 61440/500 = 122.88 с = 2 мин 2.88 с
//Не смотрел Ваш код, просто моё видение решения задачи //PascalABC.NET 3.2 сборка 1318
Var t:text; x,y,i,j:integer; s:string; c:char; world:array[1..4] of char=('E','S','W','N'); begin j:=1; c:='E'; assign(t,'input.txt'); reset(t); read(t,s); close(t); i:=1; while s[i]<>'S' do begin if s[i]='R' then begin if c='N' then j:=1 else inc(j); c:=world[j]; end; if s[i]='L' then begin if c='E' then j:=4 else dec(j); c:=world[j]; end; if s[i]='F' then case c of 'E':inc(x); 'S':dec(y); 'W':dec(x); 'N':inc(y); end; inc(i); end; assign(t,'output.txt'); rewrite(t); write(t,x,' ',y); close(t); end.
Пример содержимого input.txt: FLFS Пример содержимого output.txt: 1 1
Частота дискретизации по времени 16 кГц означает, что за 1с снимаются 16000 отсчетов громкости в каждом канале, а всего 4×16000=64000 отсчетов..
Частота дискретизации по уровню громкости (разрешение) составляет 32 бита или 32/8=4 байта и поэтому файл запись потребует для хранения одной секунды 64000×8=512000 байт = 512000/1024 = 500 Кбайт.
2. Найдем время записи
60 Мбайт = 60×1024 = 61440 Кбайт - общий объем файла
61440/500 = 122.88 с = 2 мин 2.88 с
ответ: а) 2 мин.
//PascalABC.NET 3.2 сборка 1318
Var
t:text;
x,y,i,j:integer;
s:string;
c:char;
world:array[1..4] of char=('E','S','W','N');
begin
j:=1;
c:='E';
assign(t,'input.txt');
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]<>'S' do
begin
if s[i]='R' then
begin
if c='N' then j:=1 else inc(j);
c:=world[j];
end;
if s[i]='L' then
begin
if c='E' then j:=4 else dec(j);
c:=world[j];
end;
if s[i]='F' then
case c of
'E':inc(x);
'S':dec(y);
'W':dec(x);
'N':inc(y);
end;
inc(i);
end;
assign(t,'output.txt');
rewrite(t);
write(t,x,' ',y);
close(t);
end.
Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1