Форум программистов, компьютерный форум CyberForum.ru
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
Модератор
3655 / 870 / 14
Регистрация: 09.04.2009
Сообщений: 3,863
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Turbo Pascal Нужно выяснить вид дома с максимальной стоимостью за номером банковского вклада
Нужно выяснить вид дома с максимальной стоимостью за номером банковского вклада
Turbo Pascal 0 Нинель 04.02.2014 18:19
Turbo Pascal Найти маршрут с минимальной стоимостью проезда
Имеется N населённых пунктов, пронумерованных от 1 до N. Некоторые пары населенных пунктов соединены дорогами. Известны стоимости проездов по этим дорогам. Определить, можно ли попасть по этим...
Turbo Pascal 1 ritmix93 18.06.2013 18:03
Turbo Pascal Преобразовать из файла запись типа 30,45 в 30 руб. 45 коп
Подскажите, пожалуйста, в чем ошибка в следующей программе. Она должна выводить на экран частично преобразованные записи из введенного файла, но преобразовать не получается (ошибка на операторе DIV)....
Turbo Pascal 2 Надобр 28.04.2013 20:39
Turbo Pascal Цикл с параметром for: Определить количество билетов стоимостью от 200 до 300 долларов
Фирма «Путешествие» предлагает клиентам билеты для путешествия в разные уголки мира. Определить количество билетов, стоимостью от 200 до 300 долларов.
Turbo Pascal 3 nika222 24.04.2013 18:46
Turbo Pascal Подбор игрушки стоимостью менее 5 рублей
Пусть дан массив, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), ее стои-мость в копейках и возрастные границы детей, для которых...
Turbo Pascal 0 fea 07.07.2012 16:58
Free Pascal Определить товар с максимальной стоимостью
Известны данные о стоимости каждого из 10 видов товаров. Определить товар с максимальной стоимостью. Вывести список, в котором наименования товаров расположены в порядке возрастания их стоимости.
Free Pascal 1 Анна З. 20.05.2012 22:01
Pascal поиск товара со стоимостью, большей заданного параметра
Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип string), количество (тип integer) и цена единицы (тип real).
Pascal (Паскаль) 5 Pailon 27.02.2011 08:09
Turbo Pascal Типизированные файлы.Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп
Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп мучаюсь уже 2дня... найдите ошибки пожалуйста.. Помогите вот программа на создание файла type igra=record...
Turbo Pascal 3 kyru6ka 29.05.2010 23:41
Опции темы

Текущее время: 15:25. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.