файлы

[[Te[M]ka]]

1)

Program PR_7_1;
uses crt;
type tovar=record
nam:string[20];
str:string[20];
obm:integer;
end;
var
f:file of tovar;
tv:tovar;                                    
a:array[1..5] of  tovar;
naz:string[20];
sm,k,c,t,i:integer;
s,s1:string;
begin
clrscr;
assign(f,'tovar.doc');
rewrite(f);         
reset(f);
writeln('vvod kol zap');
readln(k);
                       for i:=1 to 5 do
                       begin
writeln('Vvedite naimenovanie tovara');
readln(tv.nam);
readln(tv.str);readln(tv.obm);
write(f,tv);end;
close(F);
end.

2)

Program PR_7_1;
uses crt;
type tovar=record
nam:string[20];
str:string[20];
obm:integer;
end;
var
f:file of tovar;
tv:tovar;                                    
a:array[1..5] of  tovar;
naz:string[20];
sm,k,c,t,i:integer;
s,s1:string;
begin
clrscr;
assign(f,'tovar.doc');
reset(f);
writeln('vvod kol zap');
for i:=1 to 5 do
begin
readln(tv.nam,tv.str,tv.obm);
write(' ','f','tv');end;
close(F);
end.

Исправте пожалуйста недочеты.

Вот условие:
10.Дан файл f , содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Найти страны, в которые экспортируется данный товар, и общий объем его экспорта.

[Shift_sk]

я бы не так вообще делал!

[[Te[M]ka]]

а как?
Я когда показал преподователю это она что-то усмехнулась и ушла. Я так и не понял что тут не так.

[Shift_sk]

фотка есть условия задачи?

у тебя выкинуто 2 задачи это одна и тажа?

аська есть?

или агент?

[[Te[M]ka]]

9467451
вот

добавляйся.

[Shift_sk]

var s,v:array[1..100] of string;
    b,c:array[1..100] of integer;
    i,q,w,j,h,d:integer;
    m,st,tov,t:string;
    f,f2:text;
begin
assign(f,'f.txt');
assign(f2,'f2.txt');
reset(f);
rewrite(f2);
j:=1;
i:=1;
while (not eof(f)) do begin
readln(f,m);
readln(f,t);
readln(f,h);
readln(f,d);
s[i]:=m;
v[i]:=t;
c[i]:=d;
b[i]:=h;
i:=i+1;
end;
Writeln('введите страну и товар');
readln(st);
readln(tov);
for j:=1 to i-1 do begin
if (s[j]=st) and (t[j]=tov) then
 begin
 q:=q+b[j];
 w:=w+c[j];
 end;
end;
writeln(f2,'экспорт составил - ',q,' количеством -',w);
close(f);
close(f2);
end.

пример входных данных
strana
tovar
123
50
strana
tovar
50
33
pop
rt
40
23
tyt
rty
34
44

[Shift_sk]

var s,v:array[1..100] of string;
    b,c:array[1..100] of integer;
    i,q,w,j,h,d,n:integer;
    m,st,tov,t:string;
    f2:text;
begin
assign(f2,'f2.txt');// создаю файл
rewrite(f2);//открываю файл для записи
read(n);//читаю количество различных товаров стран 
for i:=1 to n do begin// циклом читаю страну товар и другое
writeln('vvedite strany ',i);
readln(m);
writeln('vvedite tovar ',i);
readln(t);
writeln('vvedite obem eksporta ',i);
readln(h);
writeln('vvedite koli4estvo shtuk tovara ',i);
readln(d);
s[i]:=m;
v[i]:=t;
c[i]:=d;
b[i]:=h;
end;
Writeln('введите страну и товар');// читаю страну и товар по каким нужна информация
readln(st);
readln(tov);
for j:=1 to i-1 do begin// циклом иду по массиву с товаром и страной если нахожу прибовляю к ощей суме количество товаров и общия экспорт!
if (s[j]=st) and (t[j]=tov) then
 begin
 q:=q+b[j];
 w:=w+c[j];
 end;
end;
writeln(f2,'экспорт составил - ',q,' количеством -',w);// вывожу все что посчитал!
close(f2);
end.

[Shift_sk]

var s,v:array[1..100] of string;
    b,c:array[1..100] of integer;
    i,q,w,j,h,d,n:integer;
    m,st,tov,t:string;
    f2:text;
begin
assign(f2,'f2.txt');// создаю файл
rewrite(f2);//открываю файл для записи
writeln('введите количество стран с товарами(только число)');
readln(n);//читаю количество различных товаров стран 
for i:=1 to n do begin// циклом читаю страну товар и другое
writeln('vvedite strany ',i);
readln(m);
writeln('vvedite tovar ',i);
readln(t);
writeln('vvedite obem eksporta ',i);
readln(h);
writeln('vvedite koli4estvo shtuk tovara ',i);
readln(d);
s[i]:=m;
v[i]:=t;
c[i]:=d;
b[i]:=h;
end;
Writeln('введите страну и товар');// читаю страну и товар по каким нужна информация
readln(st);
readln(tov);
for j:=1 to i-1 do begin// циклом иду по массиву с товаром и страной если нахожу прибовляю к ощей суме количество товаров и общия экспорт!
if (s[j]=st) and (v[j]=tov) then
 begin
 q:=q+b[j];
 w:=w+c[j];
 end;
end;
writeln(f2,'экспорт составил - ',q,' количеством -',w);// вывожу все что посчитал!
close(f2);
end.

[[Te[M]ka]]

Вчера вы мне помога ли сделать эту задачу. Сегодня я пришел к преподователю и мне сказали, что я не правильно понял условие и немного подругому надо сделать. Я тут кое что попробывал написать. но в самом файле как-то не очень информация вылазеет.

Вот код:

Program PR_7_1;
uses crt;
type tovar=record
nam:string[20];
str:string[20];
obm:integer;
end;
var
f:file of tovar;
tv:tovar;
a:array[1..5] of tovar;
naz:string[20];
sm,k,c,t,i:integer;
s,s1:string;
begin
clrscr;
assign(f,'tovar.doc');
rewrite(f);
reset(f);
writeln('vvod kol zap');
readln(k);
for i:=1 to 5 do
begin
writeln('Vvedite naimenovanie tovara');
readln(tv.nam);
readln(tv.str);readln(tv.obm);
write(f,tv);end;
close(F);
end.

а вот это пишет в файле:
gaz 12 fish 32 neft 43 " shelk 65 8 electro 19 [

[Hacker19_90]

)))
Не понятно! Как это

в самом файле как-то не очень информация вылазеет

??