ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
25.04.2008, 23:31
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме:
594791
Репутация:
55
|
|
У тебя в сурсе было в формуле дискриминанта поделить на 2, я это и выделил красным! Со знанием математики у меня нормально! Спорить буду до последнего вздоха, признаюсь, сначала не заметил все ошибки в твоем сурсе, паскаль давно и благополучно забыл, с++ учу. Насчет последнего, согласен...
|
|
|
26.04.2008, 02:07
|
|
Новичок
Регистрация: 01.09.2007
Сообщений: 7
Провел на форуме:
22051
Репутация:
6
|
|
Парни йа запутался,так верно йа так понял
Код:
Program Sqrt1;
Var A, B, C, D, X1, X2 : Real;
Begin
Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
Readln (A,B,C);
D:=B*B-4*A*C;
if A<>0 then Begin
If D<0 Then Writeln ('Kornei net! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else Writeln (' Koren ODIN ','X=',X2:8:3)
End;
End
else
Writeln('Reshenii net');
Readln;
End.
"
? =) да?
Последний раз редактировалось De-visible; 27.04.2008 в 15:17..
Причина: теги [code]
|
|
|
|
26.04.2008, 16:38
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме:
594791
Репутация:
55
|
|
Сообщение от Bert_HoL
Парни йа запутался,так верно йа так понял
Program Sqrt1;
Var A, B, C, D, X1, X2 : Real;
Begin
Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
Readln (A,B,C);
D:=B*B-4*A*C;
if A<>0 then Begin
If D<0 Then Writeln ('Kornei net! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else Writeln (' Koren ODIN ','X=',X2:8:3)
End;
End
else
Writeln('Reshenii net');
Readln;
End.
"
? =) да?
Сообщение от De-visible
Да так верно
ор, формула нахождения неизвестного через дискриминант как была неправильной так и осталось!
|
|
|
|
26.04.2008, 16:46
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Garfi
ор, формула нахождения неизвестного через дискриминант как была неправильной так и осталось!
Ты уверен?
'''''''''''''''''''''''''''''''''''''''-b+-sqrt(b^2 - 4ac)
Как меня учили, x =-----------------------
'''''''''''''''''''''''''''''''''''''''''''''''''' 2a
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.04.2008, 16:56
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме:
594791
Репутация:
55
|
|
Сообщение от desTiny
Ты уверен?
'''''''''''''''''''''''''''''''''''''''-b+-sqrt(b^2 - 4ac)
Как меня учили, x =-----------------------
'''''''''''''''''''''''''''''''''''''''''''''''''' 2a
корень из дискриминанта =sqrt(sqrb-(4*a*c))
потом:
x1:=((-b)+(корень из дискриминанта))/ 2*a
так же находится и х2 с тем отличием что корень из дискриминанта вычитается из b2
p.s. могу ошибиться учитывал что sqr возводит в квадрат sqrt корень
|
|
|
|
26.04.2008, 16:59
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Garfi
корень из дискриминанта =sqrt(sqrb-(4*a*c))
потом:
x1:=((-b)+(корень из дискриминанта))/2*a
так же находится и х2 с тем отличием что корень из дискриминанта вычитается из b2
p.s. могу ошибиться учитывал что sqr возводит в квадрат sqrt корень
эх... тебе не надоело бессмысленно спорить, а?
Повторяю слова ДеВизибла: x/2*a не равно x/(2*a); а
x/(2*a) = (x/2)/a = x/2/a
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
Последний раз редактировалось desTiny; 26.04.2008 в 17:18..
|
|
|
|
26.04.2008, 17:07
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме:
594791
Репутация:
55
|
|
Сообщение от desTiny
x/2*a не равно x/(2*a); а
x/(2*a) = (x/2)/a = x/2/2
епть...перепутал надо .../(2*а)
в процессе отладки б разобрался
Сообщение от desTiny
x/2*a не равно x/(2*a); а
x/(2*a) = (x/2)/a = x/2/2
нефиг формулу коверкать!
|
|
|
|
26.04.2008, 16:47
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Garfi
ор, формула нахождения неизвестного через дискриминант как была неправильной так и осталось!
Ты просто /\/\UD@!<
Учи математику, говорю еще раз!
Вот:
https://forum.antichat.ru/showthread.php?p=666170#post666170
Я прав.....а ты напокупай себе книжек!
И прочитай это
http://ru.wikipedia.org/wiki/%D0%9A%D0%B2%D0%B0%D0%B4%D1%80%D0%B0%D1%82%D0%BD%D 0%BE%D0%B5_%D1%83%D1%80%D0%B0%D0%B2%D0%BD%D0%B5%D0 %BD%D0%B8%D0%B5
Сообщение от desTiny
Ты уверен?
'''''''''''''''''''''''''''''''''''''''-b+-sqrt(b^2 - 4ac)
Как меня учили, x =-----------------------
'''''''''''''''''''''''''''''''''''''''''''''''''' 2a
desTiny, он просто ничерта не знает, вот и несет всякую чушь!
Еще он говорит что мой код не компилится!
Последний раз редактировалось De-visible; 26.04.2008 в 16:53..
|
|
|
|
26.04.2008, 02:33
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Да так верно  |
|
|
|
26.04.2008, 08:56
|
|
Новичок
Регистрация: 25.10.2007
Сообщений: 14
Провел на форуме:
143592
Репутация:
5
|
|
вот зараза у нас курсовая по экселю а я его уже не открывалс класса года так 4 все забыл может мне кто нить поможит?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
