Programalama > PASCAL

Etiketler: netlere, gore, 2003, oss, puanlama

Ort. 0
Puan ver:
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.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.