СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до 02.08.2025

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ ЯЗЫКА ПРОГРАММИРОВАНИЯ PASCALABC

Категория: Информатика

Нажмите, чтобы узнать подробности

ПРОГРАММА СОЗДАЕТ РИСУНОК (ЦВЕТА 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.

ВЫВОДИТ НА ЭКРАН:

 

Показать полностью


Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!