Паскаль оператор розгалудження. один диск стоит 10 грн. а блок за 10 дисков 90 грн.как оптимально сделать покупку на суму с> 100 грн. введите с, выведите калличество блоков и отдельных дисков.

Program znanija; const   price_one_disk = 10;   price_ten_disk = 90;   empty = 0;   input_money = 'введите количество денег: ';   output_price = 'купленно: ';   output_one_disk = ' - по одному диску';   output_ten_disk = ' - по десять дисков';   output_maney = 'осталось денег: ';   char_tabs = chr(9); var   summoney : integer;   countonedisk : integer : = 0;   counttendisk : integer : = 0; begin   write(input_money);   read(summoney);     while((summoney - price_ten_disk) > = empty) do   begin       inc(counttendisk);       summoney : = summoney - price_ten_disk;   end;     while((summoney - price_one_disk) > = empty) do   begin       inc(countonedisk);       summoney : = summoney - price_one_disk;   end;     writeln(output_price);   writeln(char_tabs, counttendisk, output_ten_disk);   writeln(char_tabs, countonedisk, output_one_disk);   writeln(output_maney, summoney); end.

ответ:

использовать чертежник

алг

нач

стрелочки

кон

алг стрелочки

нач  

цел а,й

вещ б

нц для й от 1 до 4

б: =1.3

нц для а от 7 до 3 шаг -1

опустить перо

выбор

при а=7 : выбрать чернила (красный)

при а=6 : выбрать чернила (синий)

при а=5 : выбрать чернила (желтый)

при а=4 : выбрать чернила (фиолетовый)

при а=3 : выбрать чернила (оранжевый)

все

сместиться на вектор (0,а)

сместиться на вектор (-б,0)

сместиться на вектор (б,sqrt(3)*б)

сместиться на вектор (б,-sqrt(3)*б)

сместиться на вектор (-б,0)

поднять перо

сместиться на вектор (4,-а)

б: =б-0.2

кц

сместиться на вектор (-20,-11)

кц

кон

некоторые языки программирования это допускают, но правила разработки алгоритмов строго запрещают такие манипуляции, потому что нарушаются каноны современного программирования. в связи с этим большинство языков прямо запрещают модификацию параметра цикла в теле цикла.

если нужно конкретно - в pascal и fortran оператор цикла с пратметром строгий, запрещающий менять значение параметра в теле цикла. обнаруживается при компиляции, запустить на выполнение нельзя. в языках cемейства с оператор for нестрогий, цикл с параметром там моделируется и компилятор не отслеживает модификацию параметра цикла в теле цикла. в бейсиках также можно модифицировать параметр цикла в теле цикла.