Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Gagushman
0 / 0 / 0
Регистрация: 29.12.2014
Сообщений: 15
1

Выбрать все товары из галантерейного отдела и отсортировать в порядке убывания цен

24.03.2015, 19:52. Просмотров 882. Ответов 1
Метки нет (Все метки)

Пожалуйста, помогите решить задачу.

Работа с файлами.

Даны сведения: название товара, отдел, количество, цена. Выбрать все товары из галантерейного отдела и отсортировать в порядке убывания цен.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2015, 19:52
Ответы с готовыми решениями:

Отсортировать по столбцам все элементы матрицы в порядке убывания
Помоги пожалуйста написать программы по массивам... в произвольный массив K(m*n) отсортировывать...

Заменить все положительные элементы вектора на их округленные целые и отсортировать в порядке убывания
Дан вещественный вектор A .Заменить все положительные элементы вектора на их округленные целые и...

Отсортировать все слова в порядке возрастания или убывания (определить с помощью флажка) методом включения
В Memo- поле вводятся слова по одному в строке. Отсортировать все слова в порядке возрастания или...

исправьте ошибку в программе на массивы:В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы...
В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы....

1
JokeR.BY
CAPITAL OF ROCK!
1279 / 706 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
Завершенные тесты: 2
25.03.2015, 01:53 2
Лучший ответ Сообщение было отмечено Gagushman как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
type
    TTowar = record
        nazwanie : String[20];
        otdel : String[30];
        koliczestwo : Word; //LongWord / Byte
        cena : LongWord;
    end;
    TArray = Array[Byte] Of TTowar;
    TFile = File Of TTowar;
 
procedure AddTowar(var f : TFile);
var
    towar : TTowar;
    i, n : Byte;
begin
    Reset(f);
    Write('Wwedite koliczestwo dobawlaemych naimenowanij: '); ReadLn(n);
    if (n > 0)
    then
        for i := 1 to n do
        begin
            WriteLn('Wwedite dannye o toware:');
            with towar do
            begin
                Write(#9, 'Nazwanie: '); ReadLn(nazwanie);
                Write(#9, 'Otdel: '); ReadLn(otdel);
                Write(#9, 'Koliczestwo: '); ReadLn(koliczestwo);
                Write(#9, 'Cena: '); ReadLn(cena);
            end;
            Write(f, towar);
        end;
    Close(f);
end;
 
procedure Swap(var x, y : TTowar);
var
    z : TTowar;
begin
    z := x;
    x := y;
    y := z;
end;
 
procedure GetTowarAndFilter(var f : TFile);
var
    towar : TTowar;
    ar : TArray;
    i, j, n : Byte;
begin
    n := 0; Reset(f); Seek(f, 0);
    while (Not EoF(f)) do
    begin
        Read(f, towar);
        if (towar.otdel = 'galantereja')
        then
        begin
            Inc(n);
            ar[n - 1] := towar;
        end;
    end;
    Close(f);
    for i := n - 2 downto 0 do
        for j := 0 to i do
            if (ar[i].cena < ar[i + 1].cena)
            then
                Swap(ar[i], ar[i + 1]);
    WriteLn(' nr.|', '|            nazwanie|', '|                         otdel|', '| kolwo|', '|      cena|');
    for i := 0 to n - 1 do
        with ar[i] do
            WriteLn(i + 1:4, '||', nazwanie:20, '||', otdel:30, '||', koliczestwo:6, '||', cena:10, '|');
end;
 
function Menu() : Byte;
var
    Result : Byte;
begin
    WriteLn; WriteLn;
    repeat
        WriteLn('1. Dobawit towar w fajl.');
        WriteLn('2. Wywesti dannye iz fajla');
        WriteLn('3. Exit');
        ReadLn(Result);
    until (Result in [1..3]);
    Menu := Result;
end;
 
var
    f : TFile;
begin
    Assign(f, 'f.data');
    while (true) do
        case Menu of
            1: AddTowar(f);
            2: GetTowarAndFilter(f);
            3: Break;
        end;
end.
мой паскаль с кириллицей не в ладах. так что - звиняйте-с...
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2015, 01:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выбрать из строки все буквы и отсортировать их в алфавитном порядке
выбрать из строки все буквы и отсортировать их в алфавитном порядке.

Функция: отсортировать в порядке убывания и в порядке возрастания сформированный вектор-столбец
Необходимо написать функцию по такому заданию: отсортировать в порядке убывания и в порядке...

Первые десять элементов массива М(30) отсортировать в порядке возрастания, а остальные в порядке убывания
Привет. Первые десять элементов массива М(30) отсортировать в порядке возрастания, а остальные в...

Отсортировать четные строки матрицы Q(10х10) в порядке убывания, а нечетные – в порядке возрастания
Написать программу на си, задание: Отсортировать четные строки матрицы Q(10х10) в порядке убывания,...

Уценить на 20% все товары, которые дороже заданной цены; вывести товары в порядке возрастания розничной цены
Ввести 5 структур типа &quot;Товары на складе&quot; с полями: название товара; закупочная цена; товарная...

Вывести все четные числа массива в порядке возрастания их индексов, а затем все нечетные в порядке убывания
Дан целочисленный массив размера N.Вывести в начале все содержащиеся в данном массиве четные числа...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.