|
|
 |
| 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. EMRE YGT xxsevemedim_ayriligixx@hotmail.com |
|
 |
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
 |
|
| |
|
|
