Тема: Робота з файлами
Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл.
var f,g:text;
s:string;
euro,hr:real;
i:integer;
begin
assign(f,'D:\1.txt');
reset(f);
assign(g,'D:\2.txt');
rewrite(g);
hr:=80.25;
while not eof(f) do
begin
readln(f,s);
write(g,s);
while pos(' ',s)>0 do
delete(s,1,pos(' ',s));
val(s,euro,i);
euro:=euro*hr;
writeln(g,' ',euro:0:2);
end;
close(f);
close(g);
write('Цени перераховані і записані в файл 2.txt');
readln;
end.Як зробити щоб моя програма тільки той рядок перерахував у гравнях де є цифри?
Може мені хтось код написати?
P.S:Sorry for my bad Ukrainian...
