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

10В класс: Информатика от 22.04.2020

10класс.jpg
Тема "Графические возможности языка Паскаль"

Свершилось то, что вы ждали годы! Сегодня во первых начинаем графику, а во вторых в среде Lazarus!
Итак, начнем!
План на первый урок:
1. Скачать установочный файл системы Lazarus с официального сайта (https://lazarus-rus.ru/download/)
2. Установить систему на свой компьютер.
3. Познакомиться с графическими возможностями языка Паскаль, просмотрев видео:
[spoiler]
План на второй урок:
1. Запустить программу Lazarus
2. Выполнить команду Файл/Создать.../Простая программа
3. Скопировать образец программы и вставить его в окно Редактора исходного кода
Program Primer;
Uses Graph;
Var    Gd, Gm : SmaLLInt;
Begin
     Gd:=Detect;
     InitGraph(Gd,Gm,'');
     PutPixel(500,500,2);
     Readln;
     CloseGraph;
End.
4. Сохранить проект (Файл/Сохранить как...) под именем IvanovGR01 (думаю догадались, почему такое имя), в результате чего в указанной папке будет создано 3 файла с таким именем, но с разными расширениями. Кстати, текст программы хранится в файле с расширением PAS и открыть его можно даже в Блокноте.
5. Запустить программу (Запуск/Запустить)
6. Насладится результатом программы (зелёная точка)
7. Закрыть графическое окно выполнения программы, нажать Enter для закрытия текстового окна.
8. Потренироваться с графическими процедурами, изученными на предыдущем уроке.
Например:
Program IvanovGR01;
Uses Graph;
Var    Gd, Gm, k : SmaLLInt;
Begin
     Gd:=Detect;
     InitGraph(Gd,Gm,'');
     For k:=0 to 5000 do
     begin
       SetColor(Random(16));
       Circle(Random(GetMaxX),Random(GetMaxY), Random(20));
     end;
     Readln;
     CloseGraph;
End.  
9. Сделать программу, рисующую такой рисунок:
22.jpg
Вспомним старый добрый Random. Обращаю ваше внимание, что линии рисуются в одном цикле каждая из своего угла случайно в пределах своей четверти.

Текст программы вставляем в комментарий к этому сообщению, в теме указываем Фамилию и Имя.
Удачи!
Внимание! Крайние сроки не устанавливаю, понимаю, что возможны проблемы при установки программы, но надолго не затягиваем!
Нравится0
22.04.2020 17:16:29
Ау... Вы где?
Ответить Ссылка Нравится0
Нравится0
22.04.2020 18:41:00
Евгений Чернов
Лично у меня не работает лазарус. Запускаю его и вставляю пример проги, ничего, кроме того, что открывается графическая эта консоль, не происходит
Ответить Ссылка Нравится0
Нравится0
22.04.2020 20:26:54
Свяжись с Викой, проконсультируйся, у нее вроде всё работает. кстати а ты правильно выбрал версию 32 бит или 64?
Ответить Родитель Ссылка Нравится0
Нравится0
22.04.2020 20:33:31
Правильно выбрал, у нее вроде как тоже не работает
Ответить Родитель Ссылка Нравится0
Нравится0
23.04.2020 10:49:44
А ДЗ она как делала?
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 18:46:23
Сторожук Вике
Вика, а ты точно запускала программу? Просто у тебя есть 2 простые ошибки, без исправления которых программа не запускается.
Ответить Родитель Ссылка Нравится0
Нравится0
23.04.2020 10:50:32
Делаем перекличку, отпишитесь все, как прошла установка системы Lazarus
Ответить Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 13:27:21
Чернову Евгению
Евгений, напомню "Обращаю ваше внимание, что линии рисуются в одном цикле каждая из своего угла случайно в пределах своей четверти." Советую вместо LineTo использовать Line, гораздо короче и проще.
Кстати и конца программы нет.
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 18:51:14
Сидорову Никите
Смущает способ решения задачи, очень похожий на программу Чернова. Слишком большая программа, она гораздо проще решается через Line
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 18:54:00
Калашину Олегу
Молодец, Олег! Оптимально, эффективно, правильно.
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 18:56:33
Брагину Артёму
Артём, очень не рационально, куча условий... Достаточно было один цикл а в нём 4 линии и 4 рандома цвета
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 18:57:50
Черепановой Анне
Анна, молодец, если конечно без помощи сделала
Ответить Родитель Ссылка Нравится0
Нравится0
23.04.2020 17:15:06
Здравствуйте ,скачала ..Пока разбираюсь  
Ответить Ссылка Нравится0
Нравится0
23.04.2020 18:58:26
Анна, поторопись немножко... Если есть вопросы, пиши.
Ответить Родитель Ссылка Нравится0
(Скрытый комментарий)
Нравится0
23.04.2020 22:20:10
Макарову
Ладно, будем считать, что ты первый
Ответить Родитель Ссылка Нравится0