Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) Написать программу вычисления стоимости покупки с учетом скидки.
Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в случае, если сумма покупки больше 2000 рублей. Исходные данные (сумма покупки) вводятся из файла...
C для начинающих Данилов 30.04.2013 11:12
C++ Написать программу вычисления стоимости покупки с учетом скидки
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб.
С++ для начинающих Maria Levitskay 07.10.2012 17:21
Turbo Pascal вычисления стоимости покупки с учётом скидки
Напишите пожалуйста программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки >1000 руб. Ниже представлен рекомендуемый вид экрана во время работы...
Turbo Pascal Алиска 31.08.2011 23:02
Turbo Pascal Написать программу вычисления покупки с учетом скидки.
Написать программу вычисления покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500, в 5% - если сумма больше 1000 руб... program romera; var a: real; begin...
Turbo Pascal romera 18.06.2011 18:04
Turbo Pascal Написать программу вычисления стоимости покупки
Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Ниже представлен рекомендуемый вид экрана во время работы программы (данные,...
Turbo Pascal Артём279 30.05.2011 16:03
Turbo Pascal Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму о
Помогите Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму от 1500р, и 5%, если совершается покупка...
Turbo Pascal VLAD_VLAD 21.05.2011 06:57
Turbo Pascal Напишите программу, использующую функцию для вычисления стоимости покупки с учетом скидки.
17. Напишите программу, использующую функцию для вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 5000 руб., в 5% - если сумма больше 10000 руб....
Turbo Pascal orif 29.03.2011 20:07
Опции темы

Текущее время: 12:00. Часовой пояс GMT +4.

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