Rechercher dans Kiteb.net

Aujourd'hui: Le 26 février 2017
Visites aujourd'hui : 1422
Top visites par jour : 20752
Le 18 mai 2016
Visiteurs en ligne: 6
  Accueil
Algo & programmation
edu
Matire informatique
Informatique
Formations
Exercices livre scolaire

Bac scientifiques

Exercices du livre scolaire (corrigs)



Formatage d'affichage


Exercice 8  : page 69

Prciser le rsultat obtenu la sortie d'un programme par les squences d'instruc-

tions suivantes :

VAR var1, var2, var3, var4, var5 : REAL;

o :

var1 vaut 1.2

var2 vaut 0.00089

var3 vaut 45

var4 vaut 10095.095

var5 vaut 2.7182818281

Squences d'instructions :

1) WRITE(var1 : 8 : 4);
2) WRITE(var2 : 8 : 4);
3) WRITE(var3 : 4 : 1);
4) WRITE(var4 : 3 : 1);
5) WRITE(var5 : 3 : 1);
6) WRITE(var1 : 6 : 4);
7) WRITE(var2 : 10 : 6);
8) WRITE(var3 : 10 : 6);
9) WRITE(var4 : 7 : 5);
10) WRITE(var5 : 10 : 4);


Corrig :

1- :

var1=1.2 var2 = 0.00089 var3 = 45 var4 = 10095.095 var5 = 2.7182818281


1
2
3
4
5
6
7
8
9
10
11
12
1) WRITE(var1 : 8 : 4); 1 . 2 0 0 0
2) WRITE(var2 : 8 : 4); 0 . 0 0 0 9
3) WRITE(var3 : 4 : 1); 4 5 . 0
4) WRITE(var4 : 3 : 1); 1 0 0 9 5 . 1
5) WRITE(var5 : 3 : 1); 2 . 7
6) WRITE(var1 : 6 : 4); 1 . 2 0 0 0
7) WRITE(var2 : 10 : 6); 0 . 0 0 0 8 9 0
8) WRITE(var3 : 10 : 6); 4 5 . 0 0 0 0 0 0
9) WRITE(var4 : 7 : 5); 1 0 0 9 5 . 0 9 5 0 0
10) WRITE(var5 : 10 : 4); 2 . 1 7 8 3




Exercice 9  : page 69

Ecrire un programme en Pascal permettant de lire 2 nombres entiers positifs inf-

rieurs 999 et affiche l'cran la multiplication et la division comme suit :


Corrig :

1- :


program ex9page69;

uses wincrt;

var

a,b:word;

begin

writeln('Donner 2 entiers positifs <999 :');

write('a=');readln(a);

write('b=');readln(b);

writeln;

writeln(a:6);

writeln(' x ',b:3);

writeln('........');

writeln('= ',a*b:4);

writeln;writeln;


writeln(a:3,' : ',b);

writeln(a mod b :3,' :....');

writeln(': ':6,a div b);

writeln(': ':6 );

end.









Date d'ajout de la page: 10/11/2013   Dernire mise jour de la page: 10/11/2013


Dernière modification: 03 février 2017

K i t e b . n e t © 2008-2017