«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

÷икл до (с постусловием)

÷икл предназначен дл€ организации многократного исполнени€ набора инструкций (операторов, наименьша€ автономна€ часть €зыка программировани€).

≈сли заранее неизвестно число повторений цикла, то можно использовать цикл с постусловием.

¬ большинстве процедурных €зыков программировани€ цикл с постусловием реализуетс€ оператором while, отсюда его второе названиеЦ while-цикл

 

¬ыполн€етс€ следующим образом

—начала выполн€етс€ тело цикла, затем провер€етс€ условие. ≈сли оно ложно, то выполн€етс€ тело цикла. ≈сли условие истинно, то цикл считаетс€ выполненным.

¬ этом цикле логическое выражение - это условие выхода из цикла

ѕри описании циклов с постусловием необходимо принимать во внимание следующее:

- перед первым выполнением цикла условие его окончани€ (или продолжени€) должно быть определено;
- тело цикла должно содержать хот€ бы один оператор, вли€ющий на условие окончани€ (продолжени€), иначе цикл будет бесконечным;
- условие окончани€ цикла должно быть в результате выполнено.
 
“ело цикла с постусловием выполн€етс€ пока условие ложно
ѕ–»ћ≈– 1.
ѕ–»ћ≈– 2. ѕары неотрицательных вещественных чисел ввод€тс€ с клавиатуры. ѕосчитать произведение дл€ каждой пары и сумму всех чисел.
 
–ешение:
 
program cycle_repeat;
var x,y,sum:real;
otv:char;
begin
sum:=0;
repeat
write('¬ведите числа x,y > 0 ');
readln(x,y);
writeln('»х произведение = ',x*y:8:3);
sum:=sum+x+y;
write('«авершить программу (ƒ/Ќ)? ');
readln(otv);
until (otv='ƒ') or (otv='д');
writeln('ќбща€ сумма = ',sum:8:3);
readln
end.
 
ѕ–»ћ≈– 3. ѕодсчитать количество нечетных цифр в записи натурального числа n.
»де€ решени€. »з заданного числа выбирать из младшего разр€да цифру за цифрой до тех пор, пока оно не исчерпаетс€, т.е. станет равным нулю.  аждую нечЄтную цифру учитывать.
 
–ешение:
 
1. ¬вести число n
2. K := 0 {подготавливаем счЄтчик}
3. ≈сли n mod 10 mod 2 = 1, то K := K +1
4. n := n div 10
5. ≈сли n = 0, переход к шагу 7
6. ѕереход к шагу 3
7. ¬ывод K
8.  онец

ѕ–»ћ≈– 4. —оставить программу планировани€ закупки товара в магазине на сумму, не превышающую заданную величину.

–ешение

ќбозначим через x, k Ц соответствующую цену и количество товара, через p Ц заданную предельную сумму, через s Ц общую стоимость покупки. Ќачальное значение общей стоимости покупки (S) равно нулю. «начение предельной суммы считываетс€ с клавиатуры. Ќеобходимо повтор€ть запрос цены и количества выбранного товара, вычисл€ть его стоимость, суммировать ее с общей стоимостью и выводить результат на экран до тех пор, пока она не превысит предельную сумму р. ¬ этом случае на экран нужно вывести сообщение о превышении.

Program E_10;
Var x, k, p, s : Integer;
Begin
WriteLn('¬ведите цену товара и его количество');
ReadLn(x,k);
s:=s+x*k;
WriteLn('—тоимость покупки равна ',s);
Until s>p;
WriteLn('—уммарна€ стоимость покупки превысила предельную сумму');
End.

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

ѕсевдокоды √рафический способ представлени€ алгоритмов Ћинейные алгоритмы –азветвл€ющиес€ алгоритмы ÷икл Ц пока (с предусловием) ÷икл с параметром —имволы в Pascal —лова в Pascal ‘ормальные методы описани€ синтаксических конструкций €зыка программировани€ »дентификаторы 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом