Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 Аватар для RomeoSFS
0 / 0 / 2
Регистрация: 23.09.2012
Сообщений: 130

В текстовом файле хранится список товаров

15.12.2012, 23:58. Показов 2350. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте не могли бы помочь очень требуется ваша помощь по решению задачи пожалуйста! Есть Условие задачи и код программы но он сделан по другому условию, однако условия задач совпадают! вообщем надо переделать код программы под другое условие! Спасибо огромное заранее!!!
КОД.docx
условие изначальной задачи.docx
условие задачи которое надо сделать.docx
условие задачи для тех, кто не захочет качать файлВ текстовом файле хранится список товаров. Для каждого товара указаны его на¬звание, стоимость единицы товара в тыс. руб., количество и единица измерения
(например, 100 шт., 20 кг).
Написать программу, выполняющую следующие действия:
□ корректировку или дополнение списка с клавиатуры;
□ сортировку по названию товара или по общей стоимости;
□ вывод на экран информации о товаре, название которого введено с клавиатуры;
□ запись списка в файл под тем же или новым именем.

код для тех, кто не захочет качать файл
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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
program spisoks;
uses crt;
const n=10000;
type spisok=record
punkt:string[20];
tip:string[10];
end;
type vremya=record
cas:integer;
min:integer;
end;
var
    tbl:array[1..n] of spisok;
    vr:array [1..n]of vremya;
    f:Text;
    k,y:integer;
procedure Make;
var l:string; n,i:integer;
begin
textcolor(lightgreen);
 writeln('sozdanie faila');
  textcolor(black);
writeln('Vvedite imya faila');
readln(l);
     assign(f,l);
     rewrite(f);
n:=0;
    Repeat
        n:=n+1;
        Write('punkt otpravlenia ',n,' marshuta  ');
        ReadLn(tbl[n].punkt);
        If tbl[n].punkt <>'^' then
        begin
         Write('vremya otpravlenia ',n,' marshruta ');
            ReadLn(vr[n].cas);
            writeln (':');
            readln (vr[n].min);
            Write('tip vagonog',n,' marshruta ');
            ReadLn(tbl[n].tip);
        end;
        until tbl[n].punkt='^';
     for i:=1 to n-1 do
      begin
         writeln(f,tbl[i].punkt);
         writeln(f,vr[i].cas);
         writeln (f,vr[i].min);
         writeln(f,tbl[i].tip);
      end;
      close(f);
      writeln('dannye uspesho sohraneny. nazhmite Enter.');
      readln;
   end;
procedure show;
var i:integer; l:string;
begin
textcolor(lightgreen);
 writeln('prosmotr faila');
  textcolor(black);
writeln('vvedite imya faila');
readln(l);
     assign(f,l);
     reset(f);
writeln('punkt | vremya  |tip vagona');
     i:=0;
 while not eof(f) do
   begin
inc(i);
readln(f,tbl[i].punkt);
readln(f,vr[i].cas);
readln(f,vr[i].min);
readln(f,tbl[i].tip);
writeln('  ',tbl[i].punkt,'|        ',vr[i].cas,':',vr[i].min,'|    ',tbl[i].tip);
   end;
   readln;
   close(f);
  end;
 
Procedure Sortirovka;
var i,j,m: Integer;
p : spisok;
k : vremya;
S :string;
begin
m:=0;
writeln('Введите имя файла:');
readln(S);
assign(f,S);
reset(f);
 while not eof(f) do
   begin
inc(m);
readln(f,tbl[m].punkt);
readln(f,vr[m].cas);
readln(f,vr[m].min);
readln(f,tbl[m].tip);
end;
     For I:=1 to M do
     Begin
          For J:=1 to M-I do
          Begin
          if tbl[J].punkt[1] > tbl[J+1].punkt[1] then
               begin
                p.punkt:=tbl[J].punkt;
                k.cas:=vr[J].cas+5;
                k.min:=vr[J].min;
                p.tip:=tbl[j].tip;
                
                tbl[J].punkt:=tbl[J+1].punkt;
                vr[J].cas:=vr[J+1].cas;
                vr[J].min:=vr[J+1].min;
                tbl[J].tip:=tbl[J+1].tip;
 
                tbl[J+1].punkt:=p.punkt;
                vr[J+1].cas:=k.cas;
                vr[J+1].min:=k.min;
                tbl[J+1].tip:=p.tip;
                end;
            end;
            end;
//writeln('*|Пункт отпр.|Час|Минута|Тип вагона|*');
For I:=1 to m do
Begin
writeln('*Пункт Отправления* ',tbl[i].punkt,' *Время* ',vr[i].cas,':',vr[i].min,' *Тип вагона* ',tbl[i].tip);
end;
   writeln('Для продолжения нажмите Enter');
   readln;
   M:=0;
end;
begin
k:=0;
 repeat
clrscr;
writeln('programma spisok');
writeln('1.sozdanie');
writeln('2.pokaz');
writeln('3.sort ');
 writeln('4.vyxod');
write('Выберите действие:');
  readln(y);
  case y of
   1:Make;
   2:show;
   3:Sortirovka;
   4:k:=1;
   end;
 until k=1;
 end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.12.2012, 23:58
Ответы с готовыми решениями:

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

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

В текстовом файле построчно хранится целочисленная матрица
В текстовом файле построчно хранится целочисленная матрица 3х7. Заменить в ней все отрицательные элементы минимальным, положительные –...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.12.2012, 23:58
Помогаю со студенческими работами здесь

В текстовом файле хранится некоторый текст. Определить количество строк, в которых встречается не меньше двух ‘!’ и длина строки больше заданного ч
В текстовом файле хранится некоторый текст. Определить количество строк, в которых встречается не меньше двух ‘!’ и длина строки больше...

В типизированном файле хранится информация о машинах
В типизированном файле хранится информация о машинах (марка, год выпуска, стоимость). Вывести информацию о самой дорогой машине и самой...

В типизированном файле хранится информация о машинах.
решите плз В типизированном файле хранится информация о машинах (марка, год выпуска, стоимость). Вывести информацию о самой дорогой...

Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ
Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ соответственно.

Задан массив Y(M), который хранится в типизированном файле. Прочитать элементы этого массива из файла
Задан массив Y(M), который храниться в типизированном файле. Прочитать элементы этого массива из файла вычислить произведение 2-ух...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru