SDWE du 3/4 Déc. : Votre ligne de BASIC

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
Avatar du membre
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3639
Enregistré le : 06 sept. 2011 14:57
Localisation : Normandie

SDWE du 3/4 Déc. : Votre ligne de BASIC

Message par Hobiecat »

Code : Tout sélectionner

10 PRINT "Quel est votre programme Basic sur une seule ligne dont vous êtes le plus fier ?": INPUT A$ : PRINT "Ce programme BASIC est :"; A$
A vous de jouer ! :wink:
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2143
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: SDWE du 3/4 Déc. : Votre ligne de BASIC

Message par cgh »

Code : Tout sélectionner

10 WAIT 20:CLS :FOR I=155TO 0STEP -1:GCURSOR I:GPRINT "3C7F3C7C3E7A3E203E7A3E3A3E7A3E00":NEXT I
Sur PC1500 ;)
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
rogeroge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4250
Enregistré le : 14 mai 2010 21:41
Localisation : Entre Nancy et Bercy : à Torcy

Re: SDWE du 3/4 Déc. : Votre ligne de BASIC

Message par rogeroge »

Code : Tout sélectionner

1 KEY OFF:CLS:?:?:? "CODE ASCII n° 32 à 127":?:FOR A = 32 TO 127: ? A;"=";CHR$(A);" ";:NEXT A:?:?
Ce programme monoligne écrit en GW-BASIC donne les codes ASCII de 32 à 127 sur un PC.
Il faut être fou pour venir sur ce site mais encore plus fou pour ne pas y revenir !
Avatar du membre
dizzy33
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1463
Enregistré le : 13 févr. 2007 20:39
Localisation : Bordeaux

Re: SDWE du 3/4 Déc. : Votre ligne de BASIC

Message par dizzy33 »

Ça me rappelle la rubrique des deuxligneurs dans l'hhhhebdo ...
**** COMMODORE 64 BASIC V2 ****
64K RAM SYSTEM 38911 BASIC BYTES FREE
READY.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3419
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: SDWE du 3/4 Déc. : Votre ligne de BASIC

Message par C.Ret »

Combien d'exercices d'analyse fonctionnelle résolus et de courbes tracées à la main point par point avec cette ligne de code ?

Code : Tout sélectionner

10 "=" AREAD X : PRINT X , AXX+BX+C : END
P.S.: Notons que la touche = est sur un PC-1211 la touche accessible en mode DEF juste en dessous de la touche P (P pour polynôme)

Quand fût venu le temps de traiter les polynômes de degré supérieur, je fus armé d'un HP-28S et donc la ligne calculant AXXX+BXX+CX+D ne vit jamais le jour (ou tout au moins ne fût pas exploitée autant que cette ligne 10 là !

Mais, en RPL, un code d'une seule ligne c'est quoi ?

Code : Tout sélectionner

« → x 'a*x^2+b*x+c' »
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Répondre

Retourner vers « Tous les Pockets »