Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Malina M
-15 / 0 / 0
Регистрация: 10.12.2012
Сообщений: 18
#1

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

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

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

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

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

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

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

Рекурсии. Программа должна подчитать факториал числа - Delphi
помогите плиз доработать, в чем моя ошибка? Программа должна подчитать факториал числа function fact(n1:longint):longint; begin if...

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

1
digim0n
84 / 84 / 1
Регистрация: 11.11.2011
Сообщений: 259
16.12.2012, 01:51 #2
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
Привет! Вот еще темы с ответами:

помогите найти ошибку. программа должна выводить матрицу - Delphi
procedure TForm12.Button1Click(Sender: TObject); var a:arrayof integer; b:integer; begin repeat n:=StrToInt(InPutBox('kol-vo...

Подскажите, как примерно должна выглядеть программа в Delphi? - Delphi
Дан файл SCHOOL, в котором содержится информация о школьниках: 1) Ф.И.О.; 2) Число, месяц, год рождения; 3) Оценки экзаменов; а)...

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

Программа должна прочитать с клавиатуры сначала количество платформ N - Delphi
Здраствуйте ! Вот задача вы её решаете кидаете сюда всю прогу я её проверяю (у меня свои тесты),и вы зарабатываете 10 баллов если все...


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

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

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