Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Malina M
-15 / 0 / 0
Регистрация: 10.12.2012
Сообщений: 18
#1

Программа должна формировать список товаров

11.12.2012, 17:50. Просмотров 1271. Ответов 1
Метки нет (Все метки)

Напишите программу, которая вычисляет стоимость покупки. Пользователь должен вводить код товара и количество единиц. Для вывода результатов работы программы использовать компонент TMemo. Программа должна формировать список товаров (Список товаров, код товара, стоимость товара задается в программном коде).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2012, 17:50
Ответы с готовыми решениями:

не пойму в чем дело, программа должна работать, но она черт побери не работает :( (программа по работе с реестром)
Программа предназначена для поиска какого-нить слова по реестру и удаления...

Динамические списки - вывести список организаций и товаров
Здравствуйте, нужна помощь. На форме fmReport размещены 2 Memo, просто для...

Программа должна протабулировать функцию
Программа должна протабулировать функцию y=sin(x^2+2)+ln(4x-2) на отрезке с...

Вывести в алфавитном порядке список товаров, хранящихся больше месяца
Список товаров, имеющихся на складе, включает в себя наименование товара,...

Объясните, что должна делать программа
В сети есть следующие типы оборудования: компьютер (ноутбук) (1), сервер (2),...

1
digim0n
84 / 84 / 16
Регистрация: 11.11.2011
Сообщений: 259
16.12.2012, 01:51 #2
Лучший ответ Сообщение было отмечено Malina M как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function multiply(kodtovara, kolichestvotovara:string; Rezyltat:TMemo):string;
var
 tovar0, zena0, kodtovara0,
 tovar1, zena1, kodtovara1,
 tovar2, zena2, kodtovara2,
 tovar3, zena3, kodtovara3:string;
  begin
   tovar0:='Утюг';           zena0 := '150';      kodtovara0 := '0057';
   tovar1:='Чайник';         zena1 := '47,50';    kodtovara1 := '0731';
   tovar2:='Пылесос';        zena2 := '431';      kodtovara2 := '0201';
   tovar3:='Обогреватель';   zena3 := '99,99';    kodtovara3 := '6099';
 
   Rezyltat.Clear;
 
   if kodtovara = kodtovara0 then Rezyltat.Text:='Товар: '+tovar0 + ', на сумму: ' + FloatToStr(StrToFloat(zena0)*StrToFloat(kolichestvotovara))+' грн.' else
   if kodtovara = kodtovara1 then Rezyltat.Text:='Товар: '+tovar1 + ', на сумму: ' + FloatToStr(StrToFloat(zena1)*StrToFloat(kolichestvotovara))+' грн.' else
   if kodtovara = kodtovara2 then Rezyltat.Text:='Товар: '+tovar2 + ', на сумму: ' + FloatToStr(StrToFloat(zena2)*StrToFloat(kolichestvotovara))+' грн.' else
   if kodtovara = kodtovara3 then Rezyltat.Text:='Товар: '+tovar3 + ', на сумму: ' + FloatToStr(StrToFloat(zena3)*StrToFloat(kolichestvotovara))+' грн.' else
    Rezyltat.Text:='Код товара не найден!';
  end;
 
//используем
multiply(Edt1.text, Edt2.text, m1);
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2012, 01:51

Как внешне должна выглядеть подобная программа?
Лабораторная работа №1 Разработка многопоточного приложения Цель работы:...

Рекурсии. Программа должна подчитать факториал числа
помогите плиз доработать, в чем моя ошибка? Программа должна подчитать...

При подключении флешки программа должна запрашивать пароль
Парни помогите нужна программа в делфи для работы с usb смысл в том что при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru