Programalama > PASCAL

Uses crt;
Var
Elk,Su,Ymek,Tel,Gaz,Toplam,Aylik:Real;
Kisi,Ampul,Dakika,Mkup,Gun,Litre,Elkesya:Integer;
Begin
clrscr;
Textcolor(2);
Write('Kisi Saysn Giriniz   :');Readln(Kisi    );
Write('Ampul Saysn Giriniz  :');Readln(Ampul   );
Write('Telefon Dakika Saysn giriniz :');Readln(Dakika  );
Write('Do§al Gaz Mkp Saysnn Giriniz  :');Readln(Mkup    );
Write('˜‡me Suyu Harici Litre Saysn Giriniz  :');Readln(Litre   );
Write('Elektrikli eŸya Saysn Giriniz:');Readln(elkesya );
Write('Aydaki Gn Saysn Giriniz:');Readln(Gun);
Textcolor(yellow);
Writeln(' ');
Writeln('--_--_--_--_--_--_--_--_--_--_--_--_--_--_--_--_--_--_--_--');
Writeln(' ');
Elk :=Ampul* Elkesya*200 ; {Fiyatlar Gnmze G”re Ayarlaynz.Rakamlar Tahminidir}
Su  :=kisi*Litre*100     ;
Ymek:=Kisi*4000          ;
Tel :=Dakika*150         ;
Gaz :=Mkup*300           ;
Textcolor(12);
Writeln('Elk Gideri...:', Elk:10:0  );
Writeln('Su Gideri....:', Su :10:0  );
Writeln('Ymek Gideri..:', Ymek:10:0 );
Writeln('Tel Gideri...:', Tel:10:0  );
Writeln('Gaz Gideri...:', Gaz:10:0  );
Toplam:=Elk+Su+Ymek+Tel+Gaz;
Aylik:=Toplam*Gun;
Writeln('----------------------------');
Writeln('Gnlk Gider Toplam:',Toplam:10:0);
Textcolor(yellow);
Writeln('----------------------------');
Writeln('Aylk Gider:',Aylik:10:0);
Gotoxy(20,25);
Textcolor(11);
Writeln('Program Hazrlayan'#16'Hakan €avuŸ  '#15'');
Readln;
End.