uses
GraphABC;
var
a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));
begin
SetBrushColor(clYellow);
FillRect(0, 0, WindowWidth, WindowHeight);
SetBrushHatch(HatchStyle.Percent05);
SetBrushStyle(BrushStyleType.bsHatch);
SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clRed);
FillPolygon(a);
DrawPolygon(a);
end.
X=x-2=3-2=1
y=y+4=16+4=20
x=x+5=1+5=6
y=y-3=20-3=17
x+y=6+17=33
1)
a)701(8)=449(10)
b)3A(16)=58(10)
2) 568,18(10) = 0.56818 * 10^3 = 0.56818e3
3)
а) 0,001283 х 10^5 = 0,001283 х 100000 = 128,3
б) 13,4501 х 10^0 = 13,4501 х 1 = 13.4501
в) 0,923Е-3 = 0,923 x 10^(-3) = 0,923 x 0.001 = 0,000923
4)
а)156х10(в -1 степени)
б)-1678х10(-2 степени)
Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
Решение:
60*40*150=360 000
Информационный объем книги равен 360 000 так как 1 символ = 1 байт.
Ответ в КБ:
360 000 :1024 = 351,56 КБ.
Удачи в изучении информвтики)
Если остались вопросы - задавай.
