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.