Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 24.11.2010, 10:54   #1
Kalamase23
Новичок
 
Аватар для Kalamase23
 
Регистрация: 18.11.2010
Сообщений: 25
Репутация: 0 (0)
В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. / Pascal (Паскаль)

В киоске продается газета стоимостью 3 коп. и журнал стоимостью 20 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. Исходные данные задать самостоятельно. Количество покупателей равно N. Указания к решению задачи :
Покупателю нужно задать по меньшей мере два вопроса: 1. «Что хотите купить: журнал или газету?» После ввода ответа нужно показать соответствующую стоимость издания и задать следующий вопрос. 2. «Сколько платите?» Количество денег покупателя вводится с клавиатуры (в числовую переменную). Далее надо сравнить это количество со стоимостью покупки и напечатать итоговое сообщение.
Старый 24.11.2010, 11:41   #2
Jazon_deenAlt
Модератор
 
Аватар для Jazon_deenAlt
 
Регистрация: 09.04.2009
Сообщений: 3,747
Репутация: 3552 (845)
Лучшие ответы: 13
Код 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.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal Пусть дано натуральное число N
Пусть дано натуральное число N и последовательность из N вещественных чисел, среди которых есть хотя бы одно отрицательное. Найти наибольшее среди отрицательных чисел этой последовательности.
Pascal 3 программы на паскаль
1) написать прогу которая в веденной с клавиатуры строки преобразует строчные буквы русского алфавита в прописные (учтите что функция upcase с символами русского алфавита не работает.) (данные введенные пользователем, выделяет полужирным шрифтом) 2)Создать текстовый файл и записать в него 5...
Старый 24.11.2010, 11:41
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
КИП, датчики Считывание информации с GPIB шины (КОП)
Ребят подскажите идеи реализации надо решить вопрос считывания информации с GPIB который идет от Agility на ноут, надо подовать нужное напряжение через калибратор на вольтметр, потом с него по шине получать результат на комп, считывать и записывать в файл.
Chempion
Free Pascal Определить товар с максимальной стоимостью
Известны данные о стоимости каждого из 10 видов товаров. Определить товар с максимальной стоимостью. Вывести список, в котором наименования товаров расположены в порядке возрастания их стоимости.
Анна З.
Windows Установка нескольких ОС на один коп
Здравствуйте. Хочу установить на компьютер несколько ОС Виндовс, Линукс и Мак ОС Лайон для учебы и работы в них. Хочу спросить каким образом это сделать как можно лучше,что бы не было конфликтов и тормозов. Слышал можно сделать как-то чрез бутер. Или поставить их на виртуалки? (но у мен только 4...
Santer.Net
Заказать программу Работа со строками. Перевести коп в грн и коп, например 317=3 грн 17 коп. Вознеграждение за решение!
Дано натуральное число, равное выраженной в копейках , цене некоторого товара, например 317, 100 и т.д . Выразить цену в грн. и копейках , например, 3 грн 17 коп. Число копеек двумя цифрами записывается . Задаче вроде простая, но как правильно написать не знаю . За решение денежное...
M@ker
MS Access Сумма в отчете в формате Х руб. ХХ коп.
Подскажите пожайлуста Можно ли сделать:вПоле сумма пишет сумму100,20 а, надо 100 руб.20 коп. как прописать в событиях на поле после обновления чтоб писало 100 руб.20 коп. ?
Nov7777
Опции темы

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

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