Цветовая схема:
C C C C
Шрифт
Arial Times New Roman
Размер шрифта
A A A
Кернинг
1 2 3
Изображения:
  • ХМАО - Югра, г. Нижневартовск
  • +7 (904) 483-50-68
  • sammitportal@mail.ru

9 класс, первая цикличная программа на Паскале

9 класс, первая цикличная программа на Паскале

9класс.jpg
Уважаемые программисты 9-х классов!

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

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

[spoiler]Первая форма
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.
Задание для самостоятельного выполнения

Составьте программу перевода старинных русских мер длины, торгового и аптекарского веса (цикл от A до B), номер вашей задачи - номер компьютера в кабинете №216 (нумерация компьютеров по часовой стрелке от 1 до 14):

  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 м.
Задачу своего варианта решите при помощи цикла For.

Дополнительное задание для "продвинутых":
В первый день пловец проплыл 3 км. В каждый следующий день он проплывал на 10% больше, чем в предыдущий.
В какой по счету день пловец начнет проплывать более 5 км? К какому дню он суммарно проплывет более 30 км?

Внимание! В первой строке своей программы в комментариях указываем фамилию, имя и класс на кириллице. Имя файла формируем из своих инициалов и номера программы, например IVP08.pas (восьмая программа Иванова Василия Петровича). Не забываем копировать ваши программы в папку Обмен.
Удачи!

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

Цикл For.ppt - презентация (автор К.Ю. Поляков)
сайт: http://learnpascal.ru/cikly-v-paskal/for-while-repeat.html
видео:
Уроки Pascal. Урок "Цикл For"
Нравится0
12 декабря 2019 08:07:54
Базилеева Мария 9 Б
{Базилеевой Марии 9б}
program perevod;
var
i : integer;
begin

for i:=1 to 9 do
begin
writeln ('22,86*',i,'= ',22,86*i);
end;

end.
Ответить Ссылка Нравится0
Нравится0
Базилеева Мария 9 Б
12 декабря 2019 22:48:35
Домашняя работа
{Базилеевой Марии 9б}
program perevod;
var
i: integer;
begin

for i:=1 to 9 do
begin
writeln ('2286*i',i,'= ',2286*i);
end;

end.
Ответить Ссылка Нравится0