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" />
B : <input type="text" name="b" />
C : <input type="text" name="c" />
<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.
<a href=""?islem="">Yeni Hesap[/url]"
else
kokdelta = sqr(delta)
birincikok = (-b - kokdelta)/2*a
ikincikok = (-b + kokdelta)/2*a
response.write "X<sub>1</sub> : "&birincikok&"
X<sub>2</sub> : "&ikincikok&"
<a href=""?islem="">Yeni Hesap[/url] "
end if
else
Response.write "Değişkenlere sayısal değerler giriniz.
<a href=""?islem="">Yeni Hesap[/url]"
end if
end if
%>
</body>
</html>
umarım işinize yarar. 
Web Forumu | Eğlence Ve Paylaşım Merkezi > Webmaster > Genel > ASP -
PHP - CGİ > 2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak (Asp) 
27 Ağustos 2008, 01:25:15
