Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
romera
Форумчанин
60 / 60 / 8
Регистрация: 02.06.2011
Сообщений: 86
12.06.2011, 11:44     Написать программу вычисления стоимости покупки с учетом скидки   #1
Практическое задание №9
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% − если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите <Enter>
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
Лучшие ответы (1)
AdAgent
Объявления
12.06.2011, 11:44    Написать программу вычисления стоимости покупки с учетом скидки
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2011, 11:44    Написать программу вычисления стоимости покупки с учетом скидки

Посмотрите здесь:

Turbo Pascal Вычислить стоимость покупки с учетом скидки

Turbo Pascal Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму о

Turbo Pascal Написать программу вычисления стоимости покупки

Turbo Pascal Написать программу вычисления стоимости поездки

Turbo Pascal Написать программу вычисления покупки с учетом скидки.

Turbo Pascal вычисления стоимости покупки с учётом скидки

Turbo Pascal Написать программу определения стоимости покупки

Turbo Pascal Вычисление стоимости покупки с учётом скидки

Turbo Pascal Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним

Turbo Pascal Как вычислить стоимость покупки с учетом скидки

swillrocker
Форумчанин
82 / 82 / 6
Регистрация: 09.04.2011
Сообщений: 179
12.06.2011, 12:22     Написать программу вычисления стоимости покупки с учетом скидки   #2
Цитата Сообщение от romera Посмотреть сообщение
Практическое задание №9
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% − если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите <Enter>
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
Вот подобная задача. Переделайте под свою.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b:real;
begin
writeln('Enter price: ');
readln(a);
b:=10;
b:=a/b;
if (a>1000) then
begin
writeln('Discount 10%');
a:=a-b;
write('Price with discount: ',a:2:2);
readln;
end
else
begin
write('Price: ',a:2:2);
readln;
end;
end.
romera
Форумчанин
60 / 60 / 8
Регистрация: 02.06.2011
Сообщений: 86
12.06.2011, 14:33  [ТС]     Написать программу вычисления стоимости покупки с учетом скидки   #3
доведите ее до ума

Добавлено через 1 минуту
program _2_2;
uses crt;
var
summa:real;
begin
ClrScr;
TextColor(14);
Writeln('Вычисление стоимости покупки.');
WriteLn('Введите исходные данные:');
write('Стоимость покупки (руб) -> ');
readln(summa);
if summa > 1000
then begin
writeln('Вам предоставляется скидка: ',(summa/10):6:2,' руб.');
writeln('Стоимость покупки: ',(summa*0.9):6:2,' руб.');
end
else begin
writeln('Вам не представляется скидка.');
writeln('Стоимость покупки: ',summa:6:2);
end;
Repeat
Until KeyPressed;
end.

Добавлено через 22 секунды
ее надо переделать

Добавлено через 11 минут
program ;
var Sum Real;
Begin
Write('Введите сумму покупки=>');
Readln(Sum);
If Sum<=500 then
Writeln('Сумма покупки меньше 500 рублей. Скидка не предоставляется. Общая сумма ', Sum)
Else
If Sum>1000 then
Writeln('Сумма покупки более 1000 рублей. Предоставляется скидка 5%. Общая сумма с учетом скидки ', Sum-Sum*0,05)
Else
Writeln('Сумма покупки более 500 рублей. Предоставляется скидка 3%. Общая сумма с учетом скидки ', Sum-Sum*0,03);
Readln;
End.

Добавлено через 16 секунд
как правильно ?

Добавлено через 1 час 43 минуты
как написать программу ?
Ev[G]eN
Модератор
Эксперт C++
4987 / 1445 / 54
Регистрация: 23.01.2011
Сообщений: 2,928
12.06.2011, 14:51     Написать программу вычисления стоимости покупки с учетом скидки   #4
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
 summa, skidka: real;
begin
 writeln('Вычисление стоимости покупки с учетом скидки.');
 writeln('Введите сумму покупки: ');
 readln(summa);
  if summa >= 500 then skidka:=3
   else if summa > 1000 then skidka:=5
    else if summa < 500 then skidka:=0;
 writeln('Вам предоставлена скидка ', skidka, '%');
 writeln('Сумма покупки с учетом скидки: ', (summa-(summa*skidka)/100));
end.
Yandex
Объявления
12.06.2011, 14:51    Написать программу вычисления стоимости покупки с учетом скидки
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 21:03. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.