Сделать все хорошо
ПЭ "КРУШЕНИЕ ИЛЛЮЗИЙ"
ЗХН
ПРГ
Ссылка на сайт СП
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,"%")
ПЭ "КРУШЕНИЕ ИЛЛЮЗИЙ"
ЗХН
ПРГ
Ссылка на сайт СП
Участники: Савченкова М.В. , Трусова Н.П.
p = 1000a = 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_Ахиллесова пята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% |
Команда Экспериментатор приветствует команду PROEDU
ОтветитьУдалитьСпасибо за приветствие!
УдалитьУдачи от команды "Экспериментатор"!!!
ОтветитьУдалитьПривет от TheBestTeam!
ОтветитьУдалитьВсем привет! Удачи и плодотворной работы! Творческих успехов!
ОтветитьУдалитьс уважением, "Инфознайка"
Уважаемая команда ProEDU! Хорошая работа. Станет еще лучше, когда мы увидим ответы на проблемные вопросы. И еще: а куда пропала визитка команды?
ОтветитьУдалитьСерьезную работы вы проделали.
ОтветитьУдалить