Мы живем в таком мире, в котором люди постоянно окружены информацией. Все окружающие вас процессы, предметы, явления несут в себе информацию, но иногда получаемой вами информации по определенному вопросу бывает либо недостаточно, либо слишком много. Так что же лучше, переизбыток или недостаток? Я думаю, конечно же, переизбыток. Человек обладает способностью анализировать, поэтому я считаю, что лучше получить информации чуть больше, чем надо и впоследствии переработать ее, чем чего то не понять и продолжать лишь догадываться. Информация это всегда хорошо, человеку свойственно тянуться к новым знаниям, главное уметь из ее непрерывного потока взять максимум полезного для себя.
1. function f( x: float ): float;
var i: integer;
begin
for i := 0 to size-1 do
if (fx[ i ] <= x) and (x <= fx[ i+1 ]) then
begin
f := (fy[ i+1 ] - fy[ i ]) / (fx[ i+1 ] - fx[ i ]) * (x - fx[ i ] );
break;
end;
end;
...
x := a;
dx := (b-a) / 10;
while (x <= b) do
begin
writeln( x, ' => ', f(x) );
x := x + dx;
end;
2. sqrt( pow( x, 4/5 ) + pow( x, (4-x)/5 ) ) + ln( abs(x-0.25) )
1 пиксели, математические формулы геометрических объектов, фрактальной геометрии
2 Количество битов, кол-во нормалей, кол-во битов
3 малый, большой, средний
4 ухудшается, не изменяется, не изменяется
5 размер файла зависит от размера изображения, качество изображения, качество
6 ухудшение качества при масштабировании, большой размер исходного файла, большой размер
7 Photoshop, Coral Draw , Painter
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
Program chisla;
var a,b:integer;
q:real;
begin
read(a,b);
q:=(abs(a)+abs(b))/2;
writeln(q);
q:=sqrt(abs(a)*abs(b));
writeln(q);
end.