1

Тема: Робота з файлами

Кожен рядок текстового файлу 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...

Post's attachments

Névtelen.jpg 8.51 kb, 89 downloads since 2016-03-21 

2

Re: Робота з файлами

zolibil37 написав:

Як зробити щоб моя програма тільки той рядок перерахував у гравнях де є цифри?

Банальним if-ом.

zolibil37 написав:

Може мені хтось код написати?

Це форум програмістів. Якщо ви сюди прийшли - то код написати ви можете самі. От якщо у вас під час написання виникнуть проблеми - тоді ми можемо допомогти.

P.S:Sorry for my bad Ukrainian...

Тут половина так спілкується, ви б краще за bad Pascal вибачалися :)

Подякували: leofun01, Chemist-i2