150 downto 0 - pseudokonkurs

Iskar · Marzec 26, 2006

CYTAT(sazian) [quote] Poza tym z tego co wiem nie moze byc dwa razy tego samego jezyka wiec juz kilka razy spaliliscie. [/quote] to podaj mi 150 języków programowania

150 jezykow progamowania? przeciez to jest nic! sa setki jezykow.

Poza tym, nie 150 postow, tylko 151 ;-)

sazian · Marzec 26, 2006

macie jeszcze jakieś pomysły??

Blind · Marzec 26, 2006

Turbo Pascal

133
KODwrite(LPT1, 133);

Ekran to co innego niż drukarka

Jason · Marzec 26, 2006

C++, liczba 132:
Pascal#include <iostream>
using namespace std;
int main()
{
printf("%d",0x84);
}

Użyłem funkcji printf, zamiast cout, a żeby jeszcze to zagmatwać zapisałem liczbę w systemie szesnastkowym :twisted:

BTW. nigdy nie korzystałem z drukarki w Turbo Pascal'u, przynajmniej teraz wiem jak to mniej więcej wygląda
i ktosiu, zmień swojego posta, a funkcja MessageBox wymaga 4 parametrów :]

ktoś · Marzec 26, 2006

poprawiłem
Racja, Spine, przegapiłęm jeden paramertr.

a teraz kolejny kawałek
[code=Delphi]
procedure wyswietl;
begin
messagebox(0,'131', 'liczba',
NBY]B[ [/code]
uwaga na zawiechy

krajew4 · Marzec 27, 2006

KOD<?

$liczba=130;

print "$liczba";

?>

sazian · Marzec 27, 2006

KOD<html>

<head>

<script type="text/javascript" language="JavaScript">

function wyswietl(tekst)

{

var txt = document.getElementById('tekst');

txt.innerHTML=tekst;

}

</script>

</head>

<body onLoad="wyswietl('129')">

<br/><br/>

<div id='tekst'></div>

</body>

</html>
129
HTML+JS

Cubix · Marzec 27, 2006

[code=Delphi] WriteLn(inttostr(Inc(129, -1))); [/code]

128
Z INC

sazian · Marzec 27, 2006

[delphi][/delphi]
127 w delphi

TSr · Marzec 27, 2006

Pascal:
[code=Delphi]
program P_126;

uses
Math;

var
i : Integer;
^VH]NBBY[BHHY

HEśŁvW\"\"ĆEłŁEłuŁŃ1ĄŃltŃltŃltŃltŃlŃtŃltŃltr t[7]);

end. [/code]

Greensand · Marzec 27, 2006

Kod delphi z udziałem pętli:P
Oto kodzik...
[delphi][/delphi]

FAJNA ZABAWA !!!

sazian · Marzec 27, 2006

[code=Delphi]
function DowolnyNaDec(Liczba : String ; Podst : Integer) :[[BB[H[YBH[YBY[&W7VBŁbĆ7Ś&rr\"G7BfC\"\"AŃĄźź4(4(Ńź1ŃĄ1czba) do
begin
if Liczba[i] in ['A'..'Z'] then Dana H
XVWJHH
IĘH
LB[H[HHBĆ7Ś& amp;śbFćfwCłG7BFV04(Ią4(4(
4(4(Iult := Result + Dana * Trunc(Exp((Length(Liczba) - i) * Ln(P
JJH
B[B[BYHLK]PX6VćFW#D&ŚV7BŚ&Vv6vW76vRGF7G\"FvĆćFV24(4) [/code]

124

Jason · Marzec 28, 2006

Turbo Pascal, 123:
[code=Delphi] program l123;
uses crt,graph;
var sterownik, tryb: integerBY[B]X
ZXNB[]
Z'\"rć&vr6WEFWE7GĆRWEFWE#Ss#24)Ń4) [/code]

Polecam skompilować, bardzo ładnie wygląda :]

Kezard · Marzec 28, 2006

122 w OpenGL z użyciem czcionek bitmapowych

PascalGLvoid glPrint(GLint x, GLint y,int set, char *string,...)
{
char text[256];
va_list ap;

if (string == NULL)
return;

va_start(ap, string);
vsprintf(text, string, ap);
va_end(ap);

x = x*11;
y = screen_y_font - (y+1)*16;

if (set>1)set=1;
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_COLOR);

glEnable(GL_BLEND);

glBindTexture(GL_TEXTURE_2D, texture.GLTexture);
glDisable(GL_DEPTH_TEST);
glMatrixMode(GL_PROJECTION);
glPushMatrix();
glLoadIdentity();
glOrtho(0,screen_x_font,0,screen_y_font,-1,1);
glMatrixMode(GL_MODELVIEW);
glPushMatrix();
glLoadIdentity();
glTranslatef((float)x,(float)y,0);
glListBase(base-32+(128*set));
glCallLists(strlen(text),GL_BYTE,text);
glMatrixMode(GL_PROJECTION);
glPopMatrix();
glMatrixMode(GL_MODELVIEW);
glPopMatrix();
glEnable(GL_DEPTH_TEST);

glDisable(GL_BLEND);
}

...

glPrint(1,8,0,"Liczba : %i",122);

sazian · Marzec 28, 2006

121

[code=Delphi]
{1}
canvas.MoveTo(0,50);
canvas.LineTo(25,0);
canvas.LiUĘKML
NBCB[[UĘ
L
NB[[UĘLŚ6f2ĆćUFsRŚ6f2ĆćUFSsRŚ6f2ĆQź4)1Qź4)4)5Qź,50);
canvas.LineTo(150,0);
canvas.LineTo(150,150); [/code]

DarkAndrew · Marzec 28, 2006

fasmowe 120
KODinclude 'win32ax.inc'

.code

start:

invoke MessageBox, HWND_DESKTOP, '120','120',MB_OK

invoke ExitProcess,0

.end start

Budrys · Kwiecień 1, 2006

PHP

[code=PHP]
<?php
$win = 120 -1;
echo $win;
?> [/code]

Greensand · Kwiecień 7, 2006

Pomysłów wam zabrakło:)
118 w:
BeFunge...
[code=Delphi]
> v
@,,,,,,,,,,,,\"118\"
[/code]

ktoś · Kwiecień 7, 2006

raczej się przejadło.

<blink>117</blink>

html...

Jason · Kwiecień 7, 2006

A pomyśl sobię, że na 4programmers było o jedno zero więcej :twisted:

KaYou · Kwiecień 8, 2006

w pascal

[delphi][/delphi]
ot taki prosty kodzik

i jedziemy dalej. Hehe...

5corpio · Kwiecień 10, 2006

KODShowMessage(IntToStr($73));

Kezard · Kwiecień 10, 2006

SBasic :

KODvar liczba as Int

liczba = 114

Writeln(liczba)

TSr · Kwiecień 10, 2006

113 BrainFuck :
KOD>++++[<++++++++++>-]<+++++++++..++.

Iskar · Kwiecień 10, 2006

HLA:

KODprogram numer112;

#include ("stdlib.hhf")

begin numer112;

stdout.put("112" , nl);

end numer112;

Zaloguj się

150 downto 0 - pseudokonkurs

Polecane posty

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Link do komentarza

Udostępnij na innych stronach

Zarchiwizowany