Programalama > PASCAL

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.

fatih ok
scientist.fatih@gmail.com