С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
1

Разработать базу данных молочных продуктов

25.03.2011, 20:58. Показов 2643. Ответов 9
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Не используя процедуру обработки файлов, разработать базу данных молочных продуктов, включающую: название товара, жирность, изготовителя, цену, дату изготовления. Осуществить поиск по любому полю.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 25.03.2011, 20:58
Ответы с готовыми решениями:

Разработать базу данных
Разработать базу данных «Кондитерская» (наименование тортов, способ изготовления, цена срок...

Сети супермаркетов: разработать программу для контроля срока годности продуктов питания
2. Сети супермаркетов разработать программу для контроля срока годности продуктов питания. В...

Разработать базу данных "Домашняя фонотека"
Разработать базу данных "Домашняя фонотека" (Название аудиокассет, компакт дисков, Авторы и...

Самостоятельно разработать базу данных, предназначенную для удобного хранения данных вашей личной фонотеки. Разработать классификаторы и красивые форм
Самостоятельно разработать базу данных, предназначенную для удобного хранения данных вашей личной...

9
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
26.03.2011, 08:42 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166

program tt;
uses crt;
type Tmoloko=record
       name:string;
       jir:real;
       izg:string;
       cena:real;
       data_izg:string;
    end;
Var
  Moloko:array [1..50] of Tmoloko;
  ch:char;
  kol:byte;
procedure enter;
var
  i:byte;
  ch1:char;
begin
  ClrSCr;
  i:=0;
  while ch1<>'н' do begin
     ClrSCr;
     inc(i);
     write('Название товара: ');
     readln(Moloko[i].name);
     write('Жирность: ');
     readln(Moloko[i].jir);
     write('Изготовитель: ');
     readln(Moloko[i].izg);
     write('Цена: ');
     readln(Moloko[i].cena);
     write('Дата изготовления: ');
     readln(Moloko[i].data_izg);
     write('Повторить ввод? (д/н)');
     readln(ch1);
  end;
  kol:=i;
end;
 
procedure find;
var
  naz_,izg_ :string;
  jir_,cena_:real;
  data_:string;
  i:byte;
  ch2:char;
  k:boolean;
begin
  repeat
  ClrSCr;
  writeln('Поиск по:');
  writeln('1.Названию');
  writeln('2.Жирности');
  writeln('3.Изготовителю');
  writeln('4.Цене');
  writeln('5.Дате изготовления');
  writeln('6.Выход в главное меню');
  ch2:=readkey;
  case ch2 of
    #49:begin
          ClrSCr;
          k:=false;
          write('Введите название: ');
          readln(naz_);
          for i:=1 to kol do
            if Moloko[i].name=naz_ then begin
              k:=true;
              writeln('Название товара: ',Moloko[i].name);
              writeln('Жирность: ',Moloko[i].jir:0:2);
              writeln('Изготовитель: ',Moloko[i].izg);
              writeln('Цена: ',Moloko[i].cena:0:2);
              writeln('Дата изготовления: ',Moloko[i].data_izg);
            end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #50:begin
          ClrSCr;
          k:=false;
          write('Введите жирность: ');
          readln(jir_);
          for i:=1 to kol do
            if Moloko[i].jir=jir_ then begin
              k:=true;
              writeln('Название товара: ',Moloko[i].name);
              writeln('Жирность: ',Moloko[i].jir:0:2);
              writeln('Изготовитель: ',Moloko[i].izg);
              writeln('Цена: ',Moloko[i].cena:0:2);
              writeln('Дата изготовления: ',Moloko[i].data_izg);
            end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #51:begin
          ClrSCr;
          k:=false;
          write('Изготовителя: ');
          readln(izg_);
          for i:=1 to kol do
            if Moloko[i].izg=izg_ then begin
              k:=true;
              writeln('Название товара: ',Moloko[i].name);
              writeln('Жирность: ',Moloko[i].jir:0:2);
              writeln('Изготовитель: ',Moloko[i].izg);
              writeln('Цена: ',Moloko[i].cena:0:2);
              writeln('Дата изготовления: ',Moloko[i].data_izg);
            end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #52:begin
          ClrSCr;
          k:=false;
          write('Введите цену: ');
          readln(cena_);
          for i:=1 to kol do
            if Moloko[i].cena=cena_ then begin
              k:=true;
              writeln('Название товара: ',Moloko[i].name);
              writeln('Жирность: ',Moloko[i].jir:0:2);
              writeln('Изготовитель: ',Moloko[i].izg);
              writeln('Цена: ',Moloko[i].cena:0:2);
              writeln('Дата изготовления: ',Moloko[i].data_izg);
            end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #53:begin
          ClrSCr;
          k:=false;
          write('Введите дату изготовления: ');
          readln(data_);
          for i:=1 to kol do
            if Moloko[i].data_izg=data_ then begin
              k:=true;
              writeln('Название товара: ',Moloko[i].name);
              writeln('Жирность: ',Moloko[i].jir:0:2);
              writeln('Изготовитель: ',Moloko[i].izg);
              writeln('Цена: ',Moloko[i].cena:0:2);
              writeln('Дата изготовления: ',Moloko[i].data_izg);
            end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    end;
  until ch2=#54;
end;
 
BEGIN
  repeat
    ClrSCr;
    writeln('1.Создать запись');
    writeln('2.Поиск');
    writeln('3.Выход');
    ch:=readkey;
    case ch of
      #49:enter;
      #50:find;
    end;
  until ch=#51;
END.
1
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
26.03.2011, 20:12  [ТС] 3
Спасибо огромное)) Вы очень помогли)))

Добавлено через 8 часов 6 минут
Вот еще у меня проблемка, нужно теперь эту программу дополнить заполнением и обработкой файлов.
0
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
26.03.2011, 20:17 4
Цитата Сообщение от ksenia.444 Посмотреть сообщение
Не используя процедуру обработки файлов
было же вроде так....вот я и писал без файлов...
1
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
26.03.2011, 20:22  [ТС] 5
У ме6ня еще вопрос, что означает #51 и т.д?
0
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
26.03.2011, 20:23 6
#51 это код клавиши 3
ну и от этого отталкивайтесь..
1
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
26.03.2011, 20:24  [ТС] 7
Цитата Сообщение от kofee"k Посмотреть сообщение
было же вроде так....вот я и писал без файлов...
Ну вот теперь задание поменялось, теперь мне исправлять надо(((

Добавлено через 1 минуту
Цитата Сообщение от kofee"k Посмотреть сообщение
#51 это код клавиши 3
ну и от этого отталкивайтесь..
спасибо!
0
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
27.03.2011, 11:33 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188

program tt;
uses crt;
type Tmoloko=record
       name:string;
       jir:real;
       izg:string;
       cena:real;
       data_izg:string;
    end;
    Tfile=file of Tmoloko;
Var
  Moloko:Tmoloko;
  ch:char;
  f:Tfile;
  fname:string;
 
procedure enter(fname:string);
var
  i:byte;
  ch1:char;
begin
  ClrSCr;
   {$I-}
  assign(f,fname);
  reset(f);
  If IOResult<>0 then begin writeln('Фаил не найден, он был создан');rewrite(f);end;
  while ch1<>'н' do begin
     ClrSCr;
     seek(f,FileSize(f));
     write('Название товара: ');
     readln(Moloko.name);
     write('Жирность: ');
     readln(Moloko.jir);
     write('Изготовитель: ');
     readln(Moloko.izg);
     write('Цена: ');
     readln(Moloko.cena);
     write('Дата изготовления: ');
     readln(Moloko.data_izg);
     write(f,Moloko);
     write('Повторить ввод? (д/н)');
     readln(ch1);
  end;
  close(f);
end;
 
procedure find(fname:string);
var
  naz_,izg_ :string;
  jir_,cena_:real;
  data_:string;
  i:byte;
  ch2:char;
  k:boolean;
begin
  repeat
  {$I-}
  assign(f,fname);
  reset(f);
  If IOResult<>0 then writeln('Фаил не найден')else begin
  ClrSCr;
  writeln('Поиск по:');
  writeln('1.Названию');
  writeln('2.Жирности');
  writeln('3.Изготовителю');
  writeln('4.Цене');
  writeln('5.Дате изготовления');
  writeln('6.Выход в главное меню');
  ch2:=readkey;
  case ch2 of
    #49:begin
          ClrSCr;
          k:=false;
          write('Введите название: ');
          readln(naz_);
          while not eof(f)do begin
            read(f,Moloko);
            if Moloko.name=naz_ then begin
              k:=true;
              writeln('Название товара: ',Moloko.name);
              writeln('Жирность: ',Moloko.jir:0:2);
              writeln('Изготовитель: ',Moloko.izg);
              writeln('Цена: ',Moloko.cena:0:2);
              writeln('Дата изготовления: ',Moloko.data_izg);
            end;
          end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #50:begin
          ClrSCr;
          k:=false;
          write('Введите жирность: ');
          readln(jir_);
          while not eof(f) do begin
            read(f,Moloko);
            if Moloko.jir=jir_ then begin
              k:=true;
              writeln('Название товара: ',Moloko.name);
              writeln('Жирность: ',Moloko.jir:0:2);
              writeln('Изготовитель: ',Moloko.izg);
              writeln('Цена: ',Moloko.cena:0:2);
              writeln('Дата изготовления: ',Moloko.data_izg);
            end;
          end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #51:begin
          ClrSCr;
          k:=false;
          write('Изготовителя: ');
          readln(izg_);
          while not eof(f) do begin
            read(f,Moloko);
            if Moloko.izg=izg_ then begin
              k:=true;
              writeln('Название товара: ',Moloko.name);
              writeln('Жирность: ',Moloko.jir:0:2);
              writeln('Изготовитель: ',Moloko.izg);
              writeln('Цена: ',Moloko.cena:0:2);
              writeln('Дата изготовления: ',Moloko.data_izg);
            end;
          end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #52:begin
          ClrSCr;
          k:=false;
          write('Введите цену: ');
          readln(cena_);
          while not eof(f) do begin
            read(f,Moloko);
            if Moloko.cena=cena_ then begin
              k:=true;
              writeln('Название товара: ',Moloko.name);
              writeln('Жирность: ',Moloko.jir:0:2);
              writeln('Изготовитель: ',Moloko.izg);
              writeln('Цена: ',Moloko.cena:0:2);
              writeln('Дата изготовления: ',Moloko.data_izg);
            end;
          end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    #53:begin
          ClrSCr;
          k:=false;
          write('Введите дату изготовления: ');
          readln(data_);
          while not eof(f) do begin
            read(f,Moloko);
            if Moloko.data_izg=data_ then begin
              k:=true;
              writeln('Название товара: ',Moloko.name);
              writeln('Жирность: ',Moloko.jir:0:2);
              writeln('Изготовитель: ',Moloko.izg);
              writeln('Цена: ',Moloko.cena:0:2);
              writeln('Дата изготовления: ',Moloko.data_izg);
            end;
          end;
          if k=false then writeln('Записи не найдены!');
          writeln('Для возврата в меню Enter');
          readln;
        end;
    end;
  end;
  until ch2=#54;
end;
 
BEGIN
  repeat
    ClrSCr;
    writeln('1.Создать запись');
    writeln('2.Поиск');
    writeln('3.Выход');
    ch:=readkey;
    case ch of
      #49:begin write('Имя файла: ');readln(fname);enter(fname);end;
      #50:begin write('Имя файла: ');readln(fname);find(fname);end;
    end;
  until ch=#51;
END.
Вот добавил работу с файлом...
1
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
28.03.2011, 18:10  [ТС] 9
Спасибо, что вы помогаете))
0
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 14
31.03.2011, 17:11  [ТС] 10
а в turbo pascale программа так же будет выглядеть или будут какие-то отличия?
0
31.03.2011, 17:11
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 31.03.2011, 17:11
Помогаю со студенческими работами здесь

Разработать базу данных
треба зробити таблицю в Access на завтра поможіть будьласка магазин &quot;Розетка&quot; . Відділ...

разработать базу данных
разработать базу данных &quot;Выпускники&quot;, где содержится сведения о выпускнике в годы его учебы в...

Разработать базу данных
Помогите, пожалуйста, разработать базу данных &quot;Режим отдела и охраны&quot;, которая позволит создать...

Разработать базу данных
Разработать базу данных «Отдела кадров университета» (фамилия, имя, отчество, адрес, стаж...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала согласования+ стартер fast регистров. Файлы прилагаю. . . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
Как создать нейросеть для генерации картинок на Python
InfoMaster 12.01.2025
Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .
Создание нейросети для генерации текста на Python
InfoMaster 12.01.2025
Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python
InfoMaster 12.01.2025
Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта
InfoMaster 12.01.2025
Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .
Python и нейросети
InfoMaster 12.01.2025
Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .
Python в машинном обучении
InfoMaster 12.01.2025
Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .
Создание UI на Python с TKinter
InfoMaster 12.01.2025
TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .
HTML5 в разработке мобильных приложений
InfoMaster 12.01.2025
Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru