вторник, 19 января 2016 г.

КОМАНДА PROEDU ( ПРО ОБРАЗОВАНИЕ)

Сделать все хорошо
ПЭ "КРУШЕНИЕ ИЛЛЮЗИЙ"
ЗХН
ПРГ
Ссылка на сайт СП
Участники: Савченкова М.В. , Трусова Н.П.
p = 1000
a = 10
b = 2.12
k = 0
delta = 1 / p
s11 = 10.091 ** 2- 2.089 ** 2
s12 = (10.091 - 2.089)*(10.091 + 2.089)
for n in range(1, p +1):
    s1 = a *a - b * b
    s2 = (a -b)*(a+b)
    if (s1 != s2):
        k  += 1
        print(s1,s2)
    a += delta
    b += delta
print(s11,s12,k)

print(k/n*100,"%")

Proedu_Ахиллесова пята

Language: Editor: Layout:
  + ] Show input   
Absolute running time: 0.12 sec, cpu time: 0.09 sec, memory peak: 6 Mb, absolute service time: 0,13 sec 
edit mode |  history
95.53711999999999 95.53711999999997
95.55287999999996 95.55287999999997
...
111.21831999998854 111.21831999998852
111.23407999998851 111.23407999998852
97.46435999999999 97.46435999999999 345
34.5 %

program Prov;
const p=1000; 
var S1,S2,S11,S12,a,b,delta:real; k,n:integer;
begin
  a:=10;b:=2.12; k:=0; delta:=1/p;      {шаг 0,0001}
   writeln('delta');
  writeln(delta);
  S11:=(10.091-2.089)*(10.091-2.089)-2.089*2.089;  {вычислили одну формулу}
  S12:=10.091*10.091-2*2.089*10.091;{вычислили вторую формулу}
   writeln('S11 ? S12');
  writeln(S11:18:18);
  writeln(S12:18:18);
   writeln;
    for n:=1 to p do
  begin
    S1:=(a-b)*(a-b)-b*b; S2:=(a)*(a)-2*a*b;
    if S1<>S2 then
    begin
    k:=k+1; {количество не равных выражений}
    writeln('выводим значения выражений, которые не совпали');
  writeln(S1:18:18); 
  writeln(S2:18:18);writeln;
    end;
    a:=a+delta;b:=b+delta; {следующее число}
  end;
   
  writeln('количество несовпавших выражений - ',k);{количество несовпавших выражений}
 writeln(k/p*100:0:0,'%')  {% несовпавших}
end.
...
выводим значения выражений, которые не совпали
52.391174999993723000
52.391174999993709000

выводим значения выражений, которые не совпали
52.378710999993700000
52.378710999993714000

количество несовпавших выражений632
63%

7 комментариев:

  1. Команда Экспериментатор приветствует команду PROEDU

    ОтветитьУдалить
  2. Удачи от команды "Экспериментатор"!!!

    ОтветитьУдалить
  3. Всем привет! Удачи и плодотворной работы! Творческих успехов!
    с уважением, "Инфознайка"

    ОтветитьУдалить
  4. Уважаемая команда ProEDU! Хорошая работа. Станет еще лучше, когда мы увидим ответы на проблемные вопросы. И еще: а куда пропала визитка команды?

    ОтветитьУдалить
  5. Серьезную работы вы проделали.

    ОтветитьУдалить