Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Kalamase23
Новичок
1 / 1 / 0
Регистрация: 18.11.2010
Сообщений: 25
24.11.2010, 11:54     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.   #1
В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Исходные данные задать самостоятельно. Количество покупателей равно N. Указания к решению задачи :
Покупателю нужно задать по меньшей мере два вопроса: 1. «Что хотите купить: журнал или газету?» После ввода ответа нужно показать соответствующую стоимость издания и задать следующий вопрос. 2. «Сколько платите?» Количество денег покупателя вводится с клавиатуры (в числовую переменную). Далее надо сравнить это количество со стоимостью покупки и напечатать итоговое сообщение.
AdAgent
Объявления
24.11.2010, 11:54     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 11:54     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
Посмотрите здесь:

Turbo Pascal Типизированные файлы.Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп
Pascal поиск товара со стоимостью, большей заданного параметра
Free Pascal Определить товар с максимальной стоимостью
Pascal ABC Определение сдачи с 50 рублей покупателю, совершившему покупку стоимостью менее 50 рублей
Turbo Pascal Цикл с параметром for: Определить количество билетов стоимостью от 200 до 300 долларов
Turbo Pascal Преобразовать из файла запись типа 30,45 в 30 руб. 45 коп
Turbo Pascal Найти маршрут с минимальной стоимостью проезда
Turbo Pascal Нужно выяснить вид дома с максимальной стоимостью за номером банковского вклада
Jazon_deenAlt
Модератор
3656 / 871 / 14
Регистрация: 09.04.2009
Сообщений: 3,863
24.11.2010, 12: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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

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