Думаю, речь идёт об Ощущениях. Челoвек пoлучает информацию из окружающего мира пoсредством глаз (зрeние), ушей (слyх), носа ( обoняние), языка ( вкус), кожи (осязaние), вестибулярнoго аппaрата ( ощущение равновесия, ускорения и веса). Инфoрмация о раздражителях , действующих на рецeпторы, передaется в ЦНС (центральную нервную систему) и человек распознаёт её в виде ОЩУЩЕНИЙ. Возникает ответный сигнал, и он передаётся по нeрвам в соответствующие человеческие органы
Var
n:integer;
x,y:real;
begin
for n:=1 to 50 do begin
Writeln('n=',n);
x:=1;
while x<=3.001 do begin
y:=sin(n*x)-cos(n/x);
if y<0 then Writeln('x=',x:3:1,' y=',y:8:5);
x:=x+0.1
end
end
end.
<u>Результаты (частично)</u>
n=1
x=2.1 y=-0.02554
x=2.2 y=-0.08996
x=2.3 y=-0.16126
x=2.4 y=-0.23898
x=2.5 y=-0.32259
x=2.6 y=-0.41144
x=2.7 y=-0.50481
x=2.8 y=-0.60191
x=2.9 y=-0.70188
x=3.0 y=-0.80384
n=2
x=1.5 y=-0.09412
x=1.6 y=-0.37370
x=1.7 y=-0.63973
x=1.8 y=-0.88619
x=1.9 y=-1.10714
x=2.0 y=-1.29710
x=2.1 y=-1.45132
x=2.2 y=-1.56607
x=2.3 y=-1.63885
x=2.4 y=-1.66858
x=2.5 y=-1.65563
x=2.6 y=-1.60190
x=2.7 y=-1.51073
x=2.8 y=-1.38683
x=2.9 y=-1.23607
x=3.0 y=-1.06530
...
n=49
x=1.0 y=-1.25435
x=1.1 y=-1.31878
x=1.3 y=-0.23684
x=1.5 y=-1.26149
x=1.6 y=-0.56383
x=1.9 y=-1.70385
x=2.0 y=-1.37979
x=2.4 y=-0.98177
x=2.5 y=-0.70927
x=2.6 y=-0.01366
x=2.7 y=-0.41812
x=2.8 y=-1.07678
x=2.9 y=-0.29265
n=50
x=1.0 y=-1.22734
x=1.1 y=-1.09814
x=1.5 y=-0.04807
x=1.6 y=-1.98015
x=2.0 y=-1.49757
x=2.1 y=-1.21559
x=2.5 y=-1.02412
x=2.6 y=-1.85832
x=2.7 y=-0.85734
x=3.0 y=-0.14029
Может это поможет:
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин:
Канал у вас что-то уж совсем узенький :)
1. Способ с архивированием.
Архивация: 18 с.
Передача: 4*1024*1024*8:220~=152520,145 с.
Распаковка: 2 с.
итого: 18+152520,145+2=152540,145 с.
2. Способ без архивирования.
Передача: 16*1024*1024*8:220=610080 с.
Конечно, с архивированием, почти вчетверо быстрее :)
Const n=14;
var
a,b,c: array[1..n] of integer;
i: byte;
begin
randomize;
for i:=1 to n do begin;
a[i]:=random(-10,10);
b[i]:=random(-10,10);
end;
println (a);
writeln;
println (b);
writeln;
for i:=1 to n do begin;
c[i]:=a[i]*b[n+1-i];
end;
println (c);
end.
---------------------------------
Пример:
9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10
-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9
-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30