konkursik [1500 downto 0]

0

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();
}
0

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;
0

Sather - 175:

class MAIN is
   main is 
      loop 
         #OUT + "175\n" 
      end 
   end
end
0

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

0

Liczba: 173
Język/środowisko: Wonderware InTouch (QuickScript)
LogMessage("173");

0

(...)
//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

0

Język: Clipper
Liczba: 171

Clear
@0,0 say '171'

;)

0

Język: SimScript

print 1 line thus
170

0

Blue - 170:

class Konkurs is

  uses

  interface

   print_it is
    do
     print ("170\n")
   end print_it

end class
0

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 :/
0

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
0

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
0

166 komenda ekg:

at -a 23:59 /echo 166

0

Działający pod Atari :):

PRINT "165"
``
0

Moja kolej

Dziala pod Commodore :D

1. REM Jestem 164
2. PRINT"164"
0

163 - Perl

#!/usr/bin/perl

my $j;
for(my $i=0;$i<163;$i++) { $j++ }
print "$j";

0

Dzięku temu można zakończyć konkurs ;)
http://www.roesler-ac.de/wolfram/hello.htm

0

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

0

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

:)

0

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()

0

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]

0

158

Assembler dla DSM-51

MOV A,#9EH
LCALL WRITE_HEX
LJMP $

0

157 Delphi

Label1.Caption := IntToStr(StrToInt(IntToStr(StrToInt('157'))));

:D Hehehe

0

cos.vbs na 156:

last = 157


i = 0
while( i < last-1 )
  i = i + 1
wend

WScript.Echo i

;P

0

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
	}
}
0

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

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();
    }
}

:]

0

Chyba jeszcze nie bylo

Jezyk: ActionScript
liczba: 152

_root.createTextField("text",_root.getNextHighestDepth(),0,0,100,100);
_root.text.text="152";

pozdrawiam
johny

0
$liczba151 = 151;

echo $liczba151;
0

o kurde, nooby odkopują trupa! nekrofile jedne!

0 użytkowników online, w tym zalogowanych: 0, gości: 0