hocamız ikinci dereceden denklemin köklerini bulan bir pascal programı yazmamızı istedi iki gündür uğrastım yapamadım yardım ederseniz bana en büyük iyiliği yapmış olursunuz hocanın sağı solu belli olmuyor birde not veririm derse o zaman dersten kalırım

Sen once nasil bi mantik yuruttun, nerde takildin onlari bi yaz . biz sana yardimci oluruz

şöyle bir mantık yürüttüm
denklemimiz
önce denklemin söyle bir sekilde
ax2+bx+c seklinde kabul edip ekrana yazıp hemen altınada a yı b yi c yi giriniz diyecektim
a=... b=.... c=... girildikten sonra
w(bu diskiriminant yani üçgen seklinde olacak)= b2-4*a*c seklinde pc hesaplayacak sonra if i kullanarak w<0 dan küçükse ekrana reel kök yoktur diyecek w=0 ise çift katlı köklü var olduğunu kabul edip
kök=-b/(2*a) yazıp cözecektim sonra ekrana cift katlı kök var deyip
kök=...... diye sonuç yazacaktım. tekrar if komutunu kullanarak w>0 olursa x1=(-b-kök w )/(2*a) , x2=(-b+kök w )/(2*a) yı hesaplayacak ve ekrana
iki adet kök bulundu
x1=.....
x2=.....
yazacak
arkadasım ben mantığını böyle düşündüm yanlız bu yazıda bazı karakterler eksik olduğundan kare alırken üste yazamadım yanına '2' yazdım, kök alamadım yanına 'kök' yazdım, diskiriminant işaretini bulamadım 'w' yazdım

ARKADASIM YAPARSAN BANA EN BÜYÜK İYİLİĞİ YAPMIŞ OLURSUN MESJIMI OKUDUĞUN İÇİN TESEKKÜR EDERİM

aha aynı soruyu yapmıştık biz derste.. al buyur::

program kok_bulma;
var
x,a,b,c:real;
x1,x2:real;
dis:real;
begin
write('Katsayıları sırayla giriniz:');
readln(a,b,c);
dis:=sqr(b)-4*a*c;
x1:=(-b+sqrt(dis))/2*a;
x2:=(-b-sqrt(dis))/2*a;
writeln('1. k”k:',x1);
writeln('2. k”k:',x2);
end.

yalnız ben if kullanmadım yani reel kökü olmayabilir dediğin gibi, o da kolay ekleyiver bi if...

arkadasım cok tesekkür ederim Allah karsına hep sana yardım edenleri cıkarsın