Последние файлы
Наши партнеры
Важная информация
Урок программирования :)
Закрытая тема
 
Опции темы
  • Новое
    Аватар для mazepa

    mazepa
    Сенсей

    Сообщений:
    1,136
    Регистрация:
    23.06.2005
    Возраст:
    44
    Рейтинг мнений: 1118
    Вес репутации: 350
    mazepa mazepa mazepa mazepa mazepa mazepa mazepa mazepa mazepa mazepa mazepa
    Очки: 19,911, Уровень: 89 Очки: 19,911, Уровень: 89 Очки: 19,911, Уровень: 89
    Активность: 25% Активность: 25% Активность: 25%
    По умолчанию Урок программирования :) #1
    Код:
    program Елочка; 

Begin 

Лес.елочка.create(); 

While not Лес.елочка.dead do 

Begin 

лес.елочка.age := лес.елочка.age + 1; 

if зима or лето then 

begin 

лес.елочка.plain := true; 

лес.елочка.color := cl_green; 

end; 

метель.filename:="D:MusicNSYNC - Bye Bye Bye.mp3"; 

метель.open; 

sleep(1000); 

метель.play; 

мороз.укутать(лес.елочка); 

GetMessage(H, лес.елочка.handle, 0, 0); 

if h.uint = wm_замерзла then 

dead := true; 

end; 

лес.заяц.create; 

лес.заяц.трусливый := true; 

лес.заяц.color := cl_gray; 

x := лес.елочка.left; 

y := лес.елочка.top; 

While x 

Begin 

лес.заяц.left := x; 

inc(x); 

лес.заяц.top := y round( abs(sin(x*pi/180)*10) ); 

end; 

Winexec("wolf3d.exe /evil",0); 

лес.елочка.cuttoclipboard; 

Праздник.pastefromclipboard; 

Праздник.елочка.skin.loadfromfile("нарядная.jpg"); 

For i:=1 to SizeOf(Праздник.елочка.радость) do 

Праздник.Дети.Настроение Праздник.елочка.радость; 

End.
    __________________
    мой голова червяк прогрыз
    25.02.2006, 17:31
  • Новое
    Аватар для Botya666

    Botya666
    Неактивный

    Сообщений:
    775
    Регистрация:
    06.10.2005
    Возраст:
    48
    Рейтинг мнений: 430
    Вес репутации: 0
    Botya666 Botya666 Botya666 Botya666 Botya666 Botya666 Botya666 Botya666 Botya666 Botya666 Botya666
    Очки: 14,533, Уровень: 78 Очки: 14,533, Уровень: 78 Очки: 14,533, Уровень: 78
    Активность: 25% Активность: 25% Активность: 25%
    По умолчанию Re: Урок программирования :) #2
    ЗАЧОТ, особенно траектория зайца понравилась
    25.02.2006, 18:46
  • Новое
    Аватар для Ketrosa

    Ketrosa
    Участник
    Действительный участник ассоциации MCRF.RU

    Сообщений:
    455
    Регистрация:
    19.09.2005
    Возраст:
    61
    Рейтинг мнений:
    Вес репутации: 251
    Ketrosa Ketrosa
    Очки: 6,777, Уровень: 54 Очки: 6,777, Уровень: 54 Очки: 6,777, Уровень: 54
    Активность: 0% Активность: 0% Активность: 0%
    По умолчанию Re: Урок программирования :) #3
    25.02.2006, 20:44
  • Новое
    Аватар для !S-S!

    !S-S!
    Участник
    Действительный участник ассоциации MCRF.RU

    Сообщений:
    194
    Регистрация:
    28.07.2005
    Возраст:
    40
    Рейтинг мнений: 172
    Вес репутации: 261
    !S-S! !S-S! !S-S! !S-S! !S-S! !S-S! !S-S! !S-S! !S-S! !S-S! !S-S!
    Очки: 8,843, Уровень: 63 Очки: 8,843, Уровень: 63 Очки: 8,843, Уровень: 63
    Активность: 2% Активность: 2% Активность: 2%
    По умолчанию Re: Урок программирования :) #4
    Вот это тема!!!!!!!
    26.02.2006, 05:28
  • Новое
    Аватар для estonij

    estonij
    MCRF Инженер

    Сообщений:
    787
    Регистрация:
    07.12.2005
    Возраст:
    50
    Рейтинг мнений: 407
    Вес репутации: 280
    estonij estonij estonij estonij estonij estonij estonij estonij estonij estonij estonij
    Очки: 25,264, Уровень: 95 Очки: 25,264, Уровень: 95 Очки: 25,264, Уровень: 95
    Активность: 10% Активность: 10% Активность: 10%
    По умолчанию Re: Урок программирования :) #5
    Это на каком языке писано?
    26.02.2006, 12:14
  • Новое
    Аватар для hELLISh

    hELLISh
    Сенсей

    Сообщений:
    1,116
    Регистрация:
    20.06.2005
    Возраст:
    49
    Рейтинг мнений: 772
    Вес репутации: 378
    hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh hELLISh
    Очки: 35,700, Уровень: 100 Очки: 35,700, Уровень: 100 Очки: 35,700, Уровень: 100
    Активность: 10% Активность: 10% Активность: 10%
    По умолчанию Re: Урок программирования :) #6
    Пример чисто прикладной программы на языке PivoScript0.5
    Как известно, Microsoft изобрела для своих нужд язык JScript, игнорируя JavaScript, изобретенный компанией Netscape. Если им можно - почему нам нельзя? Вот пример чисто прикладной программы на совершенно новом языке - PivoScript 0.5. Можете сами убедиться в ее крайней необходимости:

    Код:
    <head>
<font size=+100>Nado vypit' piva</font>

<script language="PivoScript0.5">
<!-- Hide from wife

// global setting

var Money = zanachka;
var head = "light";

body.full = false;

// global functions

function goBar () {
  body.location = "bar";
  drink();
}

function drink () {
  fatalError!!!();
  while (body.full != true) {
    if (Money == 0) break();
    else {
      if (wife.location == "near") break();
      else {
        var Pivo = 0;
        Money --;
        Pivo ++;
        body.input(pivo);
        Pivo --;
        replika();
      }
    }
  }
  goHome();
}

function replika () {
  var randomReplika = round( random() * 10 );
  array randomReplikaArray = new array;
  randomReplikaArray[0] = "O-pa!";
  randomReplikaArray[1] = "Ty zachem mne etu gadost' nalil?";
  randomReplikaArray[2] = "Vobly by...";
  randomReplikaArray[3] = "Horosho poshla!";
  randomReplikaArray[4] = "Ni cherta vy v pive ne smyslite!";
  randomReplikaArray[5] = "Eh, i zhizn' webmasterskaja...";
  randomReplikaArray[6] = "Sam takoj!";
  randomReplikaArray[7] = "Barmen! Povtorit'!";
  randomReplikaArray[8] = "Kisljatina!";
  randomReplikaArray[9] = "A vot byvalochi...";
  bodyOnDrink = body.head.voice.output = writeln(randomReplikaArray[randomReplika]);
}

function goHome() {
  body.location = "street";
  body.head.voice.output = writeln('Taxi!');
  if (Money == 0) {
    body.head.voice.input = "Kozel!";
    body.head.voice.output = writeln('Sam Kozel!');
    setTimeOut(1000000, bar-home.way.length -- );
  }
  else {
    body.location = "bar";
    drink();
  }
}

//fatal errors

function fatalError!!!() {
  if (
  Money.location == wife       ||
  body.onLoad    == overwrite  ||
  bar.message    == "Piva net" ||
  bar.message    == "Closed"   ||
  head           == "dark"     ||
  body.vertical  == false
  ) {
    windows.close();
    doors.close();
    all.close();
    body.location = "bedroom";
    sleep();
}

-->
</script>
</head>

<body onUnsleep="goBar()">
<hat color=green size=58>hat</hat><br>
<sweater color=broun size=48>sweater</sweater><br>
<jeans color=blue size=48>jeans</jeans><br>
<boots color=black size=43>boots</boots><br>
</body>
    26.02.2006, 14:45
  • Новое
    Аватар для estonij

    estonij
    MCRF Инженер

    Сообщений:
    787
    Регистрация:
    07.12.2005
    Возраст:
    50
    Рейтинг мнений: 407
    Вес репутации: 280
    estonij estonij estonij estonij estonij estonij estonij estonij estonij estonij estonij
    Очки: 25,264, Уровень: 95 Очки: 25,264, Уровень: 95 Очки: 25,264, Уровень: 95
    Активность: 10% Активность: 10% Активность: 10%
    По умолчанию Re: Урок программирования :) #7
    Инсталировал прогу,всё ок,работает.Пиво полилось.
    26.02.2006, 14:50
  • Новое
    Аватар для vetas

    vetas
    Участник
    Действительный участник ассоциации MCRF.RU

    Сообщений:
    690
    Регистрация:
    26.08.2005
    Возраст:
    47
    Рейтинг мнений: 1086
    Вес репутации: 291
    vetas vetas vetas vetas vetas vetas vetas vetas vetas vetas vetas
    Очки: 23,280, Уровень: 93 Очки: 23,280, Уровень: 93 Очки: 23,280, Уровень: 93
    Активность: 30% Активность: 30% Активность: 30%
    По умолчанию Re: Урок программирования :) #8
    Писать код программы, по которой произошло следующее, не стану, читайте:

    Жена посылает программиста в магазин:
    - Дорогой, купи, пожалуйста, палку колбасы, и если будут яйца - то купи десяток.
    Через полчаса программист возвращается с десятью палками колбасы.
    Жена:
    - Что это?! Зачем ты купил столько колбасы?
    Программист:
    - Ну так яйца-то были...
    08.03.2006, 14:54
  • Новое
    Аватар для Joshua

    Joshua
    MCRF Инженер

    Сообщений:
    1,462
    Регистрация:
    07.11.2005
    Возраст:
    44
    Рейтинг мнений: 2005
    Вес репутации: 611
    Joshua Joshua Joshua Joshua Joshua Joshua Joshua Joshua Joshua Joshua Joshua
    Очки: 60,456, Уровень: 100 Очки: 60,456, Уровень: 100 Очки: 60,456, Уровень: 100
    Активность: 10% Активность: 10% Активность: 10%
    По умолчанию Re: Топик для ПРЕВЕДОВ и ЗДРАСТВАЙТЁВ #9
    Вроде не анегдод.. так что сюда запостим.. к преведам поближе

    Цитата:
    Язык программирования "ПРЕВЕД"

    ++++++++++++++++++

    УРОК Первый нах!

    сигхтнагниз этава языга очен похожо
    на языг Прогхрамиравания "Поскаль" нах.

    любая пограмма начинаицо с ключевого слова ПРЕВЕД, посли чиго
    следуит имя этай программы.

    Премер:

    ПРЕВЕД первыйнах;

    канец каманды или блока нах обязательна раздиляица точкай с запятой..

    вот так тоись ;

    канец кпрограммы всигда заканчиваица словом
    МЕДВЕД

    операторгными сгобками являицо слова

    НАЧЕЛ

    пох здеся будит программа

    КОНЧЕЛ ;

    Кгстати есливы заметили, то злово пох являица
    обозгначением комминтария строки..
    тоись строка "здеся будит программа" работать нибудит!

    кстати если вы хатите за похкомментировать несколька строг
    то для этава нужна испольгсавать следующую конгструкцию

    нахиирявсеэтанаписал
    {
    этад кодт не будит выполнен..
    }

    основныи типы данных:

    переменные объявляюца после ключевога слова типа

    преведстрока - строковый типа

    преведчисло - числовой в диапазоне -2147483648..2147483647

    преведчислосточкай - число с плавующей точкай.(8 байт)

    преведчислошопестец - ниибаца какой диапазон –2^63..2^63–1

    преведмедвед - уникальный типа данных - может принимать значения либого типа

    преведилинед - логический типа.. может принимать значения... угу и неа


    опираторы

    арифметико:
    + - / *

    логико:
    и(and), или(or), нех(not)

    логическии когстанты угу и неа


    фунгции в праграмме обозначаюца ключивым словом кагдила

    далее в сгобках перечисляюца парраметры.. а потом угказываица тип этой фунгции..
    вощем вот ее конгструкция

    кагдила [Название функции] (параметр:типа;...): типа данных;

    Премер:
    кагдила Учаснег(кагзовуд: преведстрока ; скокалед: преведчисло ): преведилинед;

    результат функнуции - возвращица оператором взад

    параметры могут быть тагжи и выходными, для этага нада тожи поставить взад на против
    имини переменаай.


    кстати

    нах - обозгначаит 0, он жи nil, он жи null.


    логика:

    "если aka (if)" абазначаица камандой

    вдруг вощим ща пакажу пример

    вдруг Учаснег = "hchru" потом
    начел
    пох тудможно чтота напесать.
    кончел
    нихрина
    начел
    пох авот туд если учаснег нихрена не hchru
    кончел;

    каг видна па примеру если еще ключевые слава потом
    и
    нихрина
    ну нахир ани нужны вы ужи сами догодались...

    циклы:
    абазначаюца ключевым словом жжги

    вощим разбирайтесь сами

    приведу токо премер:

    кагдила премерцикла(скокаих: переведчисло ): переведчисло
    типа
    кросавчег: перведчисло ;
    мой_медвед: перведчисло ; пох мой_медвед иначи программа закончица...
    начел

    жжги кросавчег=1 да 10 поехали
    начел
    мой_медвед = мой_медвед + скокаих * кросавчег;
    пох вот такой вотцигл
    кончел ;

    взад мой_медвед;
    кончел ;


    вощим Урог первый закончен нах... заипался ужо песать..
    Читайте мануал короче ламеры..

    и я говорю заведтнаи слово о закрытии программы МЕДВЕД


    ------------------
    ++++++++++
    ------------------

    И пример программы на нем (кстати работает.... ключевое слово #define)

    //
    // Превед.cpp : Defines the entry point for the console application.
    //

    #include <iostream>
    #include <locale.h>

    //------------------------------------------------------------------
    // The PREVED Language Kernel area. Do not touch!

    #if !defined (_MSC_VER) || _MSC_VER < 1400
    #error Wrong compiler! Use MSVS 8.0
    #endif

    #define НАЧЕЛ {
    #define КОНЧЕЛ ;}
    #define ТИПА int
    #define ВДРУГ if (
    #define ТАДА )
    #define НИХРИНА else
    #define ВЗАД return
    #define КАГДИЛА (
    #define ЙО ;
    #define ЖЖОШ(p,n) for (; (p) <= (n); (p)++)

    #define БАЗАР std::cout <<
    #define СЛЫШЬ <<
    #define СТОЙ system ("echo. & pause");
    #define БЛИН _wsetlocale (LC_ALL, L"Russian_Russia.ACP");

    #define ВРОДЕ try
    #define ИБАНУцО throw
    #define АПСТЕНУ catch (const char* __чё__)

    #define ПРЕВЕД ТИПА main КАГДИЛА ТАДА
    #define МЕДВЕД ВЗАД 0; КОНЧЕЛ

    // End of area
    //------------------------------------------------------------------

    ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА
    НАЧЕЛ
    БАЗАР "ВАЩЕ " ЙО
    ВДРУГ фигня == 8 ТАДА ИБАНУцО "мля! " ЙО
    ВЗАД 0
    КОНЧЕЛ

    ПРЕВЕД
    НАЧЕЛ
    БЛИН

    ВРОДЕ НАЧЕЛ

    ТИПА фишка = 0 ЙО

    ЖЖОШ (фишка, 10)
    НАЧЕЛ
    БАЗАР фишка СЛЫШЬ " ";
    ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО
    КОНЧЕЛ

    КОНЧЕЛ АПСТЕНУ НАЧЕЛ
    БАЗАР "ИБАНУцО invoked: " СЛЫШЬ __чё__;
    КОНЧЕЛ

    СТОЙ
    МЕДВЕД
    --------------------
    Походу дела вся эта тема перекочует в юмор =)

    Йопт... забыл.

    ПРЕВЕД!!!
    Последний раз редактировалось PGP; 13.09.2006 в 11:01.
    09.06.2006, 11:56
  • Новое
    Аватар для PGP

    PGP
    Администратор

    Сообщений:
    2,623
    Регистрация:
    07.04.2005
    Возраст:
    42
    Рейтинг мнений: 2756
    Вес репутации: 568
    PGP PGP PGP PGP PGP PGP PGP PGP PGP PGP PGP
    Очки: 105,294, Уровень: 100 Очки: 105,294, Уровень: 100 Очки: 105,294, Уровень: 100
    Активность: 99% Активность: 99% Активность: 99%
    По умолчанию Re: Урок программирования :) #10
    Вот такая коллекция получается изыгов праграмиравания =)
    __________________
    ПРАВИЛА нашего форума.
    Размещение сайтов и регистрация доменов по приятным расценкам. Подробнее...
    13.09.2006, 11:00
  • Новое
    Аватар для Lider

    Lider
    Сенсей

    Сообщений:
    1,015
    Регистрация:
    09.04.2005
    Возраст:
    51
    Рейтинг мнений: 682
    Вес репутации: 300
    Lider Lider Lider Lider Lider Lider Lider Lider Lider Lider Lider
    Очки: 17,149, Уровень: 83 Очки: 17,149, Уровень: 83 Очки: 17,149, Уровень: 83
    Активность: 28% Активность: 28% Активность: 28%
    По умолчанию Re: Урок программирования :) #11
    превед Анекдотнах;

    амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;

    типапревед
    ТэМойМедвед = хуле (ТэМедвед)
    комрад
    ПапаМедвед: ТэМедвед;
    МамаМедвед: ТэМедвед;
    бублиг
    кагдила Родид(Папа, Мама: ТэМедвед);
    кагдила Писец; папойвыдан;
    кагдила Идинах(Куданах: ТэУрл); папойвыдан;
    кончел;

    кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
    начел
    ПапаМедвед:=Папа;
    МамаМедвед:=Мама; // Пох шобзнал!
    кончел;

    кагдила ТэМойМедвед.Писец;
    начел
    Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
    кончел;

    // Пох карочи праграма

    типа
    моймедвед: ТэМойМедвед:
    мужыг: ТэУчаснег;
    тъйодка: ТэУчаснпег;
    лез: ТэЛез32;

    начел
    ёпт
    лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьоз� �,трава,поляно]);
    моймедвед:=ТэМойМедвед.Род� �д(livejournal,ru_preved);
    // Пох низабаяниваимые канстанты!
    моймедвед.Идинах(лез.Тудан� �х('поляно'));
    мужыг:=ТэУчаснег.Родид();
    тъйодка:=ТэУчаснег.Родид();
    лез.Вставить(мужыг,Туданах( 'поляно'));
    лез.Вставить(тъйодка,Тудан� �х('поляно'));
    мужыг.Вставить(тъйодка);
    ежели мужыг.Нивставляет тоды
    начел
    // Пох и здесь пидарасынах!
    Ахтунг('У вас в системе неправельный мужыг, '+
    'пастафьте себе пакет Учаснег-dev-2.1.11',
    'Ахтунгбля',ИКОН_АХТУНГ);
    бамбить;
    кончел;
    моймедвед.Идёд;
    мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
    моймедвед.Подняд(моймедвед .Рука.Л);
    моймедвед.Подняд(моймедвед .Рука.П);
    моймедвед.Сказад('ПРЕВЕД!');
    ухёпт
    Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
    'ваш камог кетайского праизводства… Смините моск!',
    'Ужоснах',ИКОН_АХТУНГ);
    кончел;
    кончел. // Всёнах, писец
    __________________
    Disce, sed а doctis, indoctos ipse doceto.
    13.09.2006, 13:12
Закрытая тема

« Предыдущая тема | Следующая тема »

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Текущее время: 00:26. Часовой пояс GMT +3.