Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/10: Рейтинг темы: голосов - 10, средняя оценка - 4.80
Роберт
0 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 38
1

Описать структуру с именем PRICE

13.01.2010, 20:11. Просмотров 1795. Ответов 4
Метки нет (Все метки)

а) описать структуру с именем PRICE,содержащую следующие поля:
* Название товара;
* Код товара;
* Название магазина, в котором продается товар;
* Стоимость товара в руб.
б) Написать программу, выполняющую следующие действия:
* Ввод с клавиатуры данных в массив, состоящий из восьми элементов типа PRICE;
* Упорядочить записи по коду товара (возрастание);
* Вывод на дисплей базы, организованную в таблицу в соответствии с условием 2
* Вывод на экран информации о товаре, который продается в магазине, введенного с клавиатуры;
* Если такого магазина нет, выдать на дисплей соответствующее сообщение.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2010, 20:11
Ответы с готовыми решениями:

Описать структуру с именем STUDENT
Описать структуру с именем STUDENT, содержащую следующие поля: -номер;...

Описать структуру с именем ZNAK
Описать структуру с именем ZNAK, содержащую следующие поля: 1)Фамилия имя. ...

Описать структуру с именем Group
необходимо описать структуру и написать программу, выручите пожалуйста ...

Описать структуру с именем STUDENT
описать структуру с именем STUDENT, содержащую следующие поля: -- NAME -...

Описать структуру с именем NOTE
uses crt; type ZNAK=record fam:string; nam:string; ...

4
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
14.01.2010, 09:12 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
uses crt;
const n=8;
type price=record
           naz:string;
           kod:word;
           mag:string;
           stm:real;
          end;
var a:array[1..n] of price;
    x:price;
    i,j:byte;
    mg:string;
begin
clrscr;
writeln('Ввведите данные о ',n,' товарах:');
for i:=1 to n do
 begin
  writeln('Товар ',i);
  with a[i] do
   begin
    write(' Название: ');readln(naz);
    write(' Код(натуральное число): ');readln(kod);
    write(' Магазин: ');readln(mag);
    write(' Стоимость(действительное число): ');readln(stm);
   end;
 end;
clrscr;
{сортирвка по коду}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].kod>a[j].kod then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Список товаров:':30);
writeln('-----------------------------------------------');
writeln('|   Название  |  Код  |  Магазин  | Стоимость |');
writeln('-----------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('| ',naz);
  gotoXY(15,whereY);write('| ',kod);
  gotoXY(23,whereY);write('| ',mag);
  gotoXY(35,whereY);write('| ',stm:10:2);
  gotoXY(47,whereY);writeln('|');
 end;
writeln('-----------------------------------------------');
write('Какой товар в магазине: ');
readln(mg);
j:=0;
for i:=1 to n do
if a[i].mag=mg then
 begin
  j:=1;
  write(a[i].naz);
 end;
if j=0 then write('Такого магазина нет!');
readln
end.
1
Роберт
0 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 38
14.01.2010, 11:02  [ТС] 3
Puporev, Огромное Вам Спасибо за помощь. Подскажите пожалуйста где я могу найти ответ и что собой представляет примерно первая часть а) этого же задания? Буду очень признателен...
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
14.01.2010, 11:17 4
а) описать структуру с именем PRICE,содержащую следующие поля:
* Название товара;
* Код товара;
* Название магазина, в котором продается товар;
* Стоимость товара в руб.
Pascal
1
2
3
4
5
6
type price=record
           naz:string;
           kod:word;
           mag:string;
           stm:real;
          end;
0
Роберт
0 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 38
14.01.2010, 11:42  [ТС] 5
Спасибо.
0
14.01.2010, 11:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2010, 11:42

Описать структуру с именем ZNAK
Привет) последняя лаба по Паскалю... please help: Описать структуру с именем...

Описать структуру с именем STUDENT
Описать структуру с именем student содержашие следушие поля 1.Фио 2.номер...

Описать структуру с именем MARSH (маршрут)
Толи я дурак, толи лыжи не едут, но помогите пожалуйста, что не так? Program...


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

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

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