4 Nisan 2008 Cuma

Not ortalaması bulma

Program uc_notun_ortalamasini_bulur;

uses crt;

Var {degisken tanimlama blogu}



not1,not2,not3 : integer;

ortalama : real;

Begin {Ana Program Bloğu}

textcolor(1);

write('notlari girmek icin enter a basin ***********(en fazla 10 basamak)************');

ReadLn;

textcolor(3);

write('1. notu giriniz (rakamla)---------------->:');ReadLn(not1);

textcolor(3);

write('2. notu giriniz (rakamla)---------------->:');ReadLn(not2);

textcolor(3);

write('3. notu giriniz (rakamla)---------------->:');ReadLn(not3);

ortalama:=(not1+not2+not3)/3;

WriteLn('******************************************************************************');

textcolor(9);

WriteLn('Ortalama Bulundu gormek icin enter a basin');

WriteLn('******************************************************************************');

ReadLn;

textcolor(3);

WriteLn('uc notun ortalamasi =',ortalama:5:2);

textcolor(12);

WriteLn('------------------------------------------------------------------------------');

textcolor(9);

WriteLn('programi kullandiginiz icin tesekkurler.............................. Fatih Ok');

textcolor(12);

WriteLn('------------------------------------------------------------------------------');

WriteLn('scientist.fatih@gmail.com ');

WriteLn('------------------------------------------------------------------------------');

textcolor(3);

WriteLn('uc notun ortalamasi =',ortalama:5:2);

textcolor(90);

WriteLn('***************bu program pascal dili ile yazilmistir*************************');

textcolor(12);

WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---');

WriteLn('******************************************************************************');

WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---');

WriteLn('******************************************************************************');

ReadLn;

end.

Hiç yorum yok: