• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

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

А

Акуся

Новые
Регистрация
27 Мар 2013
Сообщения
15
Реакции
0
Баллы
0
Файлы и записи

Здравствуйте. Помогите пожалуйста решить задачу: Даны сведения об экспорте товаров: название страны, импортирующей товар, наименование товара и объем поставляемой партии в штуках. Вывести сведения об экспорте товаров в определенные страны
 
Язык программирования?
 
Акуся написал(а):
Помогите пожалуйста срочно требуется=(
Нажмите для раскрытия...
Еще и еще раз - ищите у нас готовые решения (по ключевому слову "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.
 
Прежде всего очистим Ваш код от первоапрельских шуточек
Код: 
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.
 
а на файл вообще не имею представления
 
Я же выложил программу
Про файл в задании ничего не увидел
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху