|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.10.2016, 13:46 | #1 |
Новичок
Джуниор
Регистрация: 09.10.2016
Сообщений: 1
|
Составить программу определения стоимости покупки
В продаже имеются ПК трех марок (цена задана в рублях). Покупатель может купить
ПК разных марок в любом количестве. Оптовым покупателям (>10) – скидка 10 %. Составьте программу определения стоимости покупки компьютеров в рублях по курсу и в долларах. __________ Помогите,пожалуйста |
16.10.2016, 13:35 | #2 |
Пользователь
Регистрация: 16.10.2016
Сообщений: 19
|
const
dol=63; var pk_r: array [1..3] of real; pk_z: array [1..3] of real; pk_kol: array [1..3] of integer; i,k:integer; begin k:=0; for i:=1 to 3 do begin write('Введите цену ',i,'-го ПК(в рублях): '); readln(pk_r[i]); pk_z[i]:=pk_r[i]/dol; end; for i:=1 to 3 do begin write('Сколько ',i,'-го ПК Вы хотите купить: '); readln(pk_kol[i]); end; if (pk_kol[1]+pk_kol[2]+pk_kol[3])>10 then begin writeln('В рублях: ',((pk_r[1]*pk_kol[1])+(pk_r[2]*pk_kol[2])+(pk_r[3]*pk_kol[3]))*0.9); writeln('В долларах: ',((pk_z[1]*pk_kol[1])+(pk_z[2]*pk_kol[2])+(pk_z[3]*pk_kol[3]))*0.9); end else begin writeln('В рублях: ',(pk_r[1]*pk_kol[1])+(pk_r[2]*pk_kol[2])+(pk_r[3]*pk_kol[3])); writeln('В долларах: ',(pk_z[1]*pk_kol[1])+(pk_z[2]*pk_kol[2])+(pk_z[3]*pk_kol[3])); end; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разработать иерархию классов для определения стоимости различных коктейлей | cocico | Общие вопросы по Java, Java SE, Kotlin | 0 | 04.10.2016 22:56 |
Составить алгоритм и программу определения заработной платы работника за K месяцев согласно заданной формулы : Z= T/8*G | NedoProgrammer | Паскаль, Turbo Pascal, PascalABC.NET | 16 | 11.06.2016 17:45 |
Составить алгоритм определения.По разработанному алгоритму написать Паскаль программу. | Feell | Помощь студентам | 2 | 13.12.2015 18:28 |
Составить программу расчета стоимости проезда в электропоезде в зависимости от зоны станции назначения | mara51 | Помощь студентам | 0 | 04.06.2015 21:41 |
Написать программу вычисления стоимости покупки с учетом скидки на языке Delphi | _Алексей_ | Помощь студентам | 4 | 31.05.2012 16:24 |