Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
Program gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+1/a*b*w;
end;
writeln(p);
end.
2)
program gt;
var p:real;a,b,w:integer;
begin
a:=-1;b:=1;w:=-1;p:=0;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
<span>end.
1-первый случай
2-второй случай</span>
1) 0 или 1 - т. е. 1 бит на точку, но реально используются другие механизмы... .
2) 0-16 - 4 бита на точку
3) 256 - 8 бит (1 байт) на точку
4) 1024*768*2 байт ( 2 байта - 0-65536)
5) тупой вопрос, но решение можно найти. Перевести см в дюймы, умножить их на 400, умножить 24 бита и т. д.
6) 1024*768 байт но реально там ещё храниться заголовок и иногда палитра
<span>7) квадратный корень из 500 - примерно 22*22 пиксела</span>
Множество улиц
Множество городов
Множество о проспектах
Множество площадей