Помогите перевести блок-схему в алгоритмический язык

[Rogue2106]

Помогите перевести блок-схему в алгоритмический язык

Вот сама задача (если она вам нужна):
Написать программу вычисления стоимости покупки с учетом скидки. Скидка 3% предоставляется, если сумма покупки больше 500 рублей; 5% – если сумма больше 1000 рублей; 7% – 5000 рублей.


Заранее спасибо.

 

[Vladimir_S]

в алгоритмический язык

В какой?!! Или любой годится? Их ведь, языков то есть, знаете ли, много...

 

[Rogue2106]

В виде такого:
алг вычисление оптимального веса (арг вещ h, m, рез вещ i)
нач
| ввод h, m
| X=h-100
| если X> m
| | то i=” Вам следует больше кушать”
| | вывод i
| все
| иначе если X <m
| | то i=” Вам следует сесть на диету”
| вывод i
| все
| | иначе i=” У вас оптимальный вес”
| вывод i
| все

 

[Vladimir_S]

В виде такого:

Ах, этот... Как-то никогда с ним дела не имел, даже не вспомнил о нём. Вроде есть тут у нас знатоки, ждите. Впрочем, задачка настолько примитивная, что, используя образцы и потратив максимум полчаса, вполне можете и сами справиться.

 

[Tiger-Cub]

И за внедрение написанной программы надо попросить постоянную скидку 10% на товар в месте внедрения)

 

[Rogue2106]

У меня почти получилось, но я не знаю как записать начало и конец цикла.

 

[Viewer]

Ну и где то, что у Вас получилось?

 

[Rogue2106]

алг вычисление стоимости покупки с учетом скидки (арг вещ s рез вещ N)
нач
| ввод s
| s>500
| | то i=3%
| | N=s-(s/100*i)
| вывод N
| все
| | иначе если s>1000
| | | то i=5%
| | | N=s-(s/100*i)
| | вывод N
| | все
| | | иначе если s>5000
| | | | то i=7%
| | | | N=s-(s/100*i)
| | | вывод N
| | | все
| | | | | иначе если s<=500
| | | | | то i=3%
| | | | | N=s-(s/100*i)
| | | | вывод N
| | | | все
кон

 

[Viewer]

Как-то так, без оптимизации:
нач
| ввод s
| s<=500
| | то i=0%
| все
| s>500 и s<=1000
| | то i=3%
| все
| s>1000 и s<=7000
| | то i=5%
| все
| s>7000
| | то i=7%
| все
| N=s-(s/100*i)
| вывод N
кон

 

[Rogue2106]

Не могли бы вы изобразить свой алгоритм на бумаге?

 

[Viewer]

???
Чем экран не бумага?
Или письмом почтой Россия Вам выслать?

 

[Rogue2106]

В виде блок-схем.

 

[Viewer]

var s,i: integer;

begin
     s := 10000;
     i := 0;
     if (s > 500) and (s <= 1000) then i := 3
     else
         if (s > 1000) and (s <= 5000) then i := 5
         else i := 7;

     println(s*(1-i/100));

end.