Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 12.06.2011, 11:44   #1
romera
Форумчанин
 
Регистрация: 02.06.2011
Сообщений: 86
Репутация: 60 (60)
Лучшие ответы: 8
Написать программу вычисления стоимости покупки с учетом скидки / Turbo Pascal

Практическое задание №9
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% − если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите <Enter>
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
Лучшие ответы (1)
Старый 12.06.2011, 12:22   #2
swillrocker
Форумчанин
 
Регистрация: 09.04.2011
Сообщений: 179
Репутация: 82 (82)
Лучшие ответы: 6
Цитата Сообщение от 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.
Другие темы раздела Форум программистов Turbo Pascal. Программирование на языке Turbo Pascal. Помощь в решении задач, ответы на вопросы.
не могу понять в чём причина Turbo Pascal
Привет уважаемые программисты Помогите понять в чём причина и исправить эту причину Написал программу в Turbo Pascal список очереди пациентов в поликлинику к специалисту Список пациентов я считываю с текстового файла,с этим у меня проблем нет Проблема в том,что когда я добавляю нового пациента...
Turbo Pascal матрицы и програмы по ним
1.Дана квадратная матрица 10Х10, заполнить ее 0 или 1 произвольно. Определить встречаются ли в данной матрице строки, в которых подряд идут 4 нулевых элемента. Подсчитать количество таких строк, выдать их номера. 2.Дана матрица размером 5Х5 элементов, случайным образом заполненная числами от 0...
Старый 12.06.2011, 14:33  [ТС]   #3
romera
Форумчанин
 
Регистрация: 02.06.2011
Сообщений: 86
Репутация: 60 (60)
Лучшие ответы: 8
доведите ее до ума

Добавлено через 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 минуты
как написать программу ?
Старый 12.06.2011, 14:51   #4
Ev[G]eN
Модератор
Эксперт C++
 
Аватар для Ev[G]eN
 
Регистрация: 23.01.2011
Сообщений: 2,904
Репутация: 6208 (1432)
Лучшие ответы: 51
Код 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.
Старый 12.06.2011, 14:51
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
С++ для начинающих Программа вычисления стоимости покупки с учетом скидки
Программа вычисления стоимости покупки с учетом скидки.Скидка предоставляется, если сумма>1000(5%), более 5000(?%), а так же дополнит скидка 3%- в выходные дни. Информация о том является ли день выходным, программа должна получать на основе анализа текущей даты С выходными не пойму как сделать...
byMary
С++ для начинающих Написать программу вычисления стоимости покупки с учетом скидки
Написать программу(Средства ввода/вывода С++) вычисления стоимости покупки с учетом скидки. Если сумма покупки составляет больше 500 рублей, то скидка 3%, если сумма покупки больше 1000 рублей - скидка 5%.
Shelep
Turbo Pascal Написать программу вычисления покупки с учетом скидки.
Написать программу вычисления покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500, в 5% - если сумма больше 1000 руб... program romera; var a: real; begin writeln ('ВЫЧИСЛЕНИЕ СТОИМОСТИ ПОКУПКИ С УЧЕТОМ СКИДКИ'); writeln (' '); write ('Введите сумму...
romera
Turbo Pascal Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму о
Помогите Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в том случаи, если покупатель совершает покупку на сумму от 1500р, и 5%, если совершается покупка на сумму от 800р. Помимо вывода стоимости покупки с учетом скидки вывести размер скидки или же...
VLAD_VLAD
Turbo Pascal Напишите программу, использующую функцию для вычисления стоимости покупки с учетом скидки.
17. Напишите программу, использующую функцию для вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 5000 руб., в 5% - если сумма больше 10000 руб. Рекомендуемый вид экрана: Введите сумму покупки: = … Вам предоставляется скидка = …% Сумма с...
orif
Опции темы

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

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