Pascal Örnekleri 19 (Sınav kağıdını dolduran program)

78) Ad soyad, numara, bölüm girişi yapılarak sınav kağını dolduran program.
Çöz:78)uses crt;
var
numa,turdogru,turyanlis,turbos,matdogru,matyanlis,
matbos,j:integer; fendogru,fenyanlis,fenbos,sosdogru,sosyanlis,
sosbos:integer; ad,soyad,bolum:string; turnet,turpuan,matnet,matpuan,fennet,fenpuan,sosnet,sospuan,topnet,toppuan:real; topdogru,topyanlis,topbos:integer;
begin
clrscr;
writeln(‘adınızı girin’);readln(ad);
writeln(‘soyadını gir’);readln(soyad);
writeln(‘numaranı gir’);readln(numa);
writeln(‘bölümünü gir’);readln(bolum); if(bolum=’sayısal’)or(bolum=’SAYISAL’)then begin
turdogru:=30;
while ((turdogru+turyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’);
writeln(‘türkçe doğru sayısını gir’);readln(turdogru); writeln(‘türkçe yanlış sayısını gir’);readln(turyanlis); turbos:=25-(turdogru+turyanlis);
turnet:=turdogru-(turyanlis*0.25);
turpuan:=turdogru*0.02; end;
sosdogru:=30;
while ((sosdogru+sosyanlis)>25) do begin
writeln(‘lütfen soru sayısı 25 i geçmesin’);
writeln(‘sosyal doğru sayısını gir’);readln(sosdogru); writeln(‘sosyal yanlış sayısını gir’);readln(sosyanlis); sosbos:=25-(sosdogru+sosyanlis);
sosnet:=sosdogru-(sosyanlis*0.25);
sospuan:=sosdogru*0.02; end;
matdogru:=30;
while ((matdogru+matyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘matematik doğru sayısını gir’);readln(matdogru); writeln(‘matematik yanlış sayısını gir’);
readln(matyanlis);
matbos:=25-(matdogru+matyanlis);
matnet:=matdogru-(matyanlis*0.25);
matpuan:=matpuan*0.08; end;
fendogru:=30;
while ((fendogru+fenyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’);
writeln(‘fen doğru sayısını gir’);readln(fendogru); writeln(‘fen yanlış sayısını gir’);readln(fenyanlis); fenbos:=25-(fendogru+fenyanlis);
fennet:=fendogru-(fenyanlis*0.25); fenpuan:=fenpuan*0.08;end;end; if(bolum=’sözel’)or(bolum=’SÖZEL’)then begin
turdogru:=30;
while ((turdogru+turyanlis)>25) do begin
writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘türkçe doğru sayısını gir’);readln(turdogru);
writeln(‘türkçe yanlış sayısını gir’);readln(turyanlis); turbos:=25-(turdogru+turyanlis);
turnet:=turdogru-(turyanlis*0.25);
turpuan:=turdogru*0.08;
end;
sosdogru:=30;
while ((sosdogru+sosyanlis)>25) do begin
writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘sosyal doğru sayısını gir’);readln(sosdogru); writeln(‘sosyal yanlış sayısını gir’);readln(sosyanlis); sosbos:=25-(sosdogru+sosyanlis);
sosnet:=sosdogru-(sosyanlis*0.25);
sospuan:=sosdogru*0.08; end;
matdogru:=30;
while ((matdogru+matyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘matematik doğru sayısını gir’);
readln(matdogru);
writeln(‘matematik yanlış sayısını gir’);
readln(matyanlis);
matbos:=25-(matdogru+matyanlis);
matnet:=matdogru-(matyanlis*0.25);
matpuan:=matpuan*0.02;
end;
fendogru:=30;
while ((fendogru+fenyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’);
writeln(‘fen doğru sayısını gir’);readln(fendogru); writeln(‘fen yanlış sayısını gir’);readln(fenyanlis); fenbos:=25-(fendogru+fenyanlis);
fennet:=fendogru-(fenyanlis*0.25);
fenpuan:=fenpuan*0.02; end;end; if(bolum=’eşitağırlık’)or(bolum=’EŞİTAĞIRLIK’)then
begin
turdogru:=30;
while ((turdogru+turyanlis)>25) do begin
writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘türkçe doğru sayısını gir’);readln(turdogru); writeln(‘türkçe yanlış sayısını gir’);readln(turyanlis); turbos:=25-(turdogru+turyanlis);
turnet:=turdogru-(turyanlis*0.25); turpuan:=turdogru*0.08; end;
sosdogru:=30;
while ((sosdogru+sosyanlis)>25) do begin
writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘sosyal doğru sayısını gir’);readln(sosdogru); writeln(‘sosyal yanlış sayısını gir’);readln(sosyanlis); sosbos:=25-(sosdogru+sosyanlis);
sosnet:=sosdogru-(sosyanlis*0.25); sospuan:=sosdogru*0.02; end;
matdogru:=30;
while ((matdogru+matyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’); writeln(‘matematik doğru sayısını gir’);
readln(matdogru);
writeln(‘matematik yanlış sayısını gir’);
readln(matyanlis);
matbos:=25-(matdogru+matyanlis);
matnet:=matdogru-(matyanlis*0.25);
matpuan:=matpuan*0.08; end;
fendogru:=30;
while ((fendogru+fenyanlis)>25) do begin

writeln(‘lütfen soru sayısı 25 i geçmesin’);
writeln(‘fen doğru sayısını gir’);readln(fendogru); writeln(‘fen yanlış sayısını gir’);readln(fenyanlis); fenbos:=25-(fendogru+fenyanlis);
fennet:=fendogru-(fenyanlis*0.25);
fenpuan:=fenpuan*0.02;
end;end;
topdogru:=turdogru+matdogru+sosdogru+fendogru; topyanlis:=turyanlis+matyanlis+sosyanlis+fenyanlis; topbos:=turbos+matbos+sosbos+fenbos; topnet:=turnet+matnet+sosnet+fennet; toppuan:=turpuan+matpuan+sospuan+fenpuan;
clrscr;
write(chr(201));
for j:=2 to 78 do begin
write(chr(205));end;
writeln(chr(187));
for j:=2 to 23 do

writeln(chr(186)); begin write(chr(200));
for j:=1 to 77 do
write(chr(205));
write(chr(188));
for j:=2 to 23 do begin
gotoxy(79,j);
write(chr(186));end;
gotoxy(1,4); write(chr(204));
for j:=2 to 78 do begin
write(chr(205)); end;
gotoxy(79,4); write(chr(185));
gotoxy(20,2);
writeln(‘Bizim Sınav Sonuç Belgesi’);
end;
gotoxy(1,4);write(chr(204));
for j:=2 to 78 do begin
write(chr(205)); end;
gotoxy(79,6); write(chr(185));
gotoxy(5,5);
writeln(‘Ad Soyad no:’,ad,’  ‘,soyad,’  ‘,numa); gotoxy(1,8);write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(79,8);write(chr(185));
gotoxy(5,7);writeln(‘bölüm:’,’  ‘,bolum);
gotoxy(1,6);write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(79,10);write(chr(185));
gotoxy(5,9);writeln(‘dersler:’);
gotoxy(1,10);write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(79,12);write(chr(185));
gotoxy(5,11);writeln(‘türkçe:’);
gotoxy(19,11);write(turdogru);
gotoxy(25,11);write(turyanlis);
gotoxy(29,11); write(turbos);
gotoxy(34,11); write(turnet:3:1);
gotoxy(50,11); write(turpuan:3:1);
gotoxy(1,12); write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(79,14); write(chr(185));
gotoxy(5,13); writeln(‘matamatik’);
gotoxy(19,13); write(matdogru);
gotoxy(25,13); write(matyanlis);
gotoxy(29,13); write(matbos);
gotoxy(34,13); write(matnet:3:1);
gotoxy(50,13); write(matpuan:3:1);
gotoxy(1,14); write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(15,8); write(chr(203));
for j:=9 to 23 do begin
gotoxy(15,j); write(chr(186));
end;
gotoxy(15,24); write(chr(202));
gotoxy(15,10); write(chr(206));
gotoxy(15,12); write(chr(206));
gotoxy(15,14); write(chr(206));
gotoxy(5,15);  writeln(‘sosyal’);
gotoxy(19,15); write(sosdogru);
gotoxy(25,15); write(sosyanlis);
gotoxy(29,15); write(sosbos);
gotoxy(34,15); write(sosnet:3:1);
gotoxy(50,15); write(sospuan:3:1);
gotoxy(1,16); write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(15,16); write(chr(206));
gotoxy(79,16); write(chr(185));
gotoxy(5,17); writeln(‘Fen’);
gotoxy(19,17); write(fendogru);
gotoxy(25,17); write(fenyanlis);
gotoxy(29,17); write(fenbos);
gotoxy(34,17); write(fennet:3:1);
gotoxy(50,17); write(fenpuan:3:1);
gotoxy(1,18); write(chr(204));
for j:=2 to 78 do begin
write(chr(205)); end;
gotoxy(15,18); write(chr(206));
gotoxy(79,18); write(chr(185));
gotoxy(5,19); writeln(‘Toplam’);
gotoxy(16,19); write(‘Doğru’);
gotoxy(22,19); write(‘Yanlış’);
gotoxy(29,19); write(‘Boş’);
gotoxy(34,19); write(‘Net’);
gotoxy(41,19); write(‘Puan’);
gotoxy(19,21); write(topdogru);
gotoxy(25,21); write(topyanlis);
gotoxy(29,21); write(topbos);
gotoxy(34,21); write(topnet:3:1);
gotoxy(50,21); write(toppuan:3:1);
gotoxy(1,20); write(chr(204));
for j:=2 to 78 do begin
write(chr(205));end;
gotoxy(15,20); write(chr(206));
gotoxy(79,20); write(chr(185));
gotoxy(21,8); write(chr(203));
for j:=9 to 23 do begin
gotoxy(21,j); write(chr(186)); end;
gotoxy(16,9); writeln(‘Doğru’);
gotoxy(21,24); write(chr(202));
gotoxy(21,10); write(chr(206));
gotoxy(21,12); write(chr(206));
gotoxy(21,14); write(chr(206));
gotoxy(21,16); write(chr(206));
gotoxy(21,18); write(chr(206));
gotoxy(21,20); write(chr(206));
gotoxy(28,8); write(chr(203));
for j:=9 to 23 do begin
gotoxy(28,j); write(chr(186)); end;
gotoxy(22,9); writeln(‘Yanlış’);
gotoxy(28,24); write(chr(202));
gotoxy(28,10); write(chr(206));
gotoxy(28,12); write(chr(206));
gotoxy(28,14); write(chr(206));
gotoxy(28,16); write(chr(206));
gotoxy(28,18); write(chr(206));
gotoxy(28,20); write(chr(206));
gotoxy(33,8); write(chr(203));
for j:=9 to 23 do begin
gotoxy(33,j); write(chr(186)); end;
gotoxy(29,9); writeln(‘Boş’);
gotoxy(33,24); write(chr(202));
gotoxy(33,10); write(chr(206));
gotoxy(33,12); write(chr(206));
gotoxy(33,14); write(chr(206));
gotoxy(33,16); write(chr(206));
gotoxy(33,18); write(chr(206));
gotoxy(33,20); write(chr(206));
gotoxy(39,8); write(chr(203));
for j:=9 to 23 do begin
gotoxy(39,j); write(chr(186)); end;
gotoxy(34,9); writeln(‘Net’);
gotoxy(39,24); write(chr(202));
gotoxy(39,10); write(chr(206));
gotoxy(39,12); write(chr(206));
gotoxy(39,14); write(chr(206));
gotoxy(39,16); write(chr(206));
gotoxy(39,18); write(chr(206));
gotoxy(39,20); write(chr(206));
gotoxy(41,9); writeln(‘Puan’);
readln;
end.

Yazar: kacarozgur

Özgür Kaçar sitemizde 38 yazı eklemiş...

• Tüm yazıları-> kacarozgur →
• Kişisel Sayfası