Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Asp - Php - Cgi - Perl 
2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak (Asp) 2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak (Asp)
-
Asp'de (active server pages) ikinci dereceden bir bilinmeyenli bir denklemin köklerini bulacağız
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9" />
<title>2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak</title>
</head>
<body>
<%
islem = request.querystring("islem")
if islem = "" then
%>
<form method="post" action="?islem=hesapla" />
A : <input type="text" name="a" />
<br>
B : <input type="text" name="b" />
<br>
C : <input type="text" name="c" />
<br>
<input type="submit" value="Hesapla" />
</form>
<%
elseif islem = "hesapla" then
a = request.form("a")
b = request.form("b")
c = request.form("c")
if IsNumeric(a) AND IsNumeric(b) AND IsNumeric(c) = TRUE Then
delta = b*b - 4*a*c
if delta < 0 then
response.write "Gerçel kökü yoktur.<br><a href=""?islem="">Yeni Hesap</a>"
else
kokdelta = sqr(delta)
birincikok = (-b - kokdelta)/2*a
ikincikok = (-b + kokdelta)/2*a
response.write "X<sub>1</sub> : "&birincikok&" <br> X<sub>2</sub> : "&ikincikok&"<br><a href=""?islem="">Yeni Hesap</a> "
end if
else
Response.write "Değişkenlere sayısal değerler giriniz.<br><a href=""?islem="">Yeni Hesap</a>"
end if
end if
%>
</body>
</html>Not: Kendi yazımımdır
-
dün aynısı turbo c de yazmaya çalışmıtım.
if(d<0)
printf("reel kök yok")
else
if(d==0)
işlemler var burda işlemlerde hata yok eminim
else *
burda da işlemler var burda da hata yok.
}
malı derleyecekken * lı yerde sorun var diyo anlayamadım gitti.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla