Просмотр полной версии : Урок программирования :)
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.
Botya666
25.02.2006, 18:46
ЗАЧОТ, особенно траектория зайца понравилась :)
Вот это тема!!!!!!!:appl: :appl: :appl: :appl:
Это на каком языке писано?
Пример чисто прикладной программы на языке 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>
Инсталировал прогу,всё ок,работает.Пиво полилось.
Писать код программы, по которой произошло следующее, не стану, читайте:
Жена посылает программиста в магазин:
- Дорогой, купи, пожалуйста, палку колбасы, и если будут яйца - то купи десяток.
Через полчаса программист возвращается с десятью палками колбасы.
Жена:
- Что это?! Зачем ты купил столько колбасы?
Программист:
- Ну так яйца-то были...
Вроде не анегдод.. так что сюда запостим.. к преведам поближе :)
Язык программирования "ПРЕВЕД"
++++++++++++++++++
УРОК Первый нах!
сигхтнагниз этава языга очен похожо
на языг Прогхрамиравания "Поскаль" нах.
любая пограмма начинаицо с ключевого слова ПРЕВЕД, посли чиго
следуит имя этай программы.
Премер:
ПРЕВЕД первыйнах;
канец каманды или блока нах обязательна раздиляица точкай с запятой..
вот так тоись ;
канец кпрограммы всигда заканчиваица словом
МЕДВЕД
операторгными сгобками являицо слова
НАЧЕЛ
пох здеся будит программа
КОНЧЕЛ ;
Кгстати есливы заметили, то злово пох являица
обозгначением комминтария строки..
тоись строка "здеся будит программа" работать нибудит!
кстати если вы хатите за похкомментировать несколька строг
то для этава нужна испольгсавать следующую конгструкцию
нахиирявсеэтанаписал
{
этад кодт не будит выполнен..
}
основныи типы данных:
переменные объявляюца после ключевога слова типа
преведстрока - строковый типа
преведчисло - числовой в диапазоне -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: " СЛЫШЬ __чё__;
КОНЧЕЛ
СТОЙ
МЕДВЕД
--------------------
Походу дела вся эта тема перекочует в юмор =)
Йопт... забыл.
ПРЕВЕД!!!
Вот такая коллекция получается изыгов праграмиравания =)
превед Анекдотнах;
амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;
типапревед
ТэМойМедвед = хуле (ТэМедвед)
комрад
ПапаМедвед: ТэМедвед;
МамаМедвед: ТэМедвед;
бублиг
кагдила Родид(Папа, Мама: ТэМедвед);
кагдила Писец; папойвыдан;
кагдила Идинах(Куданах: ТэУрл); папойвыдан;
кончел;
кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
начел
ПапаМедвед:=Папа;
МамаМедвед:=Мама; // Пох шобзнал!
кончел;
кагдила ТэМойМедвед.Писец;
начел
Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
кончел;
// Пох карочи праграма
типа
моймедвед: ТэМойМедвед:
мужыг: ТэУчаснег;
тъйодка: ТэУчаснпег;
лез: ТэЛез32;
начел
ёпт
лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьоз� �,трава,поляно]);
моймедвед:=ТэМойМедвед.Род� �д(livejournal,ru_preved);
// Пох низабаяниваимые канстанты!
моймедвед.Идинах(лез.Тудан� �х('поляно'));
мужыг:=ТэУчаснег.Родид();
тъйодка:=ТэУчаснег.Родид();
лез.Вставить(мужыг,Туданах( 'поляно'));
лез.Вставить(тъйодка,Тудан� �х('поляно'));
мужыг.Вставить(тъйодка);
ежели мужыг.Нивставляет тоды
начел
// Пох и здесь пидарасынах!
Ахтунг('У вас в системе неправельный мужыг, '+
'пастафьте себе пакет Учаснег-dev-2.1.11',
'Ахтунгбля',ИКОН_АХТУНГ);
бамбить;
кончел;
моймедвед.Идёд;
мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
моймедвед.Подняд(моймедвед .Рука.Л);
моймедвед.Подняд(моймедвед .Рука.П);
моймедвед.Сказад('ПРЕВЕД!');
ухёпт
Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
'ваш камог кетайского праизводства… Смините моск!',
'Ужоснах',ИКОН_АХТУНГ);
кончел;
кончел. // Всёнах, писец
vBulletin® v3.8.7, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot