Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 01.06.2009, 19:41   #1
Evidence
Новичок
Джуниор
 
Регистрация: 01.06.2009
Сообщений: 2
Вопрос Даны сведения о товарах на складе: наименование, цена, количество единиц товара. Найти товар, стоимость н

Даны сведения о товарах на складе: наименование, цена, количество единиц товара. Найти товар, стоимость на который не превышает средней стоимости.
Evidence вне форума Ответить с цитированием
Старый 02.06.2009, 23:09   #2
diliana
Форумчанин
 
Аватар для diliana
 
Регистрация: 23.05.2009
Сообщений: 119
По умолчанию

Сначала создаете структуру данных типа «запись»
Код:
type
tovar=record
  name: string [50];
  tcena: real;
  kolvo:byte; 
  end;
затем - массив записей
Код:
var
sklad: array [1..100] of tovar;
и соответственно доступ к информации будет таков, например
Код:
sklad [i]. name; //наименование товора
sklad [i]. kolvo; //количество единиц товара
diliana вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу, которая позволяет найти нужные сведения в телефонном справочнике (a:\phone.txt). Микола-Урал Помощь студентам 1 19.12.2008 23:54
Паскаль. 1.Даны массивы.2 Дан X найти... Stelix Помощь студентам 7 20.11.2007 21:08
Создать функцию, позволяющую вычислить новую стоимость товара после уценки. Визуал Бэйсик. КПСС Помощь студентам 6 07.11.2007 01:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS