Теория струн оперирует такими маленькими размерами (порядка планковской длины) и такими огромными энергиями (недостижимыми с современным уровнем технологий), что экспериментально проверить хоть какие-нибудь ее предсказания очень трудно. Одним из немногих является эффект Казимира, который обещает, что две параллельные поверхности, находящиеся в вакууме, будут притягиваться из-за квантовых свойств вакуума, если находятся достаточно близко друг от друга. Это происходит потому, что в ограниченном пространстве могут рождаться не любые виртуальные частицы, а только те, длина волны которых целое число раз укладывается на расстояние между пластинами. А раз не все частицы могут появляться, то и давление, которое они создают, меньше, чем снаружи, где такого ограничения нет. Вот пластины и притягиваются. (Эффект реально обнаружен и экспериментально подтвержден.) Напишите программу, которая обрабатывает экспериментальные данные (энергии виртуальных частиц).
Проводится N экспериментов. Для каждого из них будет вводиться значение достигнутой энергии. По величине этой энергии можно определить длину волны частицы, которая могла появиться в этом эксперименте по формуле: λ = hc/E = 12431.25/E (Ангстрем)
Однако, если энергия больше 5000 эВ, то эксперимент становится опасным, его нужно прекратить (опять немного погрешим против физики, на самом деле, опасная энергия значительно больше!).
Нужно определить, сколько раз в каждом из них наблюдался эффект Казимира, то есть длина волны каждой полученной частицы целое число раз укладывалась на расстоянии d между пластинами.
Будем считать, что условие выполняется, если число волн отличается от целого числа не более, чем на 0.1 из-за погрешностей.
Формат ввода
Целое число d — расстояние между поверхностями в Ангстремах (10-10 м).
Целое число N — количество циклов экспериментов, каждый цикл проводится до появления строки КОНЕЦ ЭКСПЕРИМЕНТА, если раньше не встретится опасное значение энергии. В этом случае данный цикл прекращается.
Затем вводятся целые числа — сами результаты экспериментов — значения энергии виртуальных частиц в в электрон-Вольтах (эВ).
Формат вывода
Для каждого цикла экспериментов выводится номер цикла (с 1) и целое число — сколько раз наблюдался эффект Казимира.
После окончания последнего цикла экспериментов вывести строку в формате: Общее количество успешных экспериментов: {количество}
Успешными считаются эксперименты, в которых эффект был обнаружен.
begin
var a:=ArrRandom(10,1,50); a.Println;
var c:=ReadInteger('c = ');
var s:=a.Where(x->x>c);
if s.Count>0 then
writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
else writeln('В массиве нет искомых элементов');
end.
Пример:
8 2 22 16 24 34 29 16 1 26
c = 50
В массиве нет искомых элементов
2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.
Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00
1) 165
2) 58
3) 8
1) цикл сработает 11 раз = > решаем через прогрессию
s = (a1 + an ) / 2 * n = (0 + 30) / 2 * 11 = 165 (или можно тупо посчитать по итерациям)
2) на нужно чтобы n = 150 => посчитаем сколько раз должен выполниться цикл (150 - 3) / 7 = 21
1200 / 21 = 57.14 округляем в большую сторону
3) У тебя строка из 193 восьмерок (8) программа 888 на 2 и 222 на 8 => 888 888 888 на 8 => 193 / 9 = 21 и еще 4 восьмерки => 25 дальше снова / 9 = 2 + 7 = 9 восьмерок которые заменяются на одну 8