Problemler üzerinden 3 Algoritma

5 senedir web programlama ile ilgileniyorum ama hiç bir şekilde oturup bu şekilde “Başla” komutu ile başlayan ve “Bitir / Dur” komutu ile biten algoritma yazmamıştım. Fakat mantığı basitmiş bir de bunları “qBasic” ile kodlayacağız sanırım. Bakalım onu da hiç merak etmedim gerçi kalmadı zaten şuan doğru dürüst kullanan.

Şimdi bu 3 probleme bakacak olursak;

  • Ax2 + Bx + C = 0 şeklindeki denklemin girilen değerlere göre değişen köklerini bulan programın algoritması
  • 100’lük puan dilimindeki notları harf notuna çeviren programın algoritması
  • Dirençler ve bağlanma tipi girildikten sonra eşdeğer direnci hesaplayan programın algoritması

Denklem köklerini bulan programın algoritması

10 – BAŞLA 

20 – KATSAYI DEĞERLERİNİ GİR (A, B , C)

  30 – DELTA DEĞERİNİ HESAPLA ( D = B^2 – 4*A*C )

40 – EĞER D<0 İSE EKRANA “Girdiğiniz denklemin reel kökü bulunmuyor!” yaz

50 – EĞER D=0 İSE X0 = -b/(2*a), X0 değerini ekrana yaz.

60 – EĞER D>0 İSE X1 = [-B+D^(1/2)]/(2*A), X2 = [-B-D^(1/2)]/(2*A), ekrana X1 ve X2 değerlerini yaz.

70 – BİTİR

100’lük sayıları harf notuna çeviren programın algoritması

10 – Başla

20 – Not Gir ( N )

30 – EĞER N<25 AND 0<=N İSE EKRANA “HARF NOTUNUZ: F” YAZ

40 – EĞER N<45 AND 25<=N İSE EKRANA “HARF NOTUNUZ: E” YAZ

50 – EĞER N<55 AND 45<=N İSE EKRANA “HARF NOTUNUZ: D” YAZ

60 – EĞER N<70 AND 55<=N İSE EKRANA “HARF NOTUNUZ C” YAZ

70 – EĞER N<85 AND 70<= N İSE EKRANA “HARF NOTUNUZ: B” YAZ

80 – EĞER N>=85 AND 100>=N İSE EKRANA “HARF NOTUNUZ: A” YAZ

90 – BİTİR

Eşdeğer Direnç hesaplayan programın algoritması

10 – BAŞLA

20 – Direnç değerlerini ve bağlanma tipini gir (R1, R2, Type)

30 – EĞER Type == “s” İSE Res = R1 + R2

40 – EĞER Type == “p” İSE Res = (R1+R2) / (R1*R2)

50 – Ekrana Res değerini yaz.

60 – Bitir

 

 

Bir Cevap Yazın