Section courante

A propos

Section administrative du site

 Langage  Elément  Tutoriel  Programmation  Extension  Emulateur  Annexe  Aide 
ABAP/4
Ada
Assembleur
Assembly & bytecode
ASP (Active Server Pages)
Basic
C
C++
C# (C Sharp)
Cobol
ColdFusion
Fortran
HTML
Java
JavaScript
LISP
Logo
LotusScript
Oberon
Pascal
Perl
PHP
PL/1
Prolog
Python
Rebol
REXX
Ruby
Rust
SAS
NoSQL
SQL
Swift
X++ (Axapta)
GNAT
SMALLAda
VHDL
Assembleur 370
Assembleur 1802
Assembleur 4004
Assembleur 6502
Assembleur 6800
Assembleur 68000
Assembleur 8080 et 8085
Assembleur 8089
Assembleur 80x86
Assembleur AGC4
Assembleur ARM
Assembleur DPS 8000
Assembleur i860
Assembleur Itanium
Assembleur MIPS
Assembleur PDP-11
Assembleur PowerPC
Assembleur RISC-V
Assembleur SPARC
Assembleur SuperH
Assembleur UNIVAC I
Assembleur VAX
Assembleur Z80
Assembleur Z8000
Assembleur z/Architecture
ASSEMBLER/MONITOR 64
Micol Assembler
GFA Assembler
A86
MASM (Macro Assembler)
TASM (Turbo Assembler)
CIL
Jasmin
LLVM
MSIL
Parrot
P-Code (PCode)
SWEET16
G-Pascal
ASP 1.0
ASP 2.0
ASP 3.0
ASP.NET
ASP.NET Core
ABasiC (Amiga)
Adam SmartBASIC
Altair BASIC
AmigaBASIC (Amiga)
AMOS Basic (Amiga)
Atari Basic (Atari 400, 600 XL, 800, 800XL)
Basic Apple II (Integer BASIC/APPLESOFT)
Basic Commodore 64 (CBM-BASIC)
Basic Commodore 128 (BASIC 7.0)
Basic Commodore VIC-20 (CBM-BASIC 2.0)
Basic Coco 1 (Color Basic)
Basic Coco 2 (Extended Color Basic)
Basic Coco 3 (Extended Color Basic 2.0)
BASICA (PC DOS)
Basic Pro
BBC BASIC
Blitz BASIC (Amiga)
DarkBASIC
Dartmouth BASIC
GFA-Basic (Atari ST/Amiga)
GWBASIC (MS-DOS)
Liberty BASIC
Locomotive BASIC (Amstrad CPC)
MSX-Basic
Omikron Basic (Atari ST)
Oric Extended Basic
Power Basic
Quick Basic/QBasic (MS-DOS)
Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
ST BASIC (Atari ST)
Turbo Basic
Vintage BASIC
VBScript
Visual Basic (VB)
Visual Basic .NET (VB .NET)
Visual Basic pour DOS
Yabasic
BeckerBASIC
SIMONS' BASIC
Basic09 d'OS-9
Disk Extended Color Basic
Basic09 d'OS-9
Disk Extended Color Basic
Access
Excel
Visual Basic pour Windows
Visual Basic .NET pour Windows
C Shell Unix (csh)
C pour Amiga
C pour Atari ST
C pour DOS
C pour Falcon030
C pour GEMDOS (Atari ST)
C pour Linux
C pour PowerTV OS
C pour OS/2
C pour Unix
C pour Windows
Aztec C
CoCo-C
GNU C
HiSoft C
IBM C/2
Introl-C
Lattice C
Microsoft C
MinGW C
MSX-C
Open Watcom C
OS-9 C Compiler
Pure C
Quick C
Turbo C
HiSoft C for Atari ST
HiSoft C for CP/M (Amstrad CPC)
C++ pour OS/2
C++ pour Windows
Borland C++
C++Builder
IBM VisualAge C++
Intel C++
MinGW C++
Open Watcom C++
Symantec C++
Turbo C++
Visual C++
Visual C++ .NET
Watcom C++
Zortech C++
C# (C Sharp) pour Windows
Apple III Cobol
Microsoft Cobol
BlueDragon
Lucee
OpenBD
Railo
Smith Project
Microsoft Fortran
WATFOR-77
CSS
FBML
Open Graph
SVG
XML
XSL/XSLT
LESS
SASS
GCJ (GNU)
JSP
Jython
Visual J++
Node.js
TypeScript
AutoLISP
ACSLogo
LotusScript pour Windows
Amiga Oberon
Oberon .NET
Apple Pascal
Delphi/Kylix/Lazarus
Free Pascal
GNU Pascal
HighSpeed Pascal
IBM Personal Computer Pascal
Lisa Pascal
Maxon Pascal
MPW Pascal
OS-9 Pascal
OSS Personal Pascal
Pascal-86
Pascal du Cray Research
Pascal/VS
Pascal-XT
PURE Pascal
QuickPascal
RemObjets Chrome
Sun Pascal
THINK Pascal
Tiny Pascal (TRS-80)
Turbo Pascal
UCSD Pascal
VAX Pascal
Virtual Pascal
Turbo Pascal for CP/M-80
Turbo Pascal for DOS
Turbo Pascal for Macintosh
Turbo Pascal for Windows
CodeIgniter (Cadre d'application)
Drupal (Projet)
Joomla! (Projet)
Phalanger (PHP .NET)
phpBB (Projet)
Smarty (balise)
Twig (balise)
Symfony (Cadre d'application)
WordPress (Projet)
Zend (Cadre d'application)
PL360
PL/M-80
PL/M-86
Turbo Prolog
CPython
IronPython
Jython
PyPy
AREXX
Regina REXX
JMP
Btrieve
Cassandra
Clipper
CouchDB
dBASE
Hbase
Hypertable
MongoDB
Redis
Access
BigQuery
DB2
H2
Interbase
MySQL
Oracle
PostgreSQL
SAP HANA
SQL Server
Sybase
U-SQL
Introduction
Les remarques
Les opérateurs
Les instructions conditionnelles
Les instructions de boucle
Référence d'instructions et de fonctions
Les premiers pas
Les variables
Écrire des programmes BASIC simples
Les boucles
Une boucle dans une boucle (Minuterie)
Décisions, décisions,...
L'écran
Les couleurs
Chance aléatoire
Lecture de données
Aide à l'arithmétique
Aide avec les mots
Enregistrement de programmes
Éditer des programmes
Les questionnaires
Musique
Bonjour
Spécial
Temps
Trigonométrie
Sortie ROM
Année bissextile
ArcCos
ArcSin
Disk Extended Color Basic
VCC
Raccourci clavier (Shortcut Keys)
Emplacements de palette
Codes BASIC 128 à 255 / Écran de texte à basse définition
Codes BASIC 128 à 159 / Écran de texte à haute définition
RAM du Coco 3
Code d'erreur du Coco 3
Préface
Notes légal
Dictionnaire
Recherche

Lecture de données

Dans cette page, vous apprenez à lire à l'ordinateur. Pour ce faire, utilisez trois nouvelles commandes. READ, DATA et RESTORE. Vous apprenez également une nouvelle fonction : INT.

Lecture de données (les commandes DATA et READ)

Tapez et exécutez ce programme :

  1. 10 DATA POMMES, ORANGES, POIRES
  2. 20 FOR X=1 TO 3
  3. 30 READ F$
  4. 40 NEXT X

Rien ne semble se passer. Pour voir ce que l'ordinateur fait, ajoutez cette ligne et lancez le programme :

  1. 35 PRINT "F$= :" F$

La ligne 30 indique à l'ordinateur de : rechercher une ligne DATA, READ le premier élément de la liste (POMMES), donner à POMMES un étiquette F$, passer à l'élément suivant.

La deuxième fois que l'ordinateur arrive à la ligne 30, on lui dit de faire la même chose : recherche une ligne DATA, READ le premier élément (cette fois, c'est ORANGES), donnez à ORANGES l'étiquette F$, passez à l'élément suivant.

Vous pouvez insérer la ligne DATA où vous voulez dans le programme. Exécutez chacun de ces programmes. Ils fonctionnent tous de la même façon :

  1. 10 DATA POMMES
  2. 20 DATA ORANGES
  3. 30 FOR X=1 TO 3
  4. 40 READ F$
  5. 50 PRINT "F$ = :" F$
  6. 60 NEXT X
  7. 70 DATA POIRES
  1. 10 DATA POMMES, ORANGES
  2. 20 DATA POIRES
  3. 30 FOR X=1 TO 3
  4. 40 READ F$
  5. 50 PRINT "F$ = :" F$
  6. 60 NEXT X

  1. 30 FOR X=1 TO 3
  2. 40 READ F$
  3. 50 PRINT "F$ = :" F$
  4. 60 NEXT X
  5. 70 DATA POMMES
  6. 80 DATA ORANGES
  7. 90 DATA POIRES
  1. 30 FOR X = 1 TO 3
  2. 40 READ F$
  3. 50 PRINT "F$ = :" F$
  4. 60 NEXT X
  5. 70 DATA POMMES, ORANGES, POIRES

La syntaxe de DATA est :

DATA data items

Insère des éléments de données dans le programme.

La syntaxe de READ est :

READ variable

Lit l'élément de données suivant dans le programme et l'entrepose dans une variable.

Lire les mêmes données - encore et encore (la commande RESTORE)

Regardez le programme DATA original :

  1. 10 DATA POMMES, ORANGES, POIRES
  2. 20 FOR X=1 TO 3
  3. 30 READ F$
  4. 40 NEXT X

Que se passe-t-il si vous voulez que l'ordinateur affiche la même liste encore et encore ? Taper :

  1. 60 GOTO 10

Exécutez le programme. L'ordinateur affiche :

?OD ERROR IN 30

(Erreur de données à la ligne 30). La première fois que l'ordinateur lit les éléments de données, il les barre. Ensuite, lorsqu'on lui demande de revenir à la ligne 30 et de lire les données barrées, l'ordinateur affiche «? ERROR OD».

Tapez cette ligne et lancez le programme :

  1. 50 RESTORE     

Maintenant, c'est comme si l'ordinateur n'avait jamais barré aucun élément de données. Il lit les mêmes données encore et encore.

La syntaxe de RESTORE est :

RESTORE

Déplace le pointeur de données de l'ordinateur vers le premier élément de données.

Un test de construction de vocabulaire (la fonction INT)

Cet exemple de programme utilise DATA, READ et RESTORE pour que l'ordinateur vous perce sur les mots et les définitions. Voici les mots et définitions que nous utilisons :

  1. 10 DATA TACITE, HABITUELLEMENT NON PARLANT
  2. 20 DATA LOQUANTES, TRES BAVARD
  3. 30 DATA CRIARD, BRUYANT ET VEHEMENT
  4. 40 DATA BREF, CONCIS
  5. 50 DATA EXUBERANT, DEMONSTRATIF OU COMMUNICATIF

Pour écrire un programme dans lequel l'ordinateur vous perce sur ces mots et définitions, vous devez lui faire sélectionner des mots au hasard. Taper :

  1. 60 N=RND(10)
  2. 70 FOR X=1 TO N
  3. 80 READ A$
  4. 90 NEXT X
  5. 100 PRINT "LE MOT ALEATOIRE EST :"

Exécutez le programme plusieurs fois. À ce stade, le programme ne fonctionne pas tout à fait correctement. L'ordinateur est tout aussi susceptible de s'arrêter à une définition qu'à un mot.

Ce que l'ordinateur doit vraiment faire, c'est choisir un mot au hasard uniquement parmi les éléments 1, 3, 5, 7 ou 9, plutôt que parmi tous les éléments. En d'autres termes, N (le nombre aléatoire) doit toujours être un nombre impair.

Bien que BASIC n'ait pas de fonction convertissant les nombres pairs en nombres impairs, il a une fonction INT que vous pouvez utiliser pour effectuer cette conversion.

INT convertit un nombre en sa "partie entière" et supprime la partie décimale. Par exemple, INT(3.9) est égal à 3. La syntaxe de INT est :

INT(n)

Renvoie la partie entière de n. n peut être n'importe quel nombre.

Vous pouvez utiliser N pour convertir des nombres pairs en nombres impairs en tapant cette ligne :

  1. 65 IF INT(N/2)=N/2 THEN N=N-1

Voici ce que fait la ligne 65 :

Maintenant, ajoutez ces lignes pour que l'ordinateur lise la définition de chaque mot :

  1. 110 READ B$
  2. 120 PRINT"LA DEFINITION DE :" B$

Ajoutez ces lignes pour que l'ordinateur lise à partir de la même liste encore et encore :

  1. 130 RESTORE
  2. 140 GOTO 60

Listez le programme. Voici à quoi ressemble maintenant :

  1. 10 DATA TACITE, HABITUELLEMENT NON PARLANT
  2. 20 DATA LOQUANTES, TRES BAVARD
  3. 30 DATA CRIARD, BRUYANT ET VEHEMENT
  4. 40 DATA BREF, CONCIS
  5. 50 DATA EXUBERANT, DEMONSTRATIF OU COMMUNICATIF
  6. 60 N=RND(10)
  7. 65 IF INT(N/2)=N/2 THEN N=N-1
  8. 70 FOR X=1 TO N
  9. 80 READ A$
  10. 90 NEXT X
  11. 100 PRINT "LE MOT ALEATOIRE EST :"
  12. 110 READ B$
  13. 120 PRINT"LA DEFINITION DE :" B$
  14. 130 RESTORE
  15. 140 GOTO 60

COMMANDES

DATA
READ
RESTORE
FONCTIONS

INT
CONCEPTS

Extraction de données
Valeur entière


PARTAGER CETTE PAGE SUR
Dernière mise à jour : Samedi, le 11 mars 2023