Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите дописать программу Если помогаете объясняйте подробней Задача: 1)Ввод данных с клавиатуры в массив состоящий из 8 элементов типа price(до этого момента сделал), записи должны быть размещены в алфавитном порядке по названиям товаров. 2)Вывод на экран информации о товаре название которого введено с клавиатуры если таких нет, вывести на экран соответствующее сообщение. нужно доделать половину первого пункта и весь второй пункт!!! Вот что сделал
Эта часть 100% работает)) Тому кто доделает огромный плюс в карму, и большое спасибо от меня

Решение задачи: «Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре»

textual
Листинг программы
Program zapisi;
uses crt;
const n=8;
type
Price=record
      tovar:string;
      magazin:string;
      stoimost: integer;
      end;
var
x: array[1..n] of price;
i,k:integer;
t:string;
begin;
clrscr;
for i:=1 to n do
with x[i] do
 begin
  write ('nazvanie tovara: ');
  readln (tovar);
  write ('nazvanie magazina: ');
  readln (magazin);
  write ('stoimost: ');
  readln (stoimost);
 end;
for i:=1 to n do
writeln (x[i].magazin,' ',x[i].tovar,' ',x[i].stoimost);
write('vvedite nazvanie tovara: ');
readln(t);
k:=0;
for i:=1 to n do
if x[i].tovar=t then
 begin
  writeln (x[i].magazin,' ',x[i].tovar,' ',x[i].stoimost);
  k:=1
 end;
if k=0 then write('takogo tovara net');
readln;
end.

Объяснение кода листинга программы

  1. Создаётся программа zapisi с использованием библиотеки crt.
  2. Объявляются константы и типы данных.
  3. Выделяются переменные: x, i, k, t.
  4. В цикле for считывается информация о товарах из массива x.
  5. Выводится информация о каждом товаре: название, магазин и цена.
  6. В цикле for проверяется, есть ли в массиве товар с таким же названием, как введено пользователем.
  7. Если такой товар найден, выводится информация о нем.
  8. Если такого товара нет, выводится сообщение такого товара нет.
  9. Программа завершается после ввода названия товара.

Оцени полезность:

9   голосов , оценка 3.667 из 5
Похожие ответы