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

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

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

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

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

@ermolay · 11.06.2013, 09:41

Pascal

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

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

	11.06.2013, 09:41

Опции темы

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

Решение