Enviado em 14/06/2008 - 12:24h
na verdade nao e preciso ser muito bom na programacao para me ajudar nesse problema, e que eu sei que vc ia entrar por ser curioso, mas ja que vc entrou me ajuda por favor: qdo tento correr o programa a baixo da "erro:fille not open for output" eu nao entendo porque se eu escreve "rewite(fs)" para abrir esse ficheiro veja:
program ler_fich;
var d:string[7];
q:integer;
p,vt:real;
fe,fs:text;
begin
assign(fe,'artigo.txt');
reset(fe);
assign (fs,'resultados.res');
while eof (fe) do
rewrite(fs);
begin
readln(fe,d,q,p);
vt:=q*p;
writeln(fs,d,q,vt);
end;
readln;
close(fs);
end.
program ler_fich;
var d:string[7];
q:integer;
p,vt:real;
fe,fs:text;
begin
assign(fe,'artigo.txt');
reset(fe);
assign (fs,'resultados.res');
while eof (fe) do
rewrite(fs);
begin
readln(fe,d,q,p);
vt:=q*p;
writeln(fs,d,q,vt);
end;
readln;
close(fs);
end.
