Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количес

@andser · Регистрация: 18.04.2013

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

Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количество тетрадей, цена карандаша и количество карандашей.

@ermolay · 11.06.2013, 09:44

Pascal

function shop(tp,tc,pp,pc: integer): integer;
begin
  shop:=tp*tc+pp*pc;
end;
 
var
  TPrice,TCount,PenPrice,PenCount: integer;
begin
  write('Ââåäèòå öåíó è êîëè÷åñòâî òåòðàäåé: ');
  readln(TPrice,TCount);
  write('Ââåäèòå öåíó è êîëè÷åñòâî êàðàíäàøåé: ');
  readln(PenPrice,PenCount);
  writeln('Ñòîèìîñòü ïîêóïêè: ',shop(TPrice,TCount,PenPrice,PenCount),' ðóá.');
end.

@andser 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 21
		1
	Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количес 11.06.2013, 07:13. Показов 1439. Ответов 1 Метки нет (Все метки) Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количество тетрадей, цена карандаша и количество карандашей. 0

	11.06.2013, 09:44

Опции темы

Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количес

Решение