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

Pascal (Паскаль)

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

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

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

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

Turbo Pascal Типизированные файлы.Найти цену самого дорогого конструктора , оформленную по образцу ... руб ... коп
Вывод цен в виде руб/коп Pascal
Pascal поиск товара со стоимостью, большей заданного параметра
Pascal Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип string), кол
Определить товар с максимальной стоимостью Free Pascal
Определение сдачи с 50 рублей покупателю, совершившему покупку стоимостью менее 50 рублей Pascal ABC
Turbo Pascal Цикл с параметром for: Определить количество билетов стоимостью от 200 до 300 долларов
Turbo Pascal Преобразовать из файла запись типа 30,45 в 30 руб. 45 коп
Turbo Pascal Найти маршрут с минимальной стоимостью проезда
Сколько бутылок воды выпьет Вася с друзьями, если бутылка воды стоит 20 коп Pascal ABC
Turbo Pascal Нужно выяснить вид дома с максимальной стоимостью за номером банковского вклада
Перевода целого числа в денежный формат, но так, чтобы например число 1250 выводилось как 12 руб 50 коп Pascal ABC

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Jazon_deenAlt
4106 / 982 / 74
Регистрация: 09.04.2009
Сообщений: 4,265
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     В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп.
Ответ Создать тему
Опции темы

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