не успеваююю решите задачи№1. Файл размером 1500 Кбайт передаётся через некоторое соединение в течение 75 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 50 секунд. В ответе укажите одно число — размер файла в Кбайт. Единицы измерения писать не нужно.№2. Файл размером 8 Мбайт передаётся через некоторое соединение за 128 секунд. Определите время в секундах, за которое можно передать через то же самое соединение файл размером 4096 Кбайт. В ответе укажите только число секунд. Единицы измерения писать не нужно.№3 Передача файла размером 1250 Кбайт через некоторое соединение заняла 40с. Определите скорость передачи данных через это соединение.
Ответы
1. Вот так сейчас решают подобные задачи:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
Если элементы массива идут по возрастанию, то вот так
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выбери правильные имена. 1)a_kloun 2)Щ
Автор: menesmir
Переведите число в десятичную систему счисления: 15а16
Автор: mishamedbrat
Виды робота и история его развития
Автор: lor005148
№1. 1500 Кбайт — 75 секунд
x Кбайт — 1 секунда
x=1500/75=20 Кбайт — скорость соединения(за 1 секунду)
20*50=1000 Кбайт
ответ: 1000 Кбайт-размер файла
№2. 8Мбайт =64Мбит/128сек = 0,5 Мбит/сек - скорость соединения
4096 Кбайт=4 Мбайт = 32 Мбит - размер файла
32 Мбит / 0,5 Мб/с = 64 сек. - время скачивания файла.
ответ : 64
№3. V = 1250 Кбайт =1024*8*1250 = 10240000 бит
t = 40 c
скорость v = V/t = 10240000 бит/ 40 c= 256000 бит/с = 31,25 Кбайт /с
ответ: 31,25 Кбайт /с