function f(x1,x2,x3,x4:integer):real; begin f:=x1*sin(x2)+x3*sin(x4); end; Begin for i := 1 to 10 do readln(x1,x2,x3,x4); writeln(" x1=",x1," x2=",x2," x3=",x3," x4=",x4," y=",f(x1,x2,x3,x4)); for j := 1 to n do End.
uses GraphABC; begin var w:=Window.Width; var h:=Window.Height; var x0:=w div 2 -1; var y0:=h div 2 -1; SetCoordinateOrigin(x0,y0); var k:=h/w; for var x:=0 downto -x0 do begin var y:=Trunc(k*x); Brush.Color:=clRed; Pen.Color:=clRed; Circle(x,y,10); sleep(50); Brush.Color:=clWhite; Pen.Color:=clWhite; Circle(x,y,15) end; end.
Обозначим объем файла через N. При повторной оцифровке с разрешением в 3 раза выше, получим объем 3N. Удвоенная дискретизация даст объем 2×3N = 6N. При той же пропускной способности канала передача шла бы 50×6 = 300с. Но пропускная способность вдвое меньше, поэтому время придется удвоить. 300×2=600с = 600/60=10 мин.