Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре - 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.
Объяснение кода листинга программы
- Создаётся программа
zapisi
с использованием библиотеки crt. - Объявляются константы и типы данных.
- Выделяются переменные: x, i, k, t.
- В цикле for считывается информация о товарах из массива x.
- Выводится информация о каждом товаре: название, магазин и цена.
- В цикле for проверяется, есть ли в массиве товар с таким же названием, как введено пользователем.
- Если такой товар найден, выводится информация о нем.
- Если такого товара нет, выводится сообщение
такого товара нет
. - Программа завершается после ввода названия товара.