Ad soyad, numara, bölüm girişi yapılarak
sınav kağını dolduran program.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
Linkback: https://www.buyuknet.com/pascalda-sinav-kagini-dolduran-program-t39712.0.html