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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2016, 13:46   #1
TanyaLoga
Новичок
Джуниор
 
Регистрация: 09.10.2016
Сообщений: 1
По умолчанию Составить программу определения стоимости покупки

В продаже имеются ПК трех марок (цена задана в рублях). Покупатель может купить
ПК разных марок в любом количестве. Оптовым покупателям (>10) – скидка 10 %.
Составьте программу определения стоимости покупки компьютеров в рублях по курсу и в долларах.
__________
Помогите,пожалуйста
TanyaLoga вне форума Ответить с цитированием
Старый 16.10.2016, 13:35   #2
TemPie
Пользователь
 
Регистрация: 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.
TemPie вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработать иерархию классов для определения стоимости различных коктейлей 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