Условие: "Написать программу на языке програмирования Паскаль. Вычислить стоимость покупки с учетом скидки. Скидка 3% предоставляется в том случае, если сумма покупки больше 50 000 руб., в 5% - если сумма больше 100 000 руб.". Большое спасибо
Полная версия: вычисление стоимости покупки
Помогите, пожалуйста!!! Мало понимаю и в компьютерах, не говоря о Паскале.
Условие: "Написать программу на языке програмирования Паскаль. Вычислить стоимость покупки с учетом скидки. Скидка 3% предоставляется в том случае, если сумма покупки больше 50 000 руб., в 5% - если сумма больше 100 000 руб.". Большое спасибо
Условие: "Написать программу на языке програмирования Паскаль. Вычислить стоимость покупки с учетом скидки. Скидка 3% предоставляется в том случае, если сумма покупки больше 50 000 руб., в 5% - если сумма больше 100 000 руб.". Большое спасибо
Жаль конечно, что Вы даже не пытаетесь изучить компьютеры и Паскаль...
Программирование обучает логическому мышлению.
Программирование обучает логическому мышлению.
Код
Var k : Real;
Begin
Write('Введите сумму покупки: '); Readln(k);
If (k>50000) and (k<=100000) then k:=k-(k*3)/100;
If k>100000 then k:=k-(k*5)/100;
Writeln('Итоговая стоимость: ',k:8:2);
End.
Begin
Write('Введите сумму покупки: '); Readln(k);
If (k>50000) and (k<=100000) then k:=k-(k*3)/100;
If k>100000 then k:=k-(k*5)/100;
Writeln('Итоговая стоимость: ',k:8:2);
End.
[offtop]
APAL, вот только если на земле и милые девушки начнут мыслить логически, то жизнь станет неинтересной, и миру крышка ...
Не просто же так говорят "женская логика" , раз есть термин, значит она особенная... вот я заметил, что девушки спокойно решают сложные задачи на не стандартные методы решения... может потому что все мериют в этом мире по мужским меркам? ;) Татьяна, про компьютер и Паскаль могу рассказать поICQ. Мой: 191232371.
[/offtop]
ЗЫ: извините уж меня, флеймиста такого, админа нехорошего
извиняю... понимаю.... GoodWind
Цитата
Программирование обучает логическому мышлению.
APAL, вот только если на земле и милые девушки начнут мыслить логически, то жизнь станет неинтересной, и миру крышка ...
Не просто же так говорят "женская логика" , раз есть термин, значит она особенная... вот я заметил, что девушки спокойно решают сложные задачи на не стандартные методы решения... может потому что все мериют в этом мире по мужским меркам? ;) Татьяна, про компьютер и Паскаль могу рассказать поICQ. Мой: 191232371.
[/offtop]
ЗЫ: извините уж меня, флеймиста такого, админа нехорошего
извиняю... понимаю.... GoodWind
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.