begin Writeln('Год Запас рыбы,т. Улов,т'); zapas := perv_zapas; for year := 1 to 20 do begin zapas := zapas * (1 + percent / 100); if zapas - plan < 250 then ulov := zapas - 250 else ulov := plan; zapas := zapas - ulov; if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1) else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана') end end.
Результат выполнения программы: Год Запас рыбы,т. Улов,т 1 950.0 180.0 2 893.5 180.0 3 829.7 180.0 4 757.5 180.0 5 676.0 180.0 6 583.9 180.0 7 479.8 180.0 8 362.1 180.0 9 250.0 159.2 - меньше плана 10 250.0 32.5 - меньше плана 11 250.0 32.5 - меньше плана 12 250.0 32.5 - меньше плана 13 250.0 32.5 - меньше плана 14 250.0 32.5 - меньше плана 15 250.0 32.5 - меньше плана 16 250.0 32.5 - меньше плана 17 250.0 32.5 - меньше плана 18 250.0 32.5 - меньше плана 19 250.0 32.5 - меньше плана 20 250.0 32.5 - меньше плана
1. Частота 48 КГц требует для записи 48 000 отсчетов в секунду на каждый канал. 2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду. 3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта. 4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт 5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт. 6. Определяем максимальное время звучания при указанном размере файла: 2 097 152 / 192 000 ≈ 10.92 (секунды)
percent = 13.0;
limit = 250.0;
plan = 180.0;
perv_zapas = 1000.0;
var
year: integer;
zapas, ulov: real;
begin
Writeln('Год Запас рыбы,т. Улов,т');
zapas := perv_zapas;
for year := 1 to 20 do
begin
zapas := zapas * (1 + percent / 100);
if zapas - plan < 250 then ulov := zapas - 250
else ulov := plan;
zapas := zapas - ulov;
if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
end
end.
Результат выполнения программы:
Год Запас рыбы,т. Улов,т
1 950.0 180.0
2 893.5 180.0
3 829.7 180.0
4 757.5 180.0
5 676.0 180.0
6 583.9 180.0
7 479.8 180.0
8 362.1 180.0
9 250.0 159.2 - меньше плана
10 250.0 32.5 - меньше плана
11 250.0 32.5 - меньше плана
12 250.0 32.5 - меньше плана
13 250.0 32.5 - меньше плана
14 250.0 32.5 - меньше плана
15 250.0 32.5 - меньше плана
16 250.0 32.5 - меньше плана
17 250.0 32.5 - меньше плана
18 250.0 32.5 - меньше плана
19 250.0 32.5 - меньше плана
20 250.0 32.5 - меньше плана