Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2013, 22:47   #1
программирование
Форумчанин
 
Регистрация: 22.04.2013
Сообщений: 162
Вопрос определить оптовую цену (pascal ABC)

розричная цена мужского костюма состовляет N. торговая наценка магазина состовляет T% от оптовой цены. определить оптовую цену костюма.
программирование вне форума Ответить с цитированием
Старый 02.05.2013, 10:18   #2
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 927
По умолчанию

Применимо в любом Pascal
Код:
function Wholesale(ARetail, APercent: Real): Real;
begin
 {ARetail = N, APercent = T}
  Result:= 100*(ARetail / (100 + APercent));
end;
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal abc, pascal turbo. выборка данных из одного .txt в другой ТипичныйСтудент Помощь студентам 6 27.04.2013 15:29
Задача на Pascal ABC. Определить среднюю кинетическую энергию вращательного движения молекул водорода faqbi4vosk Помощь студентам 1 22.04.2012 17:39
Программы в Pascal, среда pascal ABC. Лабораторные работы Одинокая Волчица Фриланс 8 10.02.2012 20:09
Нужно цену "продаж" и "цену" покупок отразить на одной оси Arina@kim Помощь студентам 0 07.02.2012 17:04
Нужно решение задач на языке Turbo Pascal, за разумную цену. Diego90 Фриланс 7 11.12.2010 01:20