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
|
