Programalama > PASCAL


Ort. 0
Puan ver:
uses crt;
var
not1,not2,soz1:integer;
ort:real;
begin clrscr;
writeln('Birinci yazılı notunu giriniz..:')
;readln(not1);
writeln('İkinci yazılı notunu giriniz..:');
readln(not2);
writeln('sözlü notunu giriniz..:');
readln(soz1);
ort:=(not1+not2+soz1)/3;
writeln('not ortalamanız= ',ort);
readln;
 if ort<24 then
 begin
writelen('hiç bir şey öğrenmemişsiniz...'); readln;  end;
if ort>24 and ort<45 then
begin
writelen('hiç biraz gayret edin...'); readln;  end;
if ort>45 and ort<55 then
begin
writelen('durumunuz vasat...'); readln;  end;
if ort>54 and ort<69 then
writelen('iyi gidiyorsunuz biraz daha gayret...'); readln;  end;
if ort>69 an ort<84 then
begin
writelen('çok iyi. daha iyisini yapabilecek kadar zekisin...'); readln;  end;
if ort>84 and ort>101 then
begin
writelen('süpersin.ve çok başarılısın tebrikler!!...'); readln;  end;
end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.