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










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

{LTS}

 

÷икл с параметром

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

 

I Ц параметр цикла

N Ц начальное значение параметра

  Ц конечное значение параметра
 

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

1. ѕараметру присваиваетс€ начальное значение N;
2. ѕроверка: ≈сли значение параметра не больше (не меньше) конечного значени€ K, то переход на п.3 иначе п.6.
3. ¬ыполн€етс€ тело цикла
4. ѕараметр цикла увеличиваетс€ (уменьшаетс€) на 1
5. ѕереход на п.2
6. ¬ыход из цикла

»спользовать цикл for необходимо при заранее известном количестве повторений. Ќельз€ измен€ть параметр в теле цикла. ѕри использовании кратных (вложенных) циклов примен€ть разные переменные в качестве параметров. ќпредел€ть до цикла значени€ всех используемых в нем переменных. Ќе ставить точку с зап€той после do.

ѕ–»ћ≈– 1.

ѕ–»ћ≈– 2. Ќайти произведение первых k натуральных чисел, кратных трЄм.

–ешение:
ѕри составлении алгоритма учтем, что первое натуральное число, кратное 3, есть тройка, а все последующие больше предыдущего на 3.
 
1. ¬вод k
2. P := 1 {здесь накапливаем произведение}
3. T := 0 {здесь будут числа, кратные 3}
4. I := 1
5. ≈сли I > k, переход к шагу 10
6. T := T + 3
7. P := P * T
8. I := I + 1
9. ѕерейти к шагу 5
10. ¬ывод P
11.  онец

ѕ–»ћ≈– 3. ¬вод€тс€ 10 чисел, посчитать среди них количество положительных.

program cycle_for1;
var i,kn:byte; x:real;
begin
kn:=0;
for i:=1 to 10 do
begin
writeln('¬ведите ',i,' число: ');
readln(x);
if x>0 then kn:=kn+1 {увеличиваем количество на 1}
end;
writeln('¬ы ввели ',kn,' положительных чисел.');
readln
end.

ѕ–»ћ≈– 4. Ќапечатать буквы от 'Z' до 'A'.

program cycle_for2;
var c:char;
begin
for c:='Z' downto 'A' do write(c);
readln
end.

ѕ–»ћ≈– 5. ¬ычислить N-е число ‘иббоначчи. „исла ‘иббоначчи стро€тс€ следующим образом: F(0)=F(1)=1; F(i+1)=F(i)+F(i-1); дл€ i>=1. Ёто пример вычислений по рекуррентным формулам.

program Fib;
var a,b,c:word; i,n:byte;
begin
write('введите номер числа ‘иббоначчи ');
readln(N);
a:=1; {a=F(0), a соответствует F(i-2)}
b:=1; {b=F(1), b соответствует F(i-1)}
for i:=2 to N do
begin
c:=a+b; {c соответствует F(i)}
a:=b; b:=c; {в качестве a и b беретс€ следующа€ пара чисел}
end;
writeln(N,'-е число ‘иббоначчи =',b); {дл€ N>=2 b=c}
readln
end.

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

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


 
     
   
 


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

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

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

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

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


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

 


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