Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
12.06.2011, 11:44   #1
romera
Форумчанин
Регистрация: 02.06.2011
Сообщений: 86
Репутация: 60 (60)
Лучшие ответы: 8
Практическое задание №9
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% − если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите <Enter>
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
Лучшие ответы (1)
12.06.2011, 11:44
AdAgent
Объявления
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 матрицы и програмы по ним
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++
Регистрация: 23.01.2011
Сообщений: 2,928
Репутация: 4987 (1445)
Лучшие ответы: 54
Код 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C# Написать программу вычисления стоимости покупки с учетом скидки
Написать программу вычисления стоимости покупки с учетом скидки. Скидка s% предоставляется, если сумма покупки превышает M руб. и p%, если сумма покупки больше N руб (s<p, M<N).
C# для начинающих олег94 22.10.2013 12:06
C (СИ) Написать программу вычисления стоимости покупки с учетом скидки.
Написать программу вычисления стоимости покупки с учетом скидки. Скидка 10% предоставляется в случае, если сумма покупки больше 2000 рублей. Исходные данные (сумма покупки) вводятся из файла Input.txt. Результаты работы программы записываются в файл Out.txt.
C для начинающих Данилов 30.04.2013 11:12
C++ Написать программу вычисления стоимости покупки с учетом скидки
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб.
С++ для начинающих Maria Levitskay 07.10.2012 17:21
C++ Написать программу вычисления стоимости покупки с учетом скидки
Написать программу(Средства ввода/вывода С++) вычисления стоимости покупки с учетом скидки. Если сумма покупки составляет больше 500 рублей, то скидка 3%, если сумма покупки больше 1000 рублей - скидка 5%.
С++ для начинающих Shelep 31.10.2011 09:20
Опции темы

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

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