Есть определённая сумма денег: вычислить хватит ли их чтобы купить X блокнотов по Y рублей?

@Kambal · Регистрация: 03.06.2014

Author24 — интернет-сервис помощи студентам

Добрый день. Нужно решить такую задачу с помощью функций и процедур. Суть задачи: У молодого человека есть определённая сумма денег. Ему нужно купить Х блокнотов по Y рублей. Нужно вычислить, хватит ли ему денег. Заранее спасибо!

@Puporev · 16.09.2014, 17:34

Сообщение от Kambal

с помощью функций и процедур

Каких, что в них писать? Вот все решение

Pascal

var s,x,y:integer;
begin
write('Сумма=');
readln(s);
write('Сколько блокнотов х= ');
readln(x);
write('Стоимость 1 блокнота y=');
readln(y);
if x*y<=s then write('Денег хватит')
else write('Денег не хватит');
end;

@Kambal · 16.09.2014, 17:39 **[ТС]**

Спасибо, таким способом уже решил. Учитель требует именно через процедуры и функции (чего я понять не могу, а учитель показать не хочет).

@Puporev · 16.09.2014, 17:50

Pascal

var s,x,y:integer;
procedure Vvod;
begin
write('Сумма=');
readln(s);
write('Сколько блокнотов х= ');
readln(x);
write('Стоимость 1 блокнота y=');
readln(y);
end;
function Hvatit:boolean;
begin
Hvatit:=s>=x*y
end;
 
begin
Vvod;
if Hvatit then write('Денег хватит')
else write('Денег не хватит');
end.

@Kambal · 16.09.2014, 18:40 **[ТС]**

Премного благодарен

@Kambal 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 6
		1
	Есть определённая сумма денег: вычислить хватит ли их чтобы купить X блокнотов по Y рублей? 16.09.2014, 17:21. Показов 1469. Ответов 4 Метки нет (Все метки) Добрый день. Нужно решить такую задачу с помощью функций и процедур. Суть задачи: У молодого человека есть определённая сумма денег. Ему нужно купить Х блокнотов по Y рублей. Нужно вычислить, хватит ли ему денег. Заранее спасибо! 0

@Kambal 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 6
	16.09.2014, 17:39 [ТС]	3
	Спасибо, таким способом уже решил. Учитель требует именно через процедуры и функции (чего я понять не могу, а учитель показать не хочет). 0

@Kambal 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 6
	16.09.2014, 18:40 [ТС]	5
	Премного благодарен 0

Есть определённая сумма денег: вычислить хватит ли их чтобы купить X блокнотов по Y рублей?

Решение