Üye Kayıt Üye Giriş

2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak


2. Dereceden 1 Bilinmeyenli Denklemlerde Kök Bulmak

 

<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
'telif http://serkan.teorik.net
%>
</body>
</html>

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER

x