rulinux.net - Форум - Talks - [нг] Ёлка на турбопаскале

Re:[нг] Ёлка на турбопаскале

Tue, 03 Jan 2017 14:11:56 +0300

Я хочу ёлочку!

Re:[нг] Ёлка на турбопаскале

Tue, 03 Jan 2017 12:36:41 +0300

> Как это запустить в современном линупсе?
Забей, это профессиональный юмар)))

Re:[нг] Ёлка на турбопаскале

Tue, 03 Jan 2017 09:05:14 +0300

Как это запустить в современном линупсе?

Re:[нг] Ёлка на турбопаскале или шеренок в дупе Сильви (NY upgrade)

Mon, 02 Jan 2017 13:54:42 +0300

> Вижу косяк в методе Silvi.to_ochko()
Тоже вижу, но пофиксить чет не дает, хуй с ним пусть пока юзает предыдущую версию)))

Re:[нг] Ёлка на турбопаскале или шеренок в дупе Сильви (NY upgrade)

Mon, 02 Jan 2017 13:31:40 +0300

Вижу косяк в методе Silvi.to_ochko()
Выпил - за компьютер не садись, LOL

Re:[нг] Ёлка на турбопаскале или шеренок в дупе Сильви (NY upgrade)

Sun, 01 Jan 2017 17:08:07 +0300

python

class Silvi(Samka_Pidorasa):

    def __init__(self):

        self._into_ibalnik = None

        self._into_ochko = 'Zalupa'

    def to_ochko(self, thing, N):

        for n in range(0, 1000):

            if N % 2:

                self._into_ibalnik = self._into_ochko

                self._into_ochko = thing

            else:

                self._into_ochko = self._into_ochko

                self._into_ibalnik = thing

        print(')))')

def ToDo(thing):

    silvi = Silvi()

    silvi.to_ochko(thing)

if __name__ == __main__:

    thing = 'Chrenok ot lopaty'

    ToDo(thing, 100500)

быстрофикс

Sat, 31 Dec 2016 22:07:05 +0300

bash

cat smayloeb > /dev/ass

 

Re:[нг] Ёлка на турбопаскале

Sat, 31 Dec 2016 19:46:54 +0300

python

class Silvi(Samka_Pidorasa):

    def __init__(self):

        self._into_ibalnik = None

        self._into_ochko = 'Zalupa'

    def to_ochko(self, thing):

        self._into_ibalnik = self._into_ochko

        self._into_ochko = thing

def ToDo(thing):

    silvi = Silvi()

    silvi.to_ochko(thing)

if __name__ == __main__:

    thing = 'Chrenok ot lopaty'

    ToDo(thing)

    print(')))')

[нг] Ёлка на турбопаскале

Sat, 31 Dec 2016 19:05:59 +0300

pascal

program DSBM;

uses graph, crt;

var dr, md: integer;

    i, j, x, y: byte;

begin

clrscr;

x:=succ(0);

y:=succ(0);

window(x, y, x+20, y+20);

clrscr;

gotoxy(6,2);

dr:=0;

md:=0;

initgraph(dr, md, '');

{Подключил модуль Graph.TPU}

setcolor(green);

SetFillStyle(1, green);

line(100,50,50,100);

line(50,100,150,100);

line(150,100,100,50);

floodfill(52,99,green);

{Нарисовал первый треугольник Ёлочки}

line(100,100,50,150);

line(50,150,150,150);

line(150,150,100,100);

floodfill(52,149,green);

{Нарисовал второй треугольник Ёлочки}

line(100,150,50,200);

line(50,200,150,200);

line(150,200,100,150);

floodfill(52,199,green);

{Нарисовал третий треугольник Ёлочки}

setfillstyle(1,brown);

setcolor(brown);

line(90,201,90,240);

line(90,240,110,240);

line(110,240,110,201);

line(110,201,90,201);

floodfill(100,210,brown);

{Задан ствол дерева}

repeat

setcolor(red);

setfillstyle(1,red);

fillellipse(150,105,4,4);

fillellipse(50,155,4,4);

fillellipse(150,205,4,4);

setcolor(yellow);

setfillstyle(1,black);

fillellipse(50,105,4,4);

fillellipse(150,155,4,4);

fillellipse(50,205,4,4);

delay(700);

{горят красные}

setcolor(red);

setfillstyle(1,black);

fillellipse(150,105,4,4);

fillellipse(50,155,4,4);

fillellipse(150,205,4,4);

setfillstyle(1,yellow);

setcolor(yellow);

fillellipse(50,105,4,4);

fillellipse(150,155,4,4);

fillellipse(50,205,4,4);

delay(700);

{горят желтые}

until keypressed;

end.