Programalama > PASCAL

Etiketler: çiftlik, gideri

Ort. 0
Puan ver:
uses crt;
var
   Tsay,yem,Ilac,Su,
   Elk,Vet,Isci,Toplam :Real;
begin
clrscr;
write('Tavuk sayisini giriniz:');readln(Tsay);
Yem:=Tsay*0.150*20000;
Ilac:=Tsay*1000;
Elk:=50*500;
Su:=5*10000;
Vet:=1000000+Tsay*1000;
Isci:=750000*2;
writeln('yem gideri...:',yem:10:0);
writeln('Ilac gideri...:',Ilac:10:0);
writeln('Elektrik gideri...:',elk:10:0);
writeln('su gideri...:',su:10:0);
writeln('veter.hekim gideri...:',vet:10:0);
writeln('Isci gideri...:',Isci:10:0);
Toplam:=yem+Ilac+elk+su+vet+Isci;
writeln('.....................................');
writeln('gnlk gider toplami:',toplam:10:0);
readln;
end.

kübra
kubos__146@hotmail.com


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 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.