Форум программистов, компьютерный форум 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    В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 10:54    В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.

Посмотрите здесь:

Turbo Pascal Типизированные файлы.Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп

Pascal поиск товара со стоимостью, большей заданного параметра

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

Pascal В магазине продается костюмная ткань. Ее цена b руб. за кв. метр. Подсчитать стоимость куска этой ткани длиной Х м и шириной У м.

Free Pascal Определить товар с максимальной стоимостью

Pascal ABC Определение сдачи с 50 рублей покупателю, совершившему покупку стоимостью менее 50 рублей

Turbo Pascal Разработать базу данных "Легковые автомобили". Вывести на экран данные обо всех автомобилях стоимостью менее 80 тысяч рублей

Turbo Pascal Цикл с параметром for: Определить количество билетов стоимостью от 200 до 300 долларов

Turbo Pascal Преобразовать из файла запись типа 30,45 в 30 руб. 45 коп

Turbo Pascal Найти маршрут с минимальной стоимостью проезда

Jazon_deenAlt
Модератор
3656 / 871 / 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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