Дорисовать таблицу и поправить поиск.Программа работает на 90% - Pascal ABC

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

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

Задание. Описать массив записей,содержащий информацию о нескольких деталях(наименование,масса,габаритные размеры,материал,кол-во на складе) Предусмотреть возможность выдачи данных по введенному наименованию. Я не знаю,как на форму перекинуть таблицу,у меня есть только фото..) Мой код :

Решение задачи: «Дорисовать таблицу и поправить поиск.Программа работает на 90%»

textual
Листинг программы
writeln('Полный список деталей');
writeln('------------------------------------------------------------');
writeln('|    Название   | Масса | Размер |   Материал   |Количество|');
writeln('------------------------------------------------------------');
for i:=1 to n do
with detalishka[i] do
writeln('|',name:15,'|',b:5:2,'|',c:8:2,'|',d:15,'|',e:10:2,'|');
writeln('------------------------------------------------------------');

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

  1. Выводится заголовок таблицы.
  2. Выводится заголовок таблицы.
  3. Выводится полный список деталей.
  4. Выводится таблица с деталью, номер которой равен i.
  5. Для каждой детали из списка detalishka выводится название, масса, размер, материал и количество.
  6. Выводится таблица с деталью, номер которой равен i.
  7. Выводится заголовок таблицы.
  8. Выводится полный список деталей.

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

14   голосов , оценка 3.857 из 5