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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.88
Kalamase23
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 25
#1

В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. - Pascal

24.11.2010, 10:54. Просмотров 2299. Ответов 1
Метки нет (Все метки)

В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Исходные данные задать самостоятельно. Количество покупателей равно N. Указания к решению задачи :
Покупателю нужно задать по меньшей мере два вопроса: 1. «Что хотите купить: журнал или газету?» После ввода ответа нужно показать соответствующую стоимость издания и задать следующий вопрос. 2. «Сколько платите?» Количество денег покупателя вводится с клавиатуры (в числовую переменную). Далее надо сравнить это количество со стоимостью покупки и напечатать итоговое сообщение.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 10:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. (Pascal):

Вывод цен в виде руб/коп - Pascal
НЕ ПОЛУЧАЕТСЯ ГРАМОТНЫЙ КОД НАПИСАТЬ,ХОТЬ УБЕЙТЕ!( Дан текстовый файл, представляющий собой таблицу стоимости товаров, состоящий из...

Получить цены всех кубиков, оформленные по образцу … руб. … коп. - Pascal
Дан файл f, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т. д.), ее стоимость...

поиск товара со стоимостью, большей заданного параметра - Pascal
Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип...

Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип string), кол - Pascal
Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип...

Рассчитать стоимость со стоимостью скидки 10% в том случае, если сумма покупки больше 1000 рублей - PascalABC.NET
Написать программу,которая рассчитывает стоимость со стоимостью скидки 10% в том случае,если сумма покупки больше 1000 рублей и 20%,если...

В кассовом аппарате есть восемь 25-копеечных монет, 10 - стоимостью по 50 коп. и 12 - по 5 коп - Теория вероятностей
В кассовом аппарате есть восемь 25-копеечных монет, 10 - стоимостью по 50 коп. и 12 - по 5 коп. Найти вероятность того, что среди пяти...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Jazon_deenAlt
4107 / 983 / 74
Регистрация: 09.04.2009
Сообщений: 4,265
24.11.2010, 11:41 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var
n,i,st,zd,ba:integer;
begin
writeln('n?');
readln(n);
for i:=1 to n do begin
clrscr;
writeln('4to kyplaem?');
writeln('1 - gazeta = 3 kop');
writeln('2 - zyrnal = 20 kop');
readln(st);
 
if st=1 then st:=3
else if st=2 then st:=20
else begin
st:=0;
writeln('korjavij variant');
end;
 
if st>0 then begin
writeln('skoka platim?');
readln(ba);
if ba>st then writeln('zda4i - ',ba-st)
else writeln('nedostato4no sredstv, poshel von nis4ij');
end;
 
readln;
end;
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2010, 11:41
Привет! Вот еще темы с ответами:

Можно ли за A рублей купить B книг, стоимостью C и D журналов, стоимостью E? - C++
1. Некто располагает суммой в А руб. Он хочет купить В книг по С руб. и D журналов по Е руб. Написать программу, проверяющую, возможна ли...

Установка нескольких ОС на один коп - Windows
Здравствуйте. Хочу установить на компьютер несколько ОС Виндовс, Линукс и Мак ОС Лайон для учебы и работы в них. Хочу спросить каким...

Считывание информации с GPIB шины (КОП) - КИП, датчики
Ребят подскажите идеи реализации надо решить вопрос считывания информации с GPIB который идет от Agility на ноут, надо подовать нужное...

Сумма в отчете в формате Х руб. ХХ коп. - MS Access
Подскажите пожайлуста Можно ли сделать:вПоле сумма пишет сумму100,20 а, надо 100 руб.20 коп. как прописать в событиях на поле после...


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

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

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