1)Все просто Почему так? Все просто в левой части уравнения приведена формула времени за которое передастся файл размером 32*1024*8 (переводим в биты) и справа также приведена формула времени передачи файла размером x со скоростью 256 б/с. приравниваем одно к другому дальше выражаем x и просто считаем получится x=16384 бита или 2048 байта. 2) Кбайт (надеюсь обьяснять как переводить из бит в байты Кбайты и т.д. не надо?) 3) также как и раньше сначала переводим всё в биты 375 Кбайт=375*1024*8 бит и расчитываем по формуле v=s/t (аналогия из математики) бит в секунду 4)также как и раньше только теперь t=s/v секунд 5)точно такая же как и раньше только теперь s=vt ну и перевести в Кбайты не забудь Кбайт
function PosBlank(s: string; pn, pk: integer): integer; { Ищет в строке s в позициях от pn до pk пробельный символ. Возвращает его позицию в строке или ноль, если таковой символ не найден. Использует подмножество пробельных символов Blanks, что позволяет определять произвольный набор пробельных символов (например, табуляцию и т.д.) } var p: integer; flag: boolean;
begin p := pn; flag := true; while flag and (p <= pk) do begin if s[p] in Blanks then flag := false else p := p + 1 end; if p > pk then PosBlank := 0 else PosBlank := p end;
function PosNonBlank(s: string; pn, pk: integer): integer; { Ищет в строке s в позициях от pn до pk непробельный символ. Возвращает его позицию в строке или ноль, если таковой символ не найден. Использует подмножество пробельных символов Blanks, что позволяет определять произвольный набор пробельных символов (например, табуляцию и т.д.) } var p: integer; flag: boolean;
begin p := pn; flag:=true; while flag and (p <= pk) do begin if s[p] in Blanks then p := p + 1 else flag := false end; if p > pk then PosNonBlank := 0 else PosNonBlank := p end;
var s: string; i, l, k: integer;
begin Write('Введите строку: '); Readln(s); l := Length(s); k := 0; i := PosNonBlank(s, 1, l); while (i>0) and (i <= l) do begin k := k + 1; i := PosBlank(s, i + 1, l); if i = 0 then i := l + 1 else i := PosNonBlank(s, i + 1, l) end; Writeln('Количество слов в строке равно ', k) end.
Почему так? Все просто в левой части уравнения приведена формула времени за которое передастся файл размером 32*1024*8 (переводим в биты) и справа также приведена формула времени передачи файла размером x со скоростью 256 б/с. приравниваем одно к другому дальше выражаем x и просто считаем
получится x=16384 бита или 2048 байта.
2) Кбайт (надеюсь обьяснять как переводить из бит в байты Кбайты и т.д. не надо?)
3) также как и раньше сначала переводим всё в биты
375 Кбайт=375*1024*8 бит
и расчитываем по формуле v=s/t (аналогия из математики)
бит в секунду
4)также как и раньше только теперь t=s/v
секунд
5)точно такая же как и раньше только теперь s=vt ну и перевести в Кбайты не забудь Кбайт
Blanks = [' '];
function PosBlank(s: string; pn, pk: integer): integer;
{
Ищет в строке s в позициях от pn до pk пробельный символ.
Возвращает его позицию в строке или ноль, если таковой символ не найден.
Использует подмножество пробельных символов Blanks, что позволяет определять
произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
p: integer;
flag: boolean;
begin
p := pn;
flag := true;
while flag and (p <= pk) do
begin
if s[p] in Blanks then flag := false
else p := p + 1
end;
if p > pk then PosBlank := 0
else PosBlank := p
end;
function PosNonBlank(s: string; pn, pk: integer): integer;
{
Ищет в строке s в позициях от pn до pk непробельный символ.
Возвращает его позицию в строке или ноль, если таковой символ не найден.
Использует подмножество пробельных символов Blanks, что позволяет определять
произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
p: integer;
flag: boolean;
begin
p := pn;
flag:=true;
while flag and (p <= pk) do
begin
if s[p] in Blanks then p := p + 1
else flag := false
end;
if p > pk then PosNonBlank := 0
else PosNonBlank := p
end;
var
s: string;
i, l, k: integer;
begin
Write('Введите строку: ');
Readln(s);
l := Length(s);
k := 0;
i := PosNonBlank(s, 1, l);
while (i>0) and (i <= l) do
begin
k := k + 1;
i := PosBlank(s, i + 1, l);
if i = 0 then i := l + 1
else i := PosNonBlank(s, i + 1, l)
end;
Writeln('Количество слов в строке равно ', k)
end.