Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
planktonik
0 / 0 / 3
Регистрация: 09.03.2014
Сообщений: 16
1

Вычислить стоимость покупки со скидкой

04.04.2014, 21:09. Просмотров 685. Ответов 5
Метки нет (Все метки)

В чем ошибка?

Pascal
1
2
3
4
5
6
7
8
9
program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if 500<a<1000 then b:=a/100*97;
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2014, 21:09
Ответы с готовыми решениями:

Вычислить стоимость покупки со скидкой
Вычислить стоимость покупки со скидкой без использования циклов. A-покупка...

Задать количества ручек и тетрадей, цену на них и посчитать стоимость покупки
Напиример я купил 10 тетрадей 5 ручек,цена тетради 15 Т а цена ручки 50...

Найти стоимость покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним
Ребят помогите решить 3 задачки. Вроде простые , но я не умею на паскале задачи...

Вычислить стоимость покупки, если покупка больше 500р, то 3% скидка
Нужно вычислить стоимость покупки, если покупка больше 500р, то 3% скидка. Если...

Стоимость покупки
Нужно сделать задание а я не бум-бум ((( В работе книжного магазина участвует...

5
ildwine
Супер-модератор
2989 / 1871 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
04.04.2014, 21:56 2
Хоть бы условие написали...
0
planktonik
0 / 0 / 3
Регистрация: 09.03.2014
Сообщений: 16
04.04.2014, 22:00  [ТС] 3
вычислить стоимость покупки со скидкой. Скидка в 3% предостовляется в том случае если сумма покупки равна или более 500р и если больше 1000р скидка 5%
0
qiwi
25 / 25 / 32
Регистрация: 08.01.2011
Сообщений: 159
04.04.2014, 22:02 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

может быть так?
Pascal
1
2
3
4
5
6
7
8
9
program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if (a>500)and(a<=1000) then b:=a/100*97 else
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.
1
LeoSnack
5 / 5 / 5
Регистрация: 30.01.2014
Сообщений: 38
04.04.2014, 23:18 5
planktonik, 500<a<1000, такое выражение в математике, а в программирование есть волшебное-слово 'and'
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
05.04.2014, 00:32 6
planktonik, и где описана переменная b?
0
05.04.2014, 00:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2014, 00:32

Найти стоимость всей покупки, если купили R кг конфет,S кг печенья,W кг мармелада
10. Известна стоимость 1 кг конфет, печенья, мармелада. Найти стоимость всей...

Вычислить стоимость проезда
Вычислить стоимость проезда из пункта a в пункт b и обратно.Исходные данные:...

Вычислить расход бензина и его стоимость
Программа должна вычислять расход бензина и стоимость израсходонового бензина ,...


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

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

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