Programalama > PASCAL

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