177 - z
#include "dos.z"
function foo(s) { writeln(s + 6); }
function main
{
integer p;
string txt = "123456177$";
p = @p;
p = p + 4;
foo(p);
readkey();
}
177 - z
#include "dos.z"
function foo(s) { writeln(s + 6); }
function main
{
integer p;
string txt = "123456177$";
p = @p;
p = p + 4;
foo(p);
readkey();
}
Liczba: 176
Język: Assembler, Object Pascal
function Number: Byte;
asm
MOV BX, 305o
MOV CX, 1Eh
@L: DEC BX
LOOP @L
ADD BX, 1011b
XCHG AX, BX
SUB AX, 10b
end;
Sather - 175:
class MAIN is
main is
loop
#OUT + "175\n"
end
end
end
174 ;P
var I: Integer;
O: Integer = 0;
begin
for I := 1 to Trunc(Pi) do
O := O + 57;
O := O + Round(O / 57);
Application.MessageBox(PChar(IntToStr(O)), '174!',0);
end;
;P ;P ;P ;P ;P ;P
//ileż można klepać w Delphi - jedyny język świata? :| - M
Liczba: 173
Język/środowisko: Wonderware InTouch (QuickScript)
LogMessage("173");
(...)
//ileż można klepać w Delphi - jedyny język świata? :| - M
Czemu ja dostałem ochrzan za takie dopiski?
Liczba: 172
Język: HTML
http://qyon.satanbsd.org/bin/172.html
//ładnie to wyszło :)
//a od kogo ochrzan? (piszę tu bo po co nowy post - najwyżej wywal to) - M
// A od Flabera i to nawet w Moderatorzy i na ircu :> - Q
Język: Clipper
Liczba: 171
Clear
@0,0 say '171'
;)
Język: SimScript
print 1 line thus
170
Blue - 170:
class Konkurs is
uses
interface
print_it is
do
print ("170\n")
end print_it
end class
FORTRAN77
PROGRAM HELLO
PRINT *, '169'
END
//IMHO ten konkurs nie ma sensu dopóki ktoś nie zaktualizuje listy języków w pierwszym poście, bo zwyczajnie nie wiadomo co juz było a co nie :/
168 - DOS batch script 3D [green]
@echo off
goto 1
:1
cls
echo.
echo ˛˛˛
echo ˛°˛°
echo ˛˛˛°
echo ˛°˛°
echo ˛˛˛°
choice/c:a/n /t:a,1 >nul
:2
cls
echo.
echo ˛˛˛ ˛˛˛
echo ˛° ˛°˛°
echo ˛˛˛° ˛˛˛°
echo ˛°˛° ˛°˛°
echo ˛˛˛° ˛˛˛°
choice/c:a/n /t:a,1 >nul
:3
cls
echo.
echo ˛° ˛˛˛ ˛˛˛
echo ˛˛° ˛° ˛°˛°
echo ˛° ˛˛˛° ˛˛˛°
echo ˛° ˛°˛° ˛°˛°
echo ˛° ˛˛˛° ˛˛˛°
choice/c:a/n /t:a,1 >nul
pause >nul
:end
167 - AC Logo (wersja angielska aclogoa.exe)... hmmm... logo juz bylo ale w tutaj liczba zamiast wypisana na ekran jest rysowana przez zolwia
to 167
ht cs
fd 50 lt 135 fd 25
pu bk 25 rt 225 fd 60 rt 180 pd
fd 40 lt 90 fd 50 lt 90 fd 40 lt 90 fd 25 lt 90 fd 40
pu bk 100 rt 90 bk 25 pd
fd 50 lt 90 fd 40
end
166 komenda ekg:
at -a 23:59 /echo 166
Działający pod Atari :):
PRINT "165"
``
Moja kolej
Dziala pod Commodore :D
1. REM Jestem 164
2. PRINT"164"
163 - Perl
#!/usr/bin/perl
my $j;
for(my $i=0;$i<163;$i++) { $j++ }
print "$j";
Dzięku temu można zakończyć konkurs ;)
http://www.roesler-ac.de/wolfram/hello.htm
Mirc 6.16 scripting:
/say162 {
set %a 200
set %b 38
/b1 $calc(%a - %b)
}
/b1 /say 2,2 $1-99! | /say 0,2 $1-99 1,1! | /say 2,2 $1-99 1,1!| /say 0,0 1,1 $1-99!
sposob uzycia : /say162
Jezyk: Warcraft III JASS
Liczba: 161
Dla udg_iCurrentInt == 162
//=====================================
function DisplayNumber_child takes nothing returns nothing
local texttag tt
local unit u = udg_uTmpUnit
local integer currentint = udg_iCurrentInt - 1
set udg_iCurrentInt = 0
set udg_uTmpUnit = null
call DestroyTrigger( GetTriggeringTrigger( ) )
set tt = CreateTextTagLocBJ( ( I2S(currentint) + " is a current number" ), OffsetLocation(GetUnitLoc(u), -7.00, 0.00), 0, 10.00, 50.00, 59.00, 92.00, 100.00 )
call SetTextTagVelocityBJ( tt, 70.00, 90.00 )
call TriggerSleepAction( 5.00 )
call DestroyTextTagBJ( tt )
set tt = null
endfunction
:)
PyGTK - 160:
#!/usr/bin/env python
import gtk
window = gtk.Window()
window.connect('delete-event', gtk.main_quit)
label = gtk.Label('160')
window.add(label)
window.show_all()
gtk.main()
159
{
Rozszerzony Hello Word
Wersja 10.0
Copyright (C) by adiblol
}
uses crt;
const lnNull=0; lnEnglish=1; lnPolish=2;
function WriteNumber:Byte;
var liczba:Byte;
begin
asm
mov ah, 100
push ah
mov ah, 50
push ah
mov ah, 9
push ah
mov al, 0
mov cx, 3
@adding:
pop ah
add al, ah
loop @adding
mov liczba, al
end;
WriteNumber := liczba;
end;
function ConvertNumber(liczba:Byte):String;
var l:Byte; s:String;
begin
asm
mov ah, liczba
mov l, ah
end;
Str(l,s);
if l=0 then s := s+' - wygrywa adiblol';
ConvertNumber := s;
end;
procedure PrintAndWait(s:String; k:Byte);
begin
Writeln(s);
if k=1 then Write('Press any key to continue');
if k=2 then Write('Nacisnij dowolny klawisz aby kontynuowac');
readkey;
Writeln;
end;
begin
Writeln('Hello World!');
PrintAndWait(ConvertNumber(WriteNumber), Random(2)+1);
end.
[green]
158
Assembler dla DSM-51
MOV A,#9EH
LCALL WRITE_HEX
LJMP $
157 Delphi
Label1.Caption := IntToStr(StrToInt(IntToStr(StrToInt('157'))));
:D Hehehe
cos.vbs na 156:
last = 157
i = 0
while( i < last-1 )
i = i + 1
wend
WScript.Echo i
;P
No, to teraz 155 w C# dot Net jako strukturka i z pełną dokumentacją :D
using System;
namespace Konkurs.Liczba
{
///<summary>
/// Klasa liczby na konkurs ;)
///</summary>
struct Liczba
{
#region Data
int Wartosc;
#endregion
#region Constructors
/// <summary>
/// Konstruktor tworzący liczbę z poprzedniej
/// </summary>
/// <param name="Poprzednia">Poprzednia liczba z konkursu</param>
public Liczba(int Poprzednia)
{
Wartosc = Poprzednia - 1;
}
#endregion
#region Public Methods
///<summary>
/// Zwraca wartość liczby
///</summary>
public int GetValue()
{
return Wartosc;
}
///<summary>
/// Wypisuje liczbę
///</summary>
public void PrintValue()
{
Console.WriteLine(Wartosc);
}
#endregion
}
class MainClass
{
#region Main
/// <summary>
/// Głowna funkcja programu
/// </summary>
public static void Main(string[] args)
{
int Poprzednia = 156;
Liczba liczba = new Liczba(Poprzednia);
liczba.PrintValue();
}
#endregion
}
}
ASM POD MILYGES OS :d :
[BITS 32]
[ORG 0x400000]
_start:
mov ecx, msgWelcome
mov ebx, 1
mov eax, 4
int 0x80
mov eax, 1
xor ebx, ebx
int 0x80
;Dane
msgWelcome db "JESTEM 154:D:D:D:D",10,13,0
using System;
using System.Drawing;
using System.Windows.Forms;
class Nowa: Form
{
public static void Main()
{
Application.Run(new Nowa());
}
public Nowa()
{
Font = new Font("TimesNewRoman", 20, FontStyle.Bold);
Text = "153";
}
protected override void OnPaint(PaintEventArgs e)
{
Graphics grfx = e.Graphics;
SizeF size = grfx.MeasureString(Text, Font);
float x = (ClientSize.Width - size.Width) / 2;
float y = (ClientSize.Height - size.Height) / 2;
grfx.DrawString(Text, Font, new SolidBrush(ForeColor), x, y);
}
protected override void OnResize(EventArgs e)
{
Invalidate();
}
}
:]
Chyba jeszcze nie bylo
Jezyk: ActionScript
liczba: 152
_root.createTextField("text",_root.getNextHighestDepth(),0,0,100,100);
_root.text.text="152";
pozdrawiam
johny
$liczba151 = 151;
echo $liczba151;
o kurde, nooby odkopują trupa! nekrofile jedne!