QUELQUES EXERCICES SIMPLE 0 FAIRE

Aller en bas

QUELQUES EXERCICES SIMPLE 0 FAIRE

Message  Admin le Ven 8 Avr - 19:24

************
Effectuez le tournage à la main du programme suivant et indiquez-en le résultat.
PROGRAM TEST;
VAR q : INTEGER;
BEGIN
FOR q := 1 TO 10 DO
WRITELN(15, ' FOIS ', q, ' = ', 15*q)
END.

************
Effectuez le tournage à la main du programme suivant avec n = 10 et indiquez-en le résultat
PROGRAM Rebours;
USES FORMS;
VAR n : INTEGER;
BEGIN
WRITE('valeur initiale : ');
READLN(n);
WHILE n > 0 DO
BEGIN
n := n – 1;
WRITELN('LA VALEUR DE N EST : ', n);
END;
WRITELN('Fin')
END.

************
Corrigez les éventuelles erreurs de syntaxe du programme suivant qui présente un
exercice de calcul mathématique.
PROGRAM Reponse
VAR resultat : INTEGER;
BEGIN
REPEAT
WRITE(Combien font 14 fois 32?);
READLN('resultat');
UNTIL resultat = 448;
WRITELN('C'est exact!')
END.

************

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum