Рассчитать стоимость покупки с учетом скидки

@Koshuk · Регистрация: 19.06.2015

Author24 — интернет-сервис помощи студентам

Курсач в понедельник сдать нужно, а я никак задание не доделаю .

Покупатели магазина пользуются 10% скидкой, если покупка состоит более чем из 5 наименований товаров или стоимость покупки превышает 1000 грн. Составить ведомость оплаты покупок для 10 покупателей, учитывающий количество наименований купленных товаров, стоимость покупки. Рассчитать стоимость покупки с учетом скидки. Подсчитать количество покупателей, которые сделали покупки более чем на 1000 грн., Сумму всех покупок.

Вот что вышло 2-t.rar

@Koshuk · 20.06.2015, 00:13 **[ТС]**

Вот здесь у меня что-то не так, вернее все тут не так

Delphi

Var
a,w:array [0..9] of integer;
b:array [0..9] of real;
 i:integer;
 h:string;
begin
For i:= 0 to 9 do begin
a[i]:=StrToint (Memo1.Lines[i]);
b[i]:=StrToint (Memo2.Lines[i]);
w[i]:=StrToint (Memo3.Lines[i]);
If (a[i]>1000)  then Memo3.Lines.Add:IntToStr(w[i]):=IntToStr(a[i]*0.1);

@Puporev · 20.06.2015, 09:21

Вот поправил.

@Puporev · 20.06.2015, 09:36

Еще добавь в первую кнопку после

Delphi

1	Memo3.Clear;

это

Delphi

1 2	Edit1.Clear; Edit2.Clear;

Очистка нужна чтобы можно было ввести новые данные

@Koshuk · 20.06.2015, 10:45 **[ТС]**

Большое спасибо )Ты спас мою стипендию

@Koshuk 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 11
		1
	Рассчитать стоимость покупки с учетом скидки 19.06.2015, 20:47. Показов 2810. Ответов 4 Метки нет (Все метки) Курсач в понедельник сдать нужно, а я никак задание не доделаю . Покупатели магазина пользуются 10% скидкой, если покупка состоит более чем из 5 наименований товаров или стоимость покупки превышает 1000 грн. Составить ведомость оплаты покупок для 10 покупателей, учитывающий количество наименований купленных товаров, стоимость покупки. Рассчитать стоимость покупки с учетом скидки. Подсчитать количество покупателей, которые сделали покупки более чем на 1000 грн., Сумму всех покупок. Вот что вышло 2-t.rar 0

@Koshuk 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 11
	20.06.2015, 10:45 [ТС]	5
	Большое спасибо )Ты спас мою стипендию 0

Рассчитать стоимость покупки с учетом скидки

Решение