Reklamlar
pascal da öss puanını hesaplama

pascal da öss puanını hesaplama » Kod: [Seç]uses crt,dos;  procedure nethesapla;  var  tnet,snet,mnet,fnet,ea,sozel,sayisal:real;  begin  clrscr;  writeln('Onemli ..: Netinizi

Gönderen Konu: pascal da öss puanını hesaplama  (Okunma sayısı 4218 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

pascal da öss puanını hesaplama
« : Nisan 30, 2009, 12:28:47 ÖS »
Kod: [Seç]
uses crt,dos;
 procedure nethesapla;
 var
 tnet,snet,mnet,fnet,ea,sozel,sayisal:real;
 begin
 clrscr;
 writeln('Onemli ..: Netinizi dogru cevap sayisindan yanlis cevap sayisinin dortte birini cikararak bulabilirsiniz.');
 writeln('ondalikli sayilarda nokta kullaniniz.');
 writeln;
 writeln;
 writeln('Devam etmek icin bir tusa basiniz.');
 readkey;
 clrscr;
 writeln('Turkce Netinizi giriniz.....:');
 readln(tnet);
 writeln('Sosyal Netinizi giriniz.....:');
 readln(snet);
 writeln('Matematik Netinizi giriniz..:');
 readln(mnet);
 writeln('Fen Netinizi giriniz........:');
 readln(fnet);
 clrscr;
 sayisal:=tnet*0.534+snet*0.185+mnet*1.759+fnet*1.431+123.935;
 sozel:=tnet*1.987+snet*1.319+mnet*0.486+fnet*0.207+119.845;
 ea:=tnet*1.523+snet*0.596+mnet*1.710+fnet*0.218+117.698;
 gotoxy(20,11);write('Sayisal Puaniniz........:',sayisal:6:3);
 gotoxy(20,12);write('Sozel Puaniniz..........:',sozel:6:3);
 gotoxy(20,13);write('Esitagirlik Puaniniz....:',ea:6:3);
 end;
 var
 tus:char;
 begin
 clrscr;
 nethesapla;
 repeat
 gotoxy(15,24);write('Yeni bir hesaplama yapmak istermisiniz? [ E / H ]');
 tus:=upcase(readkey);
 if tus='E' then begin nethesapla; clrscr; end;
 until tus='H';
 
 end.




Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
3857 Gösterim
Son İleti Nisan 30, 2009, 12:24:50 ÖS
Gönderen: administrator
0 Yanıt
5099 Gösterim
Son İleti Nisan 30, 2009, 12:26:16 ÖS
Gönderen: administrator
0 Yanıt
5307 Gösterim
Son İleti Nisan 30, 2009, 12:29:31 ÖS
Gönderen: administrator
0 Yanıt
5549 Gösterim
Son İleti Nisan 30, 2009, 12:32:47 ÖS
Gönderen: administrator
1 Yanıt
2841 Gösterim
Son İleti Nisan 22, 2019, 12:46:58 ÖS
Gönderen: Furlenvio