KATEGORİLER
Bilgisayar
Bilgisayar Dersleri
Windows
Windows Dersleri
Donanım
Donanım Dersleri
MS Office
Microsoft Office Dersleri
İnternet
İnternet Eğitim Dersleri
Network
Network Dersleri
Domain - Hosting
Domain Dersleri - Hosting Dersleri
Linux
Linux Dersleri
Unix
Unix Dersleri
Oracle
Oracle Dersleri
MS-SQL
MS-SQL Dersleri
MySQL
MySQL Dersleri
ASP
ASP Dersleri
ASP.net
ASP.net Dersleri
PHP
PHP Dersleri
Diğer Kategorilerimiz
Tümünü Görüntüle
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>
Ders Sahibi;Bilgisayar Dershanesi