работа с текстовыми файлами

[arai uzbekova]

пусть в текущем каталоге имеется текстовый файл,каждая строка которого содержит информацию след.вида:

Название товара кол-во кг цена 1 кг
(например строка файла может иметь вид:Сахар 30 75)

составить программу,которая выполнит след:
определит общее кол-во кг всех товаров

[s-andriano]

Думаю, задача поставлена недостаточно корректно:
Автомобиль Peugeot 408 1375 413.82

[arai uzbekova]

учитель мне так дал,не должно быть

[s-andriano]

Ну так уточните задачу.
В России цены принято указывать в рублях и копейках, следовательно, нужно как-то либо обрабатывать эту ситуацию, либо явно оговаривать, что в цене копейки отсутствуют.
Иначе нужно говоритиь, скажем, о японских иенах - они на более мелкие денежные единицы не делятся.

[Stilet]

arai uzbekova

Читать из файла в строку ты умеешь?
Вот тебе функция:

function Kg(s:String):Double;
var i:integer; r:Double;
begin
 i:=pos(' ',s); delete(s,1,i+1);
 i:=pos(' ',s); s:=copy(s,1,i);
 val(s,r,i);
 Kg:=r;
end;

И Kg('Сахар 30 75') даст 30 если наименование товара не содержит пробелов, и между элементами пробел всегда один.

[s-andriano]

Сообщение от Stilet

И Kg('Сахар 30 75') даст 30 если наименование товара не содержит пробелов, и между элементами пробел всегда один.

Вообще-то:

function Kg(s:String):Double;
var i:integer; r:Double;
begin
 i:=pos(' ',s); delete(s,1,i);
 i:=pos(' ',s); s:=copy(s,1,i-1);
 val(s,r,i);
 Kg:=r;
end;

Да и то на приведенной мной во втором посте строке выдает 0.

На мой взгляд, полагаться, что наименование товара всегда состоит из единственного слова - слишком сильное предположение.
А раз так, разбирать строку нужно не с начала, а с конца.

PS. Если не секрет, зачем преобразовывать число в вещественное?

[Stilet]

Вообще-то:

Пусть автор сам поправит как нужно.

зачем преобразовывать число в вещественное?

Просто так.

[s-andriano]

Вполне логично.

[arai uzbekova]

вот я так набрала.что то не правильно.

program t1;
uses
  crt;
var
  f : text;
  nam, line, s : string;
  a, b, c, c1, i : integer;
begin
  clrscr;
  write('Имя файла : ');
  readln(nam);
  assign(f,nam);
  reset(f);
  if ioresult<>0 then writeln('Файл не найден.')
  else 
   begin
   c1 := 0;
   while not eof(f) do
     begin
       readln(f,line);
       s := '';
       i := pos(' ',line)+1;
       b := 0;
       while b=0 do
       begin
         s := s + line[i];
         val(s,a,b);
         if b=0 then c := a
         else c1 := c1 + c;
         inc(i);
       end;    
     end;
   writeln('общее кол-во кг всех товаров : ',c1); 
   close(f);
   end;
  readln;
end.

[s-andriano]

1. При правильно настроенном компиляторе сообщение 'Файл не найден.' не будет выдавать никогда. Вне зависимости от того, существует файл или нет.

2. В посте 6 я рекомендовал начинать обработку с конца строки и объяснял, почему именно так.

3. Честно говоря, так и не понял, что именно Вы пытаетесь сделать. Дополните программу комментариями, чтобы мы могли понять, то ли Вы делаете, что хотите. Особенно интересует кусок, начинающийся с оператора b := 0;