/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Case4.pas
14 строк
328 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Оператор выбора. Случайная фигура uses GraphABC; begin SetWindowSize(400,300); var t := Random(1,5); case t of 1: Circle(200,150,100); 2: Rectangle(100,100,300,200); 3: Ellipse(100,100,300,200); 4: RoundRect(100,100,300,200,20,20); 5: Line(100,100,300,200); end; end.