1.49M

Category:

programming

Основы объективно-ориентированного программирования в среде Lazarus . Lazarus циклы

3. Циклы с параметром в Pascal

Начальное
значение
Конечное
значение
ЗАДАНИЕ 1:
Вывести на экран 10 раз свою фамилию.

4. Циклы с параметром в Pascal

ЗАДАНИЕ 2:
Вывести на экран 10 раз свою фамилию и фамилию
друга.

5. Циклы с параметром в Pascal

ЗАДАНИЕ 3:
Ввести с клавиатуры фамилию и вывести на экран 10
раз слова приветствия.

6. Циклы с параметром в Pascal

ЗАДАНИЕ
4:
Вывести таблицу умножения на 7.

7. Циклы с параметром в Pascal

ЗАДАНИЕ
5:
Вывести таблицу умножения на число, введенное с
клавиатуры.

8. Циклы с параметром в Pascal

ЗАДАНИЕ
6: Вводится трехзначное число.
Вывести сумму его цифр.
Входные данные: 246
Выходные данные: 12

9. Циклы с параметром в Lazarus

ПОВТОРЯЕМ: Tmemo – многострочный текст
Свойство Lines
memo1.lines [0] := ' Это первая строка';
memo1.lines [1] := ' Это вторая строка‘;
memo1.lines.add(' Это первая строка’);
memo1.lines.add(' Это вторая строка’);
Метод Clear - очистить
memo1.Clear;

11. Циклы с параметром в Lazarus

12.

Урок 11

13. Операторы DIV и MOD

DIV – целочисленное деление
534 DIV 10 =
MOD – остаток от деления
534 MOD 10 =

14. Задачи на циклы с параметром

Вывести все двузначные числа, в которых вто рая
цифра больше первой.
Выходные данные: 12 13 14 …

15. Задачи на циклы с параметром

Вывести все трехзначные числа, в которых вторая
цифра больше первой, а третья больше второй.
Выходные данные: 123 124 125 …

16. Задачи на циклы с параметром

Вывести все трехзначные числа, в которых есть две
одинаковые цифры.
Выходные данные: 100 101 110 …
Вывести все трехзначные числа, в которых все три
цифры одинаковые.
Выходные данные: 111 222 333 444 …

17. Задачи на циклы с параметром

Вывести все четырехзначные числа, которые
являются палиндромами.
Выходные данные: 1001 1111 1221 …

18. Задачи на циклы с параметром

Автобусный билет считается счастливым, если в
его шестизначном номере сумма первых трех цифр
равна сумме последних трех цифр. Подсчитайте и
выведите число счастливых билетов с различными
номерами (билеты от 000001 до 999999).

19. Задачи на циклы с параметром

Счастливый билет?

20. Задачи на циклы с параметром

21. Задачи на циклы с параметром

22. Задачи на циклы с параметром

Счастливый билет?
Сумма первых трех цифр больше ?
Номер билета - палиндром?

23.

Урок 12

24.

Условный цикл в Pascal
Пока
Условие истинно

25. Условный цикл в Pascal

Вводится целое число n. Вывести сумму цифр
данного числа.

26. Условный цикл в Pascal

С помощью алгоритма Евклида найти НОД
двух чисел.

27. Условный цикл в Pascal