19, 20 января: Информатика 8Б класс (1,2 группа)

 

19, 20 января: Информатика 8Б класс (1,2 группа)

Уважаемые программисты 8Б класса!

Сегодня мы начинаем знакомство с операторами цикла. В Паскале существует 3 типа цикла:
  • For, или цикл с параметром
  • While, или цикл с предусловием
  • Repeat, или цикл с постусловием
Начнём с For.
For —это  цикл, в котором тело выполняется заданное количество раз.

Существует две формы записи этого цикла:

Первая форма
for <счетчик1> := <значение1> to <конечное_значение> do <оператор1>;

После каждой итерации значение <счетчик1> будет увеличиваться на 1. <значение1> — это начальное значение счетчика. Это может быть переменная или число. <конечное_значение>: как только значение <счетчик1> станет больше <конечное_значение>, выполнение цикла прекратится. Если требуется написать несколько операторов в теле цикла, используем begin и end. И <счетчик1>, и <конечное_значение>, и <значение1> —  переменные целого типа. Чаще всего в качестве счетчика используется переменная i.

Вторая форма
for <счетчик2> := <значение2> downto <конечное_значение> do <оператор1>;

После каждой итерации значение <счетчик2> будет уменьшатся на 1. <значение2> — это начальное значение счетчика. <конечное_значение>: как только значение <счетчик2> станет меньше <конечное_значение>, выполнение цикла прекратится.

Рассмотрим пример решения задачи.

Задача For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Так как A < B, то цикл должен будет выводить все числа от А до B. Чтобы сосчитать количество чисел, используем формулу: <конечное_значение> — <начальное_значение> + 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. сажени в метры (1 сажень равна 2,1366 м)
  2. дюймы в сантиметры (1 дюйм равен 2,5 см)
  3. футы в метры (1 фут равен 0,3048 м)
  4. драхмы в граммы (1 драхма равна 3,7325 г)
  5. унции в граммы (1 унция равна 29,86 г)
  6. фунты в килограммы (1 фунт равен 0,40951 кг)
  7. аршины в метры (1 аршин равен 0,7112 м)
  8. золотники в граммы (1 золотник равен 4,2657 г)
  9. дюймы в миллиметры (1 дюйм равен 25,3995 мм)
  10. метры в ладони (1 метр равен 9,843 ладони)
  11. пяди в сантиметры (1 пядь равна 22,86 см)
  12. унции в караты (1 унция равна 141,75 карат)
  13. гектограммы в стоуны (1 гектограмм равен 0,1575 стоунов)
  14. линки в пики (1 линк равен 47,7 пик)
Пример (для №1):
введите начальное количество саженей: 10
введите конечное количество саженей: 15
10 саженей = 21,366 м.
11 саженей = 23,5026 м.
12 саженей = 25,6392 м.
13 саженей = 27,7758 м.
14 саженей = 29,9124 м.
15 саженей = 32,049 м.
«5»: Напишите программу вывода всех четных чисел кратных 3 от А до В включительно..  
Пример:
Введите начальное число: 10
Введите конечное число: 20
12 18

Задачу своего уровня (выбираете самостоятельно) решаете при помощи цикла For.
Текст программы (не файл) вставляете в комментарий к данному сообщению.
Внимание! Комментарии могут оставлять только зарегистрированные на сайте пользователи!

Ваши помощники:

Учебник
«Информатика, 8 класс», К.Ю. Поляков, Е.А. Еремин, параграф 20
Цикл For.ppt - презентация (автор К.Ю. Поляков)
сайт: http://learnpascal.ru/cikly-v-paskal/for-while-repeat.html
видео:
Уроки Pascal. Урок "Цикл For"
Файлы:
Цикл For.ppt (250.5 КБ)

Стефан
Доработка
{Младенович Стефан.Компьютер 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.





Простите за задержку, надеюсь у меня правильно. Кстати заметил, что образец у Вас немного неправильный. У вас стоит запятая, а она в паскале не считается, а считается точка)
Ещё раз прошу прощения за ожидание.
0 Ещё
Сергей Мохов
Спасибо всем! Время истекло! Работы больше не принимаются! Комментарии публикуются!
0 Ещё
Сергей Мохов
Спасибо за внимательность, но образец у нас правильный. В образце указана не программа, где нужно ставить точку, а результат на экране в котором правильней математически ставить запятую.
0 Ещё
....