Sayaç[PascaL]

[ALpMontana]

Yazdığınız programlar kaç kez çalştırılmış öğrenmek isterseniz işte size kolay kolay bulamayacağız bir kod
program sayac;
uses crt;
var
sayacds:text;
say:real;

begin
assign(sayacds,'sayac.txt');
{$i-}reset(sayacds);{$i+}
if ioresult<>0 then begin rewrite(sayacds);
say:=1; write(sayacds,(say):0:0); close(sayacds); halt;
end else
begin
assign(sayacds,'sayac.txt');
reset(sayacds);
readln(sayacds,say);
close(sayacds);
say:=say+1;
rewrite(sayacds);
write(sayacds,(say):0:0);
close(sayacds);
end;
end.​

 

[//:U.N.G.O.O.D]

emeğine sağlık bunu en iyi hangi programla derlerim

 

[Passenger]

emeğine sağlık bunu en iyi hangi programla derlerim

emegıne saglık 1 tesekkurle oluyo ama
yapılan mege saygı duymak lazım dıye dusunuyorum :goz:​