Беларусь, Минск
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до 02.08.2025
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 17.09.2024 19:36
Аверина Нина Викторовна
учитель информатики, математики
278 819
43 
Местоположение
Специализация
ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ ЯЗЫКА ПРОГРАММИРОВАНИЯ PASCALABC
Категория:
Информатика
18.05.2016 11:06
ПРОГРАММА СОЗДАЕТ РИСУНОК (ЦВЕТА RGB, ВЫБИРАЕМЫЕ СУЧАЙНЫМ ОБРАЗОМ).
ЦИКЛ СОЗДАЕТ МЕРЦАЮЩУЮ ОТКРЫТКУ
uses graphabc;
var a:integer;
begin
a:=0;
while true do begin
a:=random(480);
SetWindowSize(640,480);
SetPenColor(rgb(random(255), random(255), random(255)));
Line(0+a,0+a,640-a,480-a); Line(640-a,0+a,0+a,480-a);
end;
end.
ВЫВОДИТ НА ЭКРАН:
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
Полезное для учителя
Реализация образовательных программ осуществляется с применением исключительно электронного обучения и ДОТ
