Сегодня мы начинаем знакомство с операторами цикла. В Паскале существует 3 типа цикла:
-
For, или цикл с параметром
-
While, или цикл с предусловием
-
Repeat, или цикл с постусловием
For —это цикл, в котором тело выполняется заданное количество раз.
Существует две формы записи этого цикла:
Первая форма
for := to do ; |
После каждой итерации значение будет увеличиваться на 1. — это начальное значение счетчика. Это может быть переменная или число. : как только значение станет больше , выполнение цикла прекратится. Если требуется написать несколько операторов в теле цикла, используем begin и end. И , и , и — переменные целого типа. Чаще всего в качестве счетчика используется переменная i.
Вторая форма
for := downto do ; |
После каждой итерации значение будет уменьшатся на 1. — это начальное значение счетчика. : как только значение станет меньше , выполнение цикла прекратится.
Рассмотрим пример решения задачи.
Задача For2. Даны два целых числа A и B (A |
Так как A — + 1.
program for2; var A, B, i, count: integer; begin read(A, B); for i := A to B do write(i, ' '); {выписываем числа от меньшего к большему} count := B - A + 1; {считаем количество чисел} writeln; write( 'Количество чисел - ', count); end. |
«4»: Составьте программу перевода старинных русских мер длины, торгового и аптекарского веса (цикл от A до B), номер вашей задачи - номер компьютера в кабинете №408 (нумерация компьютеров от двери от 1 до 12):
- сажени в метры (1 сажень равна 2,1366 м)
- дюймы в сантиметры (1 дюйм равен 2,5 см)
- футы в метры (1 фут равен 0,3048 м)
- драхмы в граммы (1 драхма равна 3,7325 г)
- унции в граммы (1 унция равна 29,86 г)
- фунты в килограммы (1 фунт равен 0,40951 кг)
- аршины в метры (1 аршин равен 0,7112 м)
- золотники в граммы (1 золотник равен 4,2657 г)
- дюймы в миллиметры (1 дюйм равен 25,3995 мм)
- метры в ладони (1 метр равен 9,843 ладони)
- пяди в сантиметры (1 пядь равна 22,86 см)
- унции в караты (1 унция равна 141,75 карат)
- гектограммы в стоуны (1 гектограмм равен 0,1575 стоунов)
- линки в пики (1 линк равен 47,7 пик)
введите начальное количество саженей: 10 введите конечное количество саженей: 15 10 саженей = 21,366 м. 11 саженей = 23,5026 м. 12 саженей = 25,6392 м. 13 саженей = 27,7758 м. 14 саженей = 29,9124 м. 15 саженей = 32,049 м. |
Пример:
Введите начальное число: 10 Введите конечное число: 20 12 18 |
Задачу своего уровня (выбираете самостоятельно) решаете при помощи цикла For.
Текст программы (не файл) вставляете в комментарий к данному сообщению.
Внимание! Комментарии могут оставлять только зарегистрированные на сайте пользователи!
Ваши помощники:
Учебник «Информатика, 8 класс», К.Ю. Поляков, Е.А. Еремин, параграф 20
Цикл For.ppt - презентация (автор К.Ю. Поляков)
сайт: http://learnpascal.ru/cikly-v-paskal/for-while-repeat.html
видео:
Уроки Pascal. Урок "Цикл For"
{Младенович Стефан.Компьютер 1}
program NoName;
var
A, B, i:integer;
begin
write ('введите начальное количество саженей: ');
read(A);
write ('введите конечное количество саженей: ');
read(B);
for i:=A to B do writeln(i,' саженей = ',i*2.1366,' м.');
end.
Простите за задержку, надеюсь у меня правильно. Кстати заметил, что образец у Вас немного неправильный. У вас стоит запятая, а она в паскале не считается, а считается точка)
Ещё раз прошу прощения за ожидание.