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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
planktonik
0 / 0 / 1
Регистрация: 09.03.2014
Сообщений: 16
#1

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

04.04.2014, 21:09. Просмотров 566. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить стоимость покупки со скидкой (Pascal ABC):

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

Задать количества ручек и тетрадей, цену на них и посчитать стоимость покупки - Pascal ABC
Напиример я купил 10 тетрадей 5 ручек,цена тетради 15 Т а цена ручки 50 Т.Соклько я потратил?. И в задаче должен вылазить вопрос сколько...

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

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

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

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

5
ildwine
Модератор
2919 / 1773 / 639
Регистрация: 04.03.2013
Сообщений: 4,393
Записей в блоге: 1
04.04.2014, 21:56 #2
Хоть бы условие написали...
0
planktonik
0 / 0 / 1
Регистрация: 09.03.2014
Сообщений: 16
04.04.2014, 22:00  [ТС] #3
вычислить стоимость покупки со скидкой. Скидка в 3% предостовляется в том случае если сумма покупки равна или более 500р и если больше 1000р скидка 5%
0
qiwi
25 / 25 / 8
Регистрация: 08.01.2011
Сообщений: 156
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 / 2
Регистрация: 30.01.2014
Сообщений: 38
04.04.2014, 23:18 #5
planktonik, 500<a<1000, такое выражение в математике, а в программирование есть волшебное-слово 'and'
0
Svager
394 / 374 / 212
Регистрация: 14.09.2013
Сообщений: 1,202
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
Привет! Вот еще темы с ответами:

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

Вычислить расход бензина и его стоимость - Pascal ABC
Программа должна вычислять расход бензина и стоимость израсходонового бензина , при условии что вы знаете расход (литры на километры ) и...

Вычислить стоимость разговора в разные месяцы года - Pascal
Вычислить стоимость разговора в разные месяцы года. Пользователь задает кол-во минут и с помощью listbox месяц. Стоимость 1 мин-85 коп....

Верно ли, что средняя стоимость автомобилей превышает среднюю стоимость мотоциклов - Pascal
Известны стоимости нескольких марок легковых автомобилей и мотоциклов. Верно ли, что средняя стоимость автомобилей превышает среднюю...


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

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

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