Составить программу вывода списка стран, в которые производятся поставки товара, в порядке убывания объема сделок

27.04.2012, 14:33. Показов 585. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

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

Pascal

uses crt;
Procedure obmen(var a,b:string);
var c:string;
begin
c:=a;a:=b;b:=c;
end;
type eksport=record;
     name:string;
     strana:string;
     st:real;
     obem:real;
     end;
var a:array[1..100] of eksport;
    i,n:integer;
BEGIN
write('Кол-во товаров: ');
readln(n);
for i:=1 to n do
begin
write('Наименование: ');readln(a[i].name);
write('Импортирующая страна: ');readln(a[i].strana);
write('Стоимость: ');readln(a[i].st);
write('Объем: ');readln(a[i].obem);
end;
writeln('Список стран-импортеров: ');
writeln('В порядке убывания объема: ');
for i:=1 to n do
if a[i].obem<a[i+1].obem then
obmen(a[i].strana,a[i+1].strana);
for i:=1 to n do
writeln('Импортирующая страна: ',a[i].strana);
END.

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

27.04.2012, 14:33

Ответы с готовыми решениями:

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

Составить программу, печатающую в порядке убывания все четные числа кратные 6
Дано натуральное число Х. Составить программу, печатающую в порядке убывания все четные числа...

Составить программу, печатающую все числа в третьей строке листа Ms Excel в порядке убывания
Заданы два ряда чисел. Составить программу, печатающую все числа в третьей строке листа Ms Excel в...

Составить программу вывода самого старшего члена из списка.
Условие: Имеется список людей с указанием их фамилии, имени и даты рождения. Напишите эффективную...

	27.04.2012, 14:33

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

27.04.2012, 14:33

Помогаю со студенческими работами здесь

Составить программу для вывода в обратном порядке слов заданного текста
Здравствуйте. Помогите пожайлуста составить программу на Турбопаскале. Задание:нужно составить...

Составить рекурсивную программу ввода последовательности чисел и вывода в обратном порядке
Составить рекурсивную программу ввода с клавиатуры последовательности чисел (окончание ввода - 0) и...

Текстовые файлы. Составить программу вывода на экран содержимого файла в обратном порядке
Дан текстовый файл. Составить программу вывода на экран его содержимого в обратном порядке.

Составить программу вывода различных цифр, входящих в десятичную запись числа (в порядке появления)
Дано натуральное число N (типа LongInt). Составить программу вывода различных цифр, входящих в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .

Наверх