Описать запись с именем PRICE

@gaben12yu · Регистрация: 07.04.2016

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, тема "Записи", вот задание:

Описать запись с именем PRICE, содержащую следующие
поля:
-название товара;
-название магазина, в котором продается товар;
-стоимость товара в руб.
Написать программу, выполняющую следующие действия:
-ввод с клавиатуры данных в массив, состоящий из восьми элементов типа PRICE;
-вывод таблицы на экран;
-записи разместить в алфавитном порядке по названиям магазинов;
-вывод отсортированной таблицы на экран;
-вывод на экран информации о товарах, продающихся в магазине, название которого введено с клавиатуры;
-если такого магазина нет, выдать на дисплей соответствующее
сообщение.

@Puporev · 07.09.2016, 14:59

Сообщение от gaben12yu

-вывод таблицы на экран;

А Паскаль какой? Неужели трудно создать тему в нужном подразделе или хотя бы указать?

@gaben12yu · 09.09.2016, 14:38 **[ТС]**

Паскаль FreePascal

@Puporev · 09.09.2016, 15:23

Pascal

uses crt;
const n=8;
type price=record
           tov,mgz:string[20];
           stm:word;
           end;
var z:array[1..n] of price;
    x:price;
    i,j,k:byte;
    m:string[20];
begin
clrscr;
writeln('Введите данные о ',n,' товарах:');
for i:=1 to n do
with z[i] do
 begin
  writeln('Товар ',i);
  write(' Название товара: ');readln(tov);
  write(' Название магазина: ');readln(mgz);
  write(' Стоимость: ');readln(stm);
 end;
clrscr;
writeln('Исходный список товаров');
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
for i:=1 to n do
writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
writeln('----------------------------------------------------------------');
for i:=1 to n-1 do
for j:=i+1 to n do
if z[i].mgz>z[j].mgz then
 begin
  x:=z[i];
  z[i]:=z[j];
  z[j]:=x;
 end;
writeln('Список товаров по алфавиту названий магазинов');
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
for i:=1 to n do
writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
writeln('----------------------------------------------------------------');
{если высота экрана 25 символов, нужно 3 следующих строки, если 40, не нужно}
write('Нажмите любую клавишу для продолжения');
readkey;
clrscr;
write('Введите название магазина для поиска:');
readln(m);
writeln('Список товаров продающихся в магазине ',m);
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
k:=0;
for i:=1 to n do
if z[i].mgz=m then
 begin
  k:=1;
  writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
 end;
writeln('----------------------------------------------------------------');
if k=0 then writeln('Такого магазина нет!');
write('Нажмите любую клавишу для выхода');
readkey
end.

@gaben12yu · 25.09.2016, 00:47 **[ТС]**

Есть программа по такому заданию:

Кликните здесь для просмотра всего текста

Описать запись с именем PRICE, содержащую следующие
поля:
-название товара;
-название магазина, в котором продается товар;
-стоимость товара в руб.
Написать программу, выполняющую следующие действия:
-ввод с клавиатуры данных в массив, состоящий из восьми элементов типа PRICE;
-вывод таблицы на экран;
-записи разместить в алфавитном порядке по названиям магазинов;
-вывод отсортированной таблицы на экран;
-вывод на экран информации о товарах, продающихся в магазине, название которого введено с клавиатуры;
-если такого магазина нет, выдать на дисплей соответствующее
сообщение.

Вот сам код:

Кликните здесь для просмотра всего текста

Pascal

uses crt;
const n=8;
type price=record
           tov,mgz:string[20];
           stm:word;
           end;
var z:array[1..n] of price;
    x:price;
    i,j,k:byte;
    m:string[20];
begin
clrscr;
writeln('Введите данные о ',n,' товарах:');
for i:=1 to n do
with z[i] do
 begin
  writeln('Товар ',i);
  write(' Название товара: ');readln(tov);
  write(' Название магазина: ');readln(mgz);
  write(' Стоимость: ');readln(stm);
 end;
clrscr;
writeln('Исходный список товаров');
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
for i:=1 to n do
writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
writeln('----------------------------------------------------------------');
for i:=1 to n-1 do
for j:=i+1 to n do
if z[i].mgz>z[j].mgz then
 begin
  x:=z[i];
  z[i]:=z[j];
  z[j]:=x;
 end;
writeln('Список товаров по алфавиту названий магазинов');
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
for i:=1 to n do
writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
writeln('----------------------------------------------------------------');
{если высота экрана 25 символов, нужно 3 следующих строки, если 40, не нужно}
write('Нажмите любую клавишу для продолжения');
readkey;
clrscr;
write('Введите название магазина для поиска:');
readln(m);
writeln('Список товаров продающихся в магазине ',m);
writeln('----------------------------------------------------------------');
writeln('|   Название товара  |  Название магазина |  Стоимость товара  |');
writeln('----------------------------------------------------------------');
k:=0;
for i:=1 to n do
if z[i].mgz=m then
 begin
  k:=1;
  writeln('|',z[i].tov:20,'|',z[i].mgz:20,'|',z[i].stm:20,'|');
 end;
writeln('----------------------------------------------------------------');
if k=0 then writeln('Такого магазина нет!');
write('Нажмите любую клавишу для выхода');
readkey
end.

Помогите пожалуйста основываясь на этой программе сдать следующее задание:
1. вызов запросов оформить в виде меню;
2. добавить пункты: сохранить таблицу в файле и прочитать
таблицу из файла. Типы файлов:
– типизированный файл из записей;
– типизированный файл из символов;
– текстовый файл;
3. запросы оформить в виде подпрограмм. Все объявления и
подпрограммы должны быть оформлены в виде модуля (модулей)

@gaben12yu 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 17
		1
	Описать запись с именем PRICE 07.09.2016, 14:17. Показов 2115. Ответов 4 Метки нет (Все метки) Помогите пожалуйста, тема "Записи", вот задание: Описать запись с именем PRICE, содержащую следующие поля: -название товара; -название магазина, в котором продается товар; -стоимость товара в руб. Написать программу, выполняющую следующие действия: -ввод с клавиатуры данных в массив, состоящий из восьми элементов типа PRICE; -вывод таблицы на экран; -записи разместить в алфавитном порядке по названиям магазинов; -вывод отсортированной таблицы на экран; -вывод на экран информации о товарах, продающихся в магазине, название которого введено с клавиатуры; -если такого магазина нет, выдать на дисплей соответствующее сообщение. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.09.2016, 14:59	2
	Сообщение от gaben12yu -вывод таблицы на экран; А Паскаль какой? Неужели трудно создать тему в нужном подразделе или хотя бы указать? 0

@gaben12yu 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 17
	09.09.2016, 14:38 [ТС]	3
	Паскаль FreePascal 0

	25.09.2016, 00:47

Описать запись с именем PRICE

Решение