Технологии разработки программных продуктов

 

«Башкирский экономико-юридический техникум»

«Факультет компьютерных технологий»

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Контрольная работа

 

по дисциплине «Технологии разработки программных продуктов»

 

 

 

 

                                                                 

 

 

 

 

 

                                                        

                                                     

 

 

 

Выполнил: студент группы АПЗ-10-11

Хакимов Эльвир Рафилевич.

Руководитель:

Оценка:

Дата:

 

 

 

 

Label - поле вывода текста;

Edit - поле ввода/редактирования текста;

Button - команднуя кнопка;

Memo - многострочный текстовый редактор;

FloatToStrF ( Выражение, Формат, Точность, Количество Цифр)

Преобразование вещественного  числа в его изображение с  возможностью выбора способа изображения;

StrToFloat ( Строка : string)

Преобразование строки, изображающей вещественное число, в  число.

 

 

 

Написать программу, которая вычисляет  стоимость покупки с учетом скидки. Скидка 1 % предоставляется, если сумма  покупки больше 300 рублей, 2 % — если сумма больше 500 рублей, 3 % — если сумма больше 1 000. Информация о предоставленной скидке (процент и величина) должна быть выведена в диалоговом окне.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

// щелчок на кнопке Вычислить

procedure TForm1.Button1Click(Sender: TObject);

var stm,sum,skd,prc:real; //стоимость,сумма,скидка,процент

    kol:byte;                       //кол-во

begin

stm:=StrToFloat(Edit1.text); // ввести стоимость

kol:=StrToInt(Edit2.Text); // ввести кол-во

sum:=stm*kol; // стоимость*кол-во

prc:=0;skd:=0;

if (sum>300) and(sum<=500) then //скидка 1% если сумма>300 и <500

  begin

    prc:=1;

    skd:=sum*prc/100;

  end

else if (sum>500) and(sum<=1000) then //скидка 2% если сумма>500 и <1000

  begin

    prc:=2;

    skd:=sum*prc/100;

  end

else if sum>1000 then //скидка 3% если сумма больше 1000

  begin

    prc:=3;

    skd:=sum*prc/100;

  end;

Memo2.text:='Скидка '+FloatToStrF(prc,ffFixed,3,0)+'% ='

+ FloatToStrF(skd,ffFixed,6,2)+'  руб.'; // вывести результат

end;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

var stm,sum,skd,prc:real;

    kol:byte;

begin

stm:=StrToFloat(Edit1.text);

kol:=StrToInt(Edit2.Text);

sum:=stm*kol;

prc:=0;skd:=0;

if (sum>300) and(sum<=500) then

  begin

    prc:=1;

    skd:=sum*prc/100;

  end

else if (sum>500) and(sum<=1000) then

  begin

    prc:=2;

    skd:=sum*prc/100;

  end

else if sum>1000 then

  begin

    prc:=3;

    skd:=sum*prc/100;

  end;

Memo2.text:='Скидка '+FloatToStrF(prc,ffFixed,3,0)+'% ='

+ FloatToStrF(skd,ffFixed,6,2)+'  руб.';

end;

 

end.