PascaL ( KopyaLama Programı )

Konu: PascaL ( KopyaLama Programı ) Paz Nis. 04, 2010 3:26 am

PascaL ( KopyaLama Programı )

program ornek;
var
d1,d2:TEXT;
a:char;
begin
ASSIGN(d1,'c:\ornek.txt');
ASSIGN(d2,'C:\odev.txt');
Reset(d1);
while not eof(d1) do
begin
read(d1,a)
write(d2,a);
end;
close(d1);
close(d2);
end.

» PascaL ( SayısaL Loto Programı )
» PascaL ( DijitaL Saat Programı )
» PascaL ( KovaLamaca Oyunu Programı )
» PascaL ( SayıLarın OrtaLamasını ALma Programı )
» PascaL ( Şifre BuLma Oyunu Programı )