Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
<span>End Sub</span>
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
Площадь изображения 15,5 кв. дюймов. На каждыц кв. дюйм приходится 600×600=360000 точек. Всего точек в изображении 15,5×360000=5580000.
На каждую точку приходится 32 бита или по-другому 4 байта (глубина цвета). Следовательно, информационный объем в байтах будет равен:
5580000×4=22320000 байт. Чтобы получить килобайты, поделим это число на 1024:
22320000:1024≈21797 килобайт.
158кб=158*2^13 бит
1кб=2^13 бит