Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 27.03.2019
Сообщений: 2
1

Описать запись с именем PRICE, содержащую следующие поля:

22.05.2019, 20:17. Просмотров 349. Ответов 0


1. Описать запись с именем PRICE, содержащую следующие поля:
• TOVAR — название товара;
• MAG — название магазина, в котором продается товар;
• STOIM — стоимость товара в руб.
2. Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив SPISOK, состоящий из восьми элементов типа PRICE;
записи должны быть размещены в алфавитном порядке по названиям товаров;
• вывод на экран информации о товаре, название которого введено с клавиатуры;
• если таких товаров нет, выдать на дисплей соответствующее сообщение.
Программу написать через процедуры и функции
Вот что есть:
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
  program zapis_price;
const n=8;
type price=record
     tv,mgz:string[20];
     stm:real;
     end;
var a:array[1..n] of price;   stoim:array[1..8] of price;    
    x: price; //сортировка и считывание//
    i,j,k:byte;
    naz_poisk:string[20];
begin
writeln('Введите данные о ',n,' товарах:');
for i:=1 to n do
begin
  writeln('Товар ',i);
  write('Название товара: ');readln(a[i].tv);
  write('Название магазина: ');readln(a[i].mgz);
  write('Стоимость: '); readln(a[i].stm);
  end;
 
for j:=i+1 to n do 
if a[i].tv > a[j].tv then Swap(a[i],a[j]);
writeln('Список :');
for i:=1 to n do
writeln(a[i]);
 
 
writeln('Введите название товара для поиска: '); 
readln(naz_poisk);
k:=0;
for i:=1 to n do
if a[i].tv=naz_poisk then
   begin
   k:=1;
   writeln(a[i].tv,' (tovar)  ',a[i].mgz,' (magaz)  ',a[i].stm,'руб.');
   end;
if k=0 then writeln('Такого товара нет.');   
              end.
Помогите, пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2019, 20:17
Ответы с готовыми решениями:

Описать запись с именем TRAIN, содержащую следующие поля
Написала программу, не могу понять в чем ошибка, помогите пожалуйста 1. Описать запись с именем...

Описать запись с именем Country, содержащую следующие поля
1.Описать запись с именем Country, содержащую следующие поля: • Название страны; • количество...

Описать структуру с именем MARSH, содержащую следующие поля
Описать структуру с именем MARSH, содержащую следующие поля: - название начального пункта...

Описать структуру с именем TRAIN, содержащую следующие поля:
Описать структуру с именем TRAIN, содержащую следующие поля: 1) Название пункта назначения; 2)...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2019, 20:17

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

Описать структуру с именем PERSON, содержащую поля
Описать структуру с именем PERSON, содержащую поля: Name – фамилия и инициалы, FAC – факультет,...

Описать запись с именем Note, содержащую следующие поля
Описать запись с именем NOTE, содержащую следующие поля:  фамилия, имя;  номер...

Описать запись с именем Note, содержащую следующие поля
Описать запись с именем Note, содержащую следующие поля: • Фамилия, имя; • номер телефона; •...

Описать запись с именем Note, содержащую следующие поля
1.Описать запись с именем Note, содержащую следующие поля: • Фамилия, имя; • номер телефона; •...

Описать запись с именем Student, содержащую следующие поля
1.Описать запись с именем Student, содержащую следующие поля: · Фамилия, имя студента; ·...

Описать запись с именем sotrudnik, содержащую следующие поля
Помогите написать программу: 1.Описать запись с именем sotrudnik, содержащую следующие поля: -...


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

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

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