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

Сентябрь 5, 2022

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

Содержание

2. Урок 10
3. Циклы с параметром в Pascal ЗАДАНИЕ 1: Вывести на экран 10 раз свою фамилию. Начальное значение
4. Циклы с параметром в Pascal ЗАДАНИЕ 2: Вывести на экран 10 раз свою фамилию и фамилию
5. Циклы с параметром в Pascal ЗАДАНИЕ 3: Ввести с клавиатуры фамилию и вывести на экран 10
6. Циклы с параметром в Pascal ЗАДАНИЕ 4: Вывести таблицу умножения на 7.
7. Циклы с параметром в Pascal ЗАДАНИЕ 5: Вывести таблицу умножения на число, введенное с клавиатуры.
8. Циклы с параметром в Pascal ЗАДАНИЕ 6: Вводится трехзначное число. Вывести сумму его цифр. Входные данные:
9. Циклы с параметром в Lazarus
10. ПОВТОРЯЕМ: Tmemo – многострочный текст Свойство Lines memo1.lines [0] := ' Это первая строка'; memo1.lines [1]
11. Циклы с параметром в Lazarus
12. Урок 11
13. Операторы DIV и MOD DIV – целочисленное деление MOD – остаток от деления 534 DIV 10
14. Задачи на циклы с параметром Вывести все двузначные числа, в которых вто рая цифра больше первой.
15. Задачи на циклы с параметром Вывести все трехзначные числа, в которых вторая цифра больше первой, а
16. Задачи на циклы с параметром Вывести все трехзначные числа, в которых есть две одинаковые цифры. Выходные
17. Задачи на циклы с параметром Вывести все четырехзначные числа, которые являются палиндромами. Выходные данные: 1001 1111
18. Задачи на циклы с параметром Автобусный билет считается счастливым, если в его шестизначном номере сумма первых
19. Задачи на циклы с параметром Счастливый билет?
20. Задачи на циклы с параметром
21. Задачи на циклы с параметром
22. Задачи на циклы с параметром Счастливый билет? Сумма первых трех цифр больше ? Номер билета -
23. Урок 12
24. Условный цикл в Pascal Пока Условие истинно
25. Условный цикл в Pascal Вводится целое число n. Вывести сумму цифр данного числа.
26. Условный цикл в Pascal С помощью алгоритма Евклида найти НОД двух чисел.
27. Условный цикл в Pascal С помощью алгоритма Евклида найти НОД двух чисел.
28. Условный цикл в Pascal
29. Работа с файлами в Lazarus Компоненты, которые умеют работать с файлами: ListBox ComboBox Memo Они читают
30. Работа с файлами в Lazarus Каждая строка компонентов ListBox и ComboBox является объектом Items[i] Каждая строка
31. Работа с файлами в Lazarus Добавление строк в компоненты выполняется методами Add и Insert Метод Add
32. Работа с файлами в Lazarus Сохранении содержимого в файл: ListBox1.Items.SaveToFile('Имя_файла.txt ') ; Загрузка из файла: ListBox1.Items.LoadFromFile('
33. Работа с файлами в Lazarus В папке 11_работа с файлами создать: input.txt output.txt
34. Работа с файлами в Lazarus Прочитать из файла в поле Memo: Записать в файл из поля
35. Работа с файлами в Lazarus
36. Работа с файлами в Lazarus Прочитать из файла в поле ListBox: Записать в файл из поля
37. Работа с файлами в Lazarus Прочитать из файла в поле ListBox: Записать в файл из поля
39. Скачать презентацию

Слайд 2

Урок 10

Слайд 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

Слайд 10

ПОВТОРЯЕМ: Tmemo – многострочный текст
Свойство Lines
memo1.lines [0] := ' Это первая

строка';
memo1.lines [1] := ' Это вторая строка‘;

memo1.Clear;

Метод Clear - очистить

memo1.lines.add(' Это первая строка’);
memo1.lines.add(' Это вторая строка’);

Слайд 11

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

Слайд 12

Урок 11

Слайд 13

Операторы DIV и MOD
DIV – целочисленное деление
MOD – остаток от деления
534

DIV 10 =

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
С помощью алгоритма Евклида найти НОД двух

чисел.

Слайд 28

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

Слайд 29

Работа с файлами в Lazarus
Компоненты, которые умеют работать с файлами:
ListBox
ComboBox
Memo
Они

читают и сохраняют своё содержимое, строки типа String, в файл текстового формата.

Слайд 30

Работа с файлами в Lazarus
Каждая строка компонентов ListBox и ComboBox является объектом Items[i]
Каждая строка

Memo является объектом Lines[i]
где i - номер строки, который отсчитывается от нуля.

ComboBox1.Items[0] := 'Первая строка изменилась’;
ListBox1.Items[1] := 'Вторая строка изменилась' ;

Слайд 31

Работа с файлами в Lazarus
Добавление строк в компоненты выполняется методами Add и Insert
Метод Add добавляет новую

строку в конец.
Метод Insert имеет дополнительный параметр, указывающий, после какой строки разместить новую строку.

Слайд 32

Работа с файлами в Lazarus
Сохранении содержимого в файл: ListBox1.Items.SaveToFile('Имя_файла.txt ') ;
Загрузка из файла: ListBox1.Items.LoadFromFile(' Имя_файла.txt ')

;

Слайд 33

Работа с файлами в Lazarus
В папке 11_работа с файлами создать:
input.txt

output.txt

Слайд 34

Работа с файлами в Lazarus
Прочитать из файла в поле Memo:
Записать в

файл из поля Memo:

Слайд 35

Работа с файлами в Lazarus

Слайд 36

Работа с файлами в Lazarus
Прочитать из файла в поле ListBox:
Записать в

файл из поля ListBox :

Слайд 37

Работа с файлами в Lazarus
Прочитать из файла в поле ListBox:
Записать в

файл из поля ListBox :