Liczba: 1388 //php
plik index.html
<form enctype="multipart/form-data" action="index2.php" method="post"> <input type="submit" name="liczba" value="694"> </form>plik: index2.php
<? $liczba=$_POST['liczba']; $liczba*=2; echo $liczba; ?>konkursik [1500 downto 0]
- Rejestracja: dni
- Ostatnio: dni
0
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Proponuje automagicznie przeniesc sie do liczny np 200, bo w takim tempie i za rok nie przebrniemy, poza tym i tak juz jezyki sie powtarzaja
- Rejestracja: dni
- Ostatnio: dni
0
Według mnie to dobry pomysł. Bo <ort>w SPACJA końcu</ort> jak pomysły zaczną się kończyć to cały konkurs stanie w miejscu. Zresztą ile może <ort>trfać </ort>jeden konkurs?! [sciana]
- Rejestracja: dni
- Ostatnio: dni
0
A ja bym proponował, by wypisać tutaj listę znanych języków (tzn. takich, do których istnieją jakieś kompilatory/interpretery) + jakieś linki z informacjami o nich. Czasem warto sobie poczytać :)
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Dryobates napisał(a)
A ja bym proponował, by wypisać tutaj listę znanych języków (tzn. takich, do których istnieją jakieś kompilatory/interpretery) + jakieś linki z informacjami o nich. Czasem warto sobie poczytać :)
Kuba,wtedy kazdy bedzie (bez wiedzy swojej) uzywal wskazowek zeby wklepac odpowiedz :P
I bedzie tak ze wygrana bedzie nieobiektywna :D
a na powaznie jak ktos ma upor i mozg to sobie wygoogoluje taki jezyk i skladnie
- Rejestracja: dni
- Ostatnio: dni
0
Jest to assembler dla emulatora nieistniejacego procesora o dumnej nazwie 80x997 i ma to byc z zalozenia najbardziej porabany jezyk ;) Jest ciagle w fazie testow ale jak cos to na gg, zarzuce kompilatorem, emulatorem i smiesznym pol stronicowym manualem :P
7asm - 1387
movrd st $00
jmp $000A
align $000A
movrd nd $01
movrmr rd nd:st
movrd nd $F8
movmrr nd:st rd
addrd st 1
cmprd rd 0
je $FFFF
jmp $000A
align $0100
db 1387
- Rejestracja: dni
- Ostatnio: dni
0
asm 8051, liczba 1386
mov A, #0
setb A.1
rl A
rl A
setb A.1
setb A.6
setb A.5
mov 0, A
rr A
anl A,#5
mov P1,A
mov P0, 0
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Dobra ciach bajera ! :)
automagicznie ja podaje liczbe 200
w HTML :>
<font size="12">
200</span>
- Rejestracja: dni
- Ostatnio: dni
- Postów: 1652
0
Jezyk to odpisywania systemów multilotka:
echo "199"
- Rejestracja: dni
- Ostatnio: dni
- Postów: 3
0
Język: Piet
Specyfikacja: http://www.majcher.com/code/piet/
Liczba: 198
Wersja do 'czytania':
Wersja dla interpretera:
</image>
- Rejestracja: dni
- Ostatnio: dni
- Postów: 219
0
A ja daje w jezyku forumowiczow (przyszlych programistow :d)...
Liczba: 197
Sto Dziewiendziesiont Siedem
- Rejestracja: dni
- Ostatnio: dni
- Postów: 263
0
196:
type Liczba = class(TThread)
public
procedure Execute; override;
end;
procedure Liczba.Execute;
var i:integer;
begin
i:=0;
randomize;
while i<>196 do i:=random(100000);
showmessage(IntToStr(i));
end;
No i się gdzieś wpisuje Liczba.Execute; :)
- Rejestracja: dni
- Ostatnio: dni
0
Alpha4 - 195:
{set %M,"1"}
{do
{write 1,1,"195"}
while %M = "1"}
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
A+ , liczba 194
$mode ascii
while (1) drop "194"
- Rejestracja: dni
- Ostatnio: dni
- Postów: 3
0
Język: Q-BAL
Specyfikacja: http://homepage.eircom.net/~kmgaughan/esolang/q-bal/index.html
Liczba: 192
.P ;-1 -> ;
Q x = { 49, 57, 50 }
Q ct
#x -> ct
'out = x
ct-1 -> ct
; + 2 \ (ct != 0) -> ;
- Rejestracja: dni
- Ostatnio: dni
0
//-------------------------------------------
// Liczba 190
// Język C na procesor AT89s51, środowisko Keil uVision2
//---------------------------------------------*/
#include <REG52.H>
#include <stdio.h>
void main (void) {
//------------------------------------------------
//Ustawienie UART
//------------------------------------------------
SCON = 0x50;
TMOD |= 0x20;
TH1 = 221;
TR1 = 1;
TI = 1;
while (1) {
printf ("190\n");
}
}
- Rejestracja: dni
- Ostatnio: dni
- Postów: 5046
0
Liczba 189 - Basic na Atari:
10 Graphics 0
20 REM *-----------------------------------------------*
21 REM | Oczywiście można to załatwić prościej |
22 REM | Chciałem pokazać działanie operatora ; |
23 REM *-----------------------------------------------*
30 Print "18";
40 Print "9"
50 END
- Rejestracja: dni
- Ostatnio: dni
0
liczba 188 - simscript
print 1 line with
188
- Rejestracja: dni
- Ostatnio: dni
0
Algol - 187:
BEGIN
FILE F (KIND=REMOTE);
EBCDIC ARRAY E [0:11];
REPLACE E BY "187";
WHILE TRUE DO
BEGIN
WRITE (F, *, E);
END;
END.
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Turing - 186
loop
put "186"
end loop
- Rejestracja: dni
- Ostatnio: dni
- Postów: 21
0
Delphi, 185
var str : string;
begin
str:=' 111 88888888 5555555555 ' + #13#10 + '1111 88 88 555 ' + #13#10 + ' 111 88888888 5555555555 ' + #13#10 + ' 111 88 88 555' + #13#10 + ' 111 88888888 5555555555' + #13#10;
if Length(str) = 185 then showmessage(str);
end;
- Rejestracja: dni
- Ostatnio: dni
0
procedure Show184;
type T4Chr = array[0..3]of Char;
var P:pointer;
f:function:T4Chr;
s:string;
i:integer;
begin
p:=AllocMem(32);
s:=#$8B'x'#$08#$B9'xX'#$BD#$3B'p'#$AF'yX'#$B0#$B4#$80'yX'#$B0#$B4#$8C#$8B'j'#$0A#$BB'yZ'#$A8#$0A#$BB#$93'z{';
for i:=1 to Length(s) do
s[i]:=char(ord(s[i]) xor 184);
Move(s[1], p^, 32);
f:=p;
ShowMessage(f);
FreeMem(p);
end;
- Rejestracja: dni
- Ostatnio: dni
- Postów: 257
0
Assembler dla PIC'ów, liczba 183
<b>bsf</b> STATUS,RP0
<b>clrf</b> TRISB
<b>bcf</b> STATUS,RP0
<b>movlw</b> b'10110111'
<b>movwf</b> PORTB
- Rejestracja: dni
- Ostatnio: dni
0
var i,ii:integer;
begin
i:=100;
i:=i+100;
ii:=i;
ii:=ii-20;
i:=ii;
i:=i+2;
ii:=i;
Memo1.lines.add(IntToStr(ii));
end;
No i mamy 182 [green]
- Rejestracja: dni
- Ostatnio: dni
0
SAS - 181:
// EXEC SAS
//SAS.SYSIN DD *
DATA NPUT;
INPUT OUT $CHAR3.;
CARDS;
181
PROC PRINT;
/*
- Rejestracja: dni
- Ostatnio: dni
- Postów: 3356
0
FORTRAN 95, liczba 180 //Pisany z pamięci, więc uwaga na literówki :P
PROGRAM NOWALICZBA
INTEGER :: liczba
liczba = 180
! === Po tym komentarzu wyświetli 180 ===
WRITE (*,'(a,i4)') 'Liczba = ',i
END PROGRAM
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
178 w Sather:
class MAIN is
main is
loop
#OUT + "178\n"
end
end
end