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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 115, средняя оценка - 4.93
romera
61 / 61 / 8
Регистрация: 02.06.2011
Сообщений: 86
#1

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

12.06.2011, 11:44. Просмотров 18628. Ответов 3
Метки нет (Все метки)

Практическое задание №9
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% − если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите <Enter>
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
3
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2011, 11:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Написать программу вычисления стоимости покупки с учетом скидки (Turbo Pascal):

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

Написать программу вычисления стоимости покупки с учетом скидки - Turbo Pascal
Прошу помогите,решите кто сможет задачки!!!! 1)Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3%...

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

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

Вычисление стоимости стимости покупки с учетом скидки - Turbo Pascal
написать программу вычисление стоимости стимости покупки с учетом скидки. скидка в 3% предоставляется, если чумма покупки превышает 500 р....

Вычисления стоимости покупки с учётом скидки - Turbo Pascal
Напишите пожалуйста программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки &gt;1000 руб....

3
swillrocker
84 / 84 / 35
Регистрация: 09.04.2011
Сообщений: 183
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.
0
romera
61 / 61 / 8
Регистрация: 02.06.2011
Сообщений: 86
12.06.2011, 14:33  [ТС] #3
доведите ее до ума

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 минуты
как написать программу ?
2
Ev[G]eN
iOS/Android Developer
Эксперт С++
5097 / 1535 / 381
Регистрация: 23.01.2011
Сообщений: 3,148
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.
4
12.06.2011, 14:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2011, 14:51
Привет! Вот еще темы с ответами:

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

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

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

Вычислить стоимость покупки с учетом скидки - Turbo Pascal
сделать с помощью if, else! 83. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если...


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

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

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