Якщо початкове значення більше від кінцевого, то це не є помилкою, просто цикл жодного разу не виконається.

Тіло циклу складається з 1 оператора, якщо він 1, або є складеним оператором в операторних дужках.

Наприклад

Програма знаходження суми чисел 1..10.

Var

i, S:integer;

S:=0;

For i:=1 to 10 do S:=S+i;

Writeln(S);

End.

Програмадрукуваннясимволів ‘a’..’z’.

Var c:char;

Begin

For c:=’a’ to ‘z’ do write(c:3);

End.

Програмапобудовитаблиціістинностідляand.

Var a,b: Boolean;

Begin

For a:=false to true do

Begin

For b:=false to true do

Write (a and b :6);

Writeln

End;

End.

Цей оператор циклу ще називають оператором циклу з параметром for to, він передбачає повторення із збільшенням параметру. Оскільки в Turbo Pascal не можна керувати кроком зміни параметра, то для реалізації повторення із зменшенням параметра використовують інший варіант циклу for downto.

FOR<параметр> : = <початкове значення> DOWNTO <кінцеве значення> DO <тіло циклу>;

Після виконання кожного етапу циклу параметр зменшується на 1 одиницю типу.

Зауваження. У випадку необхідності вийти з тіла циклу достроково, тобто до досягнення параметру кінцевого значення не бажано користуватися оператором безумовного переходу, а також аналітичним йому підпрограм типу exit, halt(1).

Для виконання виходу краще змінити значення параметру в тілі циклу.

б) Операторциклузпередумовою. Якщо кількість повторень деякої послідовності команд алгоритму не є визначеною наперед, або повторення повинні припинитися у різних випадках, то оператор циклу з параметром не завжди дозволяє виконати це. Також можливі ситуації, коли алгоритм взагалі не оперує якимось параметром, а повторення продовжується до певної логічної умови. В таких випадках використовується інший варіант циклу. Фактично їх два. Один із них називається циклом з передумовою.

WHILE <логічний вираз> DO <тіло циклу> ;

Поки значення логічного виразу в заголовку є істинним, виконується тіло циклу, коли значення виразу хибне, цикл припиняється. Якщо логічний вираз є хибним відразу, то цикл не виконується жодного разу.

Очевидно, що тіло циклу повинно містити якісь дії, що приводять до зміни логічного виразу від true до false.

Наприклад

Дано мішок картоплі, яка вся різної маси. Найменша картоплина важить 50 г. Крок маси 5 г . Скільки картоплин вміститься в 10 кг відрі, якщо їх класти в порядку зростання маси.

Var m, dm, S: real;

i: integer;

Begin

m:=0.05;

dm:=0.005;

S:=0; i:=0;

While S<=10 do

Begin

S:=S+m; i:=i+1;

m:=m+dm

end;

writeln(кількість картоплин‘’,i-1)

End.

в) Операторциклузпісляумовою. Цикл з передумовою передбачає спочатку перевірку, а потім виконується. Деколи потрібно навпаки, спочатку виконати дію, а потім перевірити результат. Якщо результат незадовільняє, то повторити відповідні дії.

REPEAT <тіло циклу> UNTIL <логічний вираз> ;

<== попередня сторінка	\|	наступна сторінка ==>
При введені даних з клавіатури кількість, порядок та їх тип повинні відповідати кількості, порядку та типу змінних.	\|	Тіло циклу виконується до тих пір, поки значення логічної умови є хибною, як тільки істинне цикл припиняється.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.004 сек.