kullanıcı tarafınfdan girilen 20 adet sayıyı bir binary dosyaya kaydeden pascal programını yazınız....
cevap:
program ornek;
type
td=file of integer;
var
d:td;
i,s:integer;
begin
assign(d,'c:\ornek.txt');
rewite(d);
for i:=1 to 20 do
begin
writeln('bir tam sayı giriniz');
readln(s);
write(d,s);
end;
close(d);
end.
kodlama bana aittir.alıntı değildir...
cevap:
program ornek;
type
td=file of integer;
var
d:td;
i,s:integer;
begin
assign(d,'c:\ornek.txt');
rewite(d);
for i:=1 to 20 do
begin
writeln('bir tam sayı giriniz');
readln(s);
write(d,s);
end;
close(d);
end.
kodlama bana aittir.alıntı değildir...
Son düzenleme:
