Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 08.03.2012, 00:10   #1 (permalink)
oksa2312
Новичок
 
Регистрация: 08.03.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Free Pascal, помогите сделать задачу

Задана цена товара C, количество проданного товара K в день, номинал заработной платы продавца в день N. Рассчитать заработную плату продавца в день Z. Если K≤10, то заработная плата равна номиналу Z=N. Если 10<K≤50, то к номиналу заработной платы прибавляется двадцать процентов от суммы дневной выручки. Если K>50, то к номиналу заработной платы прибавляется тридцать процентов от суммы дневной выручки.
oksa2312 вне форума   Ответить с цитированием

Старый 08.03.2012, 00:10
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На нашем форуме встречались аналогичные темы, вот их список

Помогите решить три задачи в Free Pascal
Пожалуйста, помогите с программой. Free Pascal
Помогите решить задачу в Free Pascal
Помогите решить задачу в Free Pascal
Помогите решить задачу Free Pascal
Помогите решить задачу с использованием массива в Pascal

Старый 08.03.2012, 11:04   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от oksa2312 Посмотреть сообщение
Задана цена товара C, количество проданного товара K в день, номинал заработной платы продавца в день N. Рассчитать заработную плату продавца в день Z. Если K≤10, то заработная плата равна номиналу Z=N. Если 10<K≤50, то к номиналу заработной платы прибавляется двадцать процентов от суммы дневной выручки. Если K>50, то к номиналу заработной платы прибавляется тридцать процентов от суммы дневной выручки.
Да... непростая ситуация. В том смысле, что обычно мы предлагаем с подобными ясельными задачками справляться самостоятельно: на чем же еще учиться азам программирования, как не на них? Но, учитывая, что "Oksa" в нике скорее всего означает "Оксана", т.е. Вы девушка, и по случаю праздника - ладно, ловите:
Код:
Const
 C=10; {price of goods unit}
 N=100; {nominal seller wages}
Var
 K:Word; {number of units sold per day}
 Z:Real; {real seller wages}
Begin
 Repeat
  Write('Number of units sold (0 to exit) ');
  Readln(K);
  If K<=10 then Z:=1.0*N else
  If K>50 then Z:=1.0*N+0.3*K*C else
  Z:=1.0*N+0.2*K*C;
  Writeln('Wages = ',Z:0:2);
 Until K=0;
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 15.04.2014, 22:26   #3 (permalink)
Nikolas71
Новичок
 
Регистрация: 15.04.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

извиняюсь за свою тупость, но не подскажите ли мне как будет выглядеть алгоритм для данной программы?
Nikolas71 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.