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
объяснение: