Информатика для всех
Блог учителям информатики Беларуси, учащимся, учителям, использующих ИКТ. Всем, кто хочет идти в ногу со временем, быть конкурентноспособными на рынке труда
среда, 28 октября 2026 г.
Выделение части строки
Выделение части строки
АКТИВИРУЕМ ПАМЯТЬ
СОСТАВЛЯЕМ ПРОГРАММЫ
пятница, 23 октября 2026 г.
Создание приложений с графическим интерфейсом
Задания по теме урока
Создание Блокнота
Задание 1.
1. Создайте в папке D:\ученики\11А, Б папку фамилия, имя.
2. Запустите PascalABC.Net.
3. Создайте проект.
4. Сохраните проект под именем bloknot в папку D:\ученики\11А, Б \фамилия, имя.
Проверить есть ли папка bloknot в вашей папке.
Задание 2.
- Переименовать свойство «текст» имя Блокнот
- Разместить на форму рабочую область для текста — TextBox1;
- Разместить на форму диалоги работы с файлами —OpenFileDialog1, SaveFileDialog1;
- Разместить на форму диалоги для настройки внешнего вида приложения — FontDialog1, ColorDialog1;
- Разместить на форму главное меню — MenuStrip1

8. Для TextBox1 У свойства Dock значение Fill

9. Для TextBox1 установить значение вертикальная полоса для свойства ScrollBars – Vertical

10. Заполнить структуру меню MenuStrip1

11. Написать обработчики пунктов меню:
Файл — Новый
implementation
var s:string;
var F_N:String;
procedure Form1.toolStripMenuItem4_Click(sender: Object; e: EventArgs);
begin
TextBox1.Clear;
end;
Файл — Открыть
procedure Form1.toolStripMenuItem5_Click(sender: Object; e: EventArgs);
begin
openFileDialog1.ShowDialog();
s:=openFileDialog1.FileName;
Text:='Блокнот '+s;
TextBox1.Lines:=ReadAllLines(s);
end;
Файл — Сохранить
procedure Form1.toolStripMenuItem6_Click(sender: Object; e: EventArgs);
begin
saveFileDialog1.ShowDialog();
F_N:=saveFileDialog1.FileName;
WriteAllLines(F_N,TextBox1.Lines);
Text:='Блокнот '+F_N;
end;
Файл — Выход
procedure Form1.toolStripMenuItem7_Click(sender: Object; e: EventArgs);
begin
close;
end;
Формат — Шрифт
procedure Form1.toolStripMenuItem8_Click(sender: Object; e: EventArgs);
begin
fontDialog1.ShowDialog();
TextBox1.Font:=fontDialog1.
Font;
end;
Формат — Цвет текста
procedure Form1.toolStripMenuItem9_Click(sender: Object; e: EventArgs);
begin
colorDialog1.ShowDialog();
TextBox1.ForeColor:=colorDialog1.Color;
end;
Формат — Цвет фона
procedure Form1.toolStripMenuItem10_Click(sender: Object; e: EventArgs);
begin
colorDialog1.ShowDialog();
TextBox1.BackColor:=colorDialog1.Color;
end;12. Сохранить изменения и протестировать приложение.
Максимальный и минимальный элементы массива
СОСТАВЛЯЕМ ПРОГРАММЫ
Задание 4. Ребята играют в игру. В этой игре каждый набирает определённое количество баллов. Игрок, который набирает наименьшее количество баллов получает 0. А у остальных игроков количество баллов уменьшается на минимум выбывшего игрока.
Задание 5. Оценки в соревнованиях по фигурному катанию выставляются 9 судьями. потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. Составьте программу, которая определяет зачетную оценку спортсмена. Оценки судей ввести с клавиатуры (целые числа от 1 до 6).
Протестируйте свою программу. Если результат правильный, то покажите результат работы учителю.
четверг, 22 октября 2026 г.
Основные понятия веб-конструирования. Язык гипертекстовой разметки документов HTML. Структура HTML-документа
ПРЕЗЕНТАЦИЯ К УРОКУ
ПРАКТИЧЕСКАЯ РАБОТА
среда, 21 октября 2026 г.
Поиск в строке
ПРЕЗЕНТАЦИЯ К УРОКУ
РЕШЕНИЕ ЗАДАЧ
Осень - это листопады.
тире есть.
Осень - это листопады. Осень - это тёплый час. Осень - прогулки до упаду.
понедельник, 19 октября 2026 г.
Редактирование изображений
ПРЕЗЕНТАЦИЯ
ПРАКТИЧЕСКАЯ ЧАСТЬ
Сюжет: «Помоги художнику исправить рисунок города»
Открой исходный рисунок в Paint. Выполняй задания последовательно. После каждого задания сравни свою работу с образцом.
Задание 1.
1. Скопируйте рисунок с блога и вставьте его в Paint,
2. Сохраните рисунок в папку D:\ученики\6А,... под именем город_фвамилия
Задание 2. Залей пятно на машине.
Закрась белое пятно на кузове автомобиля красным цветом.
Сохраните изменения в файле: Файл/Сохранить.
Задание 3. Исправь ошибки художника
Удали лишниии линии.
Установи масштаб 100% и проверь результат.
Сохраните изменения в файле: Файл/Сохранить.
Задание 4. Измени внешний вид автомобиля
Увеличь масштаб.
Измени цвет автомобиля на на любой другой.
Нарисуй на боковой двери автомобиля чёрную горизонтальную полосу с двумя тонкими белыми линиями внутри. Следи, чтобы полоса не выходила за границы двери, а линии были параллельными.
Установи масштаб 100% и проверь результат.
Сохраните изменения в файле: Файл/Сохранить.

