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

Ответ Создать новую тему
 
Kalamase23
Новичок
0 / 0 / 0
Регистрация: 18.11.2010
Сообщений: 25
24.11.2010, 10:54     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
  #1
В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Исходные данные задать самостоятельно. Количество покупателей равно N. Указания к решению задачи :
Покупателю нужно задать по меньшей мере два вопроса: 1. «Что хотите купить: журнал или газету?» После ввода ответа нужно показать соответствующую стоимость издания и задать следующий вопрос. 2. «Сколько платите?» Количество денег покупателя вводится с клавиатуры (в числовую переменную). Далее надо сравнить это количество со стоимостью покупки и напечатать итоговое сообщение.
AdAgent
Объявления
24.11.2010, 10:54
Jazon_deenAlt
Модератор
3643 / 858 / 14
Регистрация: 09.04.2009
Сообщений: 3,847
24.11.2010, 11:41     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
  #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.
Yandex
Объявления
24.11.2010, 11:41
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C++ Можно ли за A рублей купить B книг, стоимостью C и D журналов, стоимостью E?
1. Некто располагает суммой в А руб. Он хочет купить В книг по С руб. и D журналов по Е руб. Написать программу, проверяющую, возможна ли такая покупка.
С++ для начинающих katrin452605 19.05.2014 15:46
В кассовом аппарате есть восемь 25-копеечных монет, 10 - стоимостью по 50 коп. и 12 - по 5 коп
В кассовом аппарате есть восемь 25-копеечных монет, 10 - стоимостью по 50 коп. и 12 - по 5 коп. Найти вероятность того, что среди пяти наугад взятых монет не окажется ни одной стоимостью 50 коп.
Статистика, теория вероятностей mm00 31.03.2014 15:47
Turbo Pascal Найти маршрут с минимальной стоимостью проезда
Имеется N населённых пунктов, пронумерованных от 1 до N. Некоторые пары населенных пунктов соединены дорогами. Известны стоимости проездов по этим дорогам. Определить, можно ли попасть по этим...
Turbo Pascal ritmix93 18.06.2013 18:03
Turbo Pascal Преобразовать из файла запись типа 30,45 в 30 руб. 45 коп
Подскажите, пожалуйста, в чем ошибка в следующей программе. Она должна выводить на экран частично преобразованные записи из введенного файла, но преобразовать не получается (ошибка на операторе DIV)....
Turbo Pascal Надобр 28.04.2013 20:39
Turbo Pascal Подбор игрушки стоимостью менее 5 рублей
Пусть дан массив, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), ее стои-мость в копейках и возрастные границы детей, для которых...
Turbo Pascal fea 07.07.2012 16:58
Free Pascal Определить товар с максимальной стоимостью
Известны данные о стоимости каждого из 10 видов товаров. Определить товар с максимальной стоимостью. Вывести список, в котором наименования товаров расположены в порядке возрастания их стоимости.
Free Pascal Анна З. 20.05.2012 22:01
Работа со строками. Перевести коп в грн и коп, например 317=3 грн 17 коп. Вознеграждение за решение!
Дано натуральное число, равное выраженной в копейках , цене некоторого товара, например 317, 100 и т.д . Выразить цену в грн. и копейках , например, 3 грн 17 коп. Число копеек двумя цифрами...
Заказать программу M@ker 18.12.2010 17:45
Turbo Pascal Типизированные файлы.Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп
Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп мучаюсь уже 2дня... найдите ошибки пожалуйста.. Помогите вот программа на создание файла type igra=record...
Turbo Pascal kyru6ka 29.05.2010 23:41
Опции темы

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

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