xPesimisTx
Üye
İşlev:Siz notunuzu 100 lük üzerinden girerceksiniz, program 5 lik sistem şeklinde yazacak.
[UYARI]Program if/then karşılaştırma komutu ile yapılmıştır. Case/Of olsaydı daha iyi olurdu xD. Çok Basit Bu!" , "Dandik" ve "Fasa Fiso" gibi şeyler lütfen yazmayınız![/UYARI]
Kod:
Program Not_Sistemi;
USES CRT;
Var
sayi,deger:integer;
Begin
Clrscr;
Write('Sinavdan Aldiginiz Not [100''Delik sekilde]: ');ReadLn(sayi);
if (sayi<0) AND (sayi>100) then
WriteLn('Yanlis Bir Not Yazdiniz');
if (sayi>=85) AND (sayi<=100) then
WriteLn('Sinavdan 5 Aldiniz!');
if (sayi>=70) AND (sayi<=84) then
WriteLn('Sinavdan 4 Aldiniz!');
if (sayi>=55) AND (sayi<69) then
WriteLn('Sinavdan 3 Aldiniz!');
if (sayi>=45) AND (sayi<=54) then
WriteLn('Sinavdan 2 Aldiniz!');
if (sayi>=20) AND (sayi<=44) then
WriteLn('Sinavdan 1 Aldiniz!');
if (sayi>=0) AND (sayi<=19) then
WriteLn('Sinavdan 1 Aldiniz!');
ReadLn;
end.[UYARI]Program if/then karşılaştırma komutu ile yapılmıştır. Case/Of olsaydı daha iyi olurdu xD. Çok Basit Bu!" , "Dandik" ve "Fasa Fiso" gibi şeyler lütfen yazmayınız![/UYARI]
Moderatörün son düzenlenenleri:
