Документ объёмом 5 Мбайт можно передать с одного компьютера на другой двумя : А) Сжать архиватором, передать архив по каналу связи, распаковатьБ) Передать по каналу связи без использования архиватораКакой быстрее и насколько, если– средняя скорость передачи данных по каналу связи составляет 218 бит в секунду, – объем сжатого архиватором документа равен 20% от исходного, – время, требуемое на сжатие документа – 7 секунд, на распаковку – 1 секунда?В ответе напишите букву А, если А быстрее или Б, если быстрее Б. Сразу после буквы напишите количество секунд, насколько один быстрее другого.Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23.
Ответы
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer; a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do begin a[i].x:=random(getmaxX); a[i].y:=random(getmaxY); circle(a[i].x,a[i].y,2); end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do begin if a[i].y>getmaxY-n-10 then a[i].y:=1 else a[i].y:=a[i].y+3; if a[i].x<0 then a[i].x:=getmaxX else a[i].x:=a[i].x-1; end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then begin n:=n+1; line(0,getmaxY-n,getmaxX,getmaxY-n); end; until keypressed; readln end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Ввести с клавиатуры количество линий и построить фигуру:
Автор: iservice38
Что такое форма представления информации
Автор: alekseydovganich6
Дана блок-схема. какое значение будет иметь z на выходе, если x=46 ?
Автор: khadisovam9