08.03.2012, 00:10 | #1 (permalink) |
Новичок
Регистрация: 08.03.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Free Pascal, помогите сделать задачу
|
08.03.2012, 00:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На нашем форуме встречались аналогичные темы, вот их список Помогите решить три задачи в Free Pascal Пожалуйста, помогите с программой. Free Pascal Помогите решить задачу в Free Pascal Помогите решить задачу в Free Pascal Помогите решить задачу Free Pascal Помогите решить задачу с использованием массива в Pascal |
08.03.2012, 11:04 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
15.04.2014, 22:26 | #3 (permalink) |
Новичок
Регистрация: 15.04.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
извиняюсь за свою тупость, но не подскажите ли мне как будет выглядеть алгоритм для данной программы?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|