Programalama > PASCAL

Etiketler: giderinizi, bulma, günlük

Ort. 0
Puan ver:
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.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.