Файлы и записи

[Акуся]

Файлы и записи

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

 

[Léon1]

Язык программирования?

 

[Акуся]

Турбо Паскаль

 

[Акуся]

Турбо Паскаль

Помогите пожалуйста срочно требуется=(tehno036tehno035

 

[Vladimir_S]

Помогите пожалуйста срочно требуется=(

Еще и еще раз - ищите у нас готовые решения (по ключевому слову "record") аналогичных задач, благо тут их полнО, и адаптируйте к своим условиям. А заниматься именно Вашим вариантом вряд ли найдутся желающие: долгая, нудная, тягомотная черновая работа-писанина, впрочем, ничуть не сложная. Просто надо разобраться с тем, что за зверь тип "запись".

 

[Акуся]

не получается ну помогите прошу Вас!

 

[Suharev]

не получается ну помогите прошу Вас

Выложите то, что у вас уже имеется, для начала.

 

[Акуся]

Выложите то, что у вас уже имеется, для начала.

program prim11;
const n=5;
type export=record
strana:string;
tovar shtuk:array[1..3] of string;
end;
var a:array[1..n] of export;
i,j:integer;
begin
writeln('vvod nazv 5 stran');
for i:=1 to n do
with a do
begin
readln(strana);
for j:=1 to 5 do begin
readln(tovar[j]);
readln(shtuk[j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to 5 do
if a.strana='Kanada, Italia, USA, Germany, France'
then writeln('tovar= ',a.tovar[j]);
writeln('shtuk= ',a.shtuk[j]);
end;
end.

 

[Vladimir_S]

Прежде всего очистим Ваш код от первоапрельских шуточек

program prim11;
const n=5;
type 
 export=record
  strana:string;
  tovar shtuk:array[13] of string;
 end;
var 
 a:array[1n] of export;
 ij:integer;
begin
 writeln('vvod nazv 5 stran');
  for i:=1 to n do
   with a[i] do
    begin
     readln(strana);
     for j:=1 to 5 do 
      begin
       readln(tovar[j]);
       readln(shtuk[j]);
      end;
    end;
 for i:=1 to n do
  begin
   for j:=1 to 5 do
    if a[i]strana='Kanada Italia USA Germany France' then writeln('tovar= 'a[i]tovar[j]);
   writeln('shtuk= 'a[i]shtuk[j]);
  end;
end.

Взглянем и ужаснёмся обилию ошибок буквально в каждой строке
Написано бездумно неряшливо типа "нате и отстаньте"
Добро
Я выложу код который написан правильно но не оттестирован
Этим займитесь сами
Поскольку я уже отмечал что отладка подобных задач есть дело долгое нудное и противное так как требует введения кучи данных а у меня на вечер другие планы

program prim11;
const
 n=5;
type
 export=record
         strana:string;
         tovar:array[1..3] of string;
         shtuk:array[1..3] of byte;
        end;
var
 a:array[1..n] of export;
 i,j:integer;
begin
 writeln('vvod nazv stran');
  for i:=1 to n do
   with a[i] do
    begin
     write('Strana: ');
     readln(strana);
     for j:=1 to 3 do
      begin
       write('Tovar: ');
       readln(tovar[j]);
       write('Shtuk: ');
       readln(shtuk[j]);
      end;
     writeln;
    end;
 for i:=1 to n do
  begin
   if (a[i].strana='Kanada') or (a[i].strana='Italy')
      or (a[i].strana='USA') or (a[i].strana='Germany')
      or (a[i].strana='France') then
    begin
     writeln(a[i].strana);
     for j:=1 to 5 do
      writeln(a[i].tovar[j],'    ',a[i].shtuk[j],' shtuk');
     writeln;
    end;
  end;
 Readln
end.

 

[Акуся]

помогитееееееее

 

[Акуся]

а на файл вообще не имею представления

 

[Vladimir_S]

Я же выложил программу
Про файл в задании ничего не увидел