Programalama > PASCAL

program Untitled; var a,b,c,d,e,f,g,h:integer; k,ek1,ek2,ek3,ek4,ek5,ek6,ygs1,ygs2,ygs3,ygs4,ygs5,ygs6:real; begin write('Matematik dogru sayiniz...: '); readln(a); write('Matematik yanlis sayiniz..: '); readln(b); write('Turkce dogru sayiniz......: '); readln(c); write('Turkce yanlis sayiniz.....: '); readln(d); write('Fen dogru sayiniz.........: '); readln(e); write('Fen yanlis sayiniz........: '); readln(f); write('Sosyal dogru sayiniz......: '); readln(g); write('Sosyal yanlis sayiniz.....: '); readln(h); ygs1:=(a-b/4)*3.759+(c-d/4)*2.569+(e-f/4)*2.684+(g-h/4)*1.030+99.832 ; ygs2:=(a-b/4)*2.833+(c-d/4)*2.582+(e-f/4)*3.595+(g-h/4)*1.036+99.816 ; ygs3:=(a-b/4)*1.725+(c-d/4)*4.714+(e-f/4)*0.822+(g-h/4)*2.803+99.744 ; ygs4:=(a-b/4)*1.764+(c-d/4)*3.618+(e-f/4)*0.839+(g-h/4)*3.870+99.636 ; ygs5:=(a-b/4)*2.909+(c-d/4)*4.413+(e-f/4)*0.834+(g-h/4)*1.923+99.684 ; ygs6:=(a-b/4)*3.300+(c-d/4)*4.068+(e-f/4)*1.706+(g-h/4)*0.982+99.776 ; writeln('ygs1 notunuz.............: ',ygs1:5:3); writeln('ygs2 notunuz.............: ',ygs2:5:3); writeln('ygs3 notunuz.............: ',ygs3:5:3); writeln('ygs4 notunuz.............: ',ygs4:5:3); writeln('ygs5 notunuz.............: ',ygs5:5:3); writeln('ygs6 notunuz.............: ',ygs6:5:3); write('ek puaninizi giriniz.....: ');readln(k); ek1:=ygs1+k; ek2:=ygs2+k; ek3:=ygs3+k; ek4:=ygs4+k; ek5:=ygs5+k; ek6:=ygs6+k; writeln('Ygs1 ek puanli hali......: ',ek1:5:3); writeln('Ygs2 ek puanli hali......: ',ek2:5:3); writeln('Ygs3 ek puanli hali......: ',ek3:5:3); writeln('Ygs4 ek puanli hali......: ',ek4:5:3); writeln('Ygs5 ek puanli hali......: ',ek5:5:3); writeln('Ygs6 ek puanli hali......: ',ek6:5:3); readln; end. iletisim: http://www.facebook.com/#!/profile.php?id=100002759024823 contact: program Untitled; var a,b,c,d,e,f,g,h:integer; k,ek1,ek2,ek3,ek4,ek5,ek6,ygs1,ygs2,ygs3,ygs4,ygs5,ygs6:real; begin write('Matematik dogru sayiniz...: '); readln(a); write('Matematik yanlis sayiniz..: '); readln(b); write('Turkce dogru sayiniz......: '); readln(c); write('Turkce yanlis sayiniz.....: '); readln(d); write('Fen dogru sayiniz.........: '); readln(e); write('Fen yanlis sayiniz........: '); readln(f); write('Sosyal dogru sayiniz......: '); readln(g); write('Sosyal yanlis sayiniz.....: '); readln(h); ygs1:=(a-b/4)*3.759+(c-d/4)*2.569+(e-f/4)*2.684+(g-h/4)*1.030+99.832 ; ygs2:=(a-b/4)*2.833+(c-d/4)*2.582+(e-f/4)*3.595+(g-h/4)*1.036+99.816 ; ygs3:=(a-b/4)*1.725+(c-d/4)*4.714+(e-f/4)*0.822+(g-h/4)*2.803+99.744 ; ygs4:=(a-b/4)*1.764+(c-d/4)*3.618+(e-f/4)*0.839+(g-h/4)*3.870+99.636 ; ygs5:=(a-b/4)*2.909+(c-d/4)*4.413+(e-f/4)*0.834+(g-h/4)*1.923+99.684 ; ygs6:=(a-b/4)*3.300+(c-d/4)*4.068+(e-f/4)*1.706+(g-h/4)*0.982+99.776 ; writeln('ygs1 notunuz.............: ',ygs1:5:3); writeln('ygs2 notunuz.............: ',ygs2:5:3); writeln('ygs3 notunuz.............: ',ygs3:5:3); writeln('ygs4 notunuz.............: ',ygs4:5:3); writeln('ygs5 notunuz.............: ',ygs5:5:3); writeln('ygs6 notunuz.............: ',ygs6:5:3); write('ek puaninizi giriniz.....: ');readln(k); ek1:=ygs1+k; ek2:=ygs2+k; ek3:=ygs3+k; ek4:=ygs4+k; ek5:=ygs5+k; ek6:=ygs6+k; writeln('Ygs1 ek puanli hali......: ',ek1:5:3); writeln('Ygs2 ek puanli hali......: ',ek2:5:3); writeln('Ygs3 ek puanli hali......: ',ek3:5:3); writeln('Ygs4 ek puanli hali......: ',ek4:5:3); writeln('Ygs5 ek puanli hali......: ',ek5:5:3); writeln('Ygs6 ek puanli hali......: ',ek6:5:3); readln; end. istediginiz tum programlar icin iletisim: http://www.facebook.com/#!/profile.php?id=100002759024823