TPN°02 solution info1 .pdf

---

Ce document au format PDF 1.5 a été envoyé sur fichier-pdf.fr le 01/11/2015 à 20:53, depuis l'adresse IP 197.119.x.x. La présente page de téléchargement du fichier a été vue 412 fois.
Taille du document: 50 Ko (2 pages).
Confidentialité: fichier public

Aperçu du document

---

Centre Universitaire de Naama
Département des sciences et technologiques
Section : 1ème année ST

Module : Informatique 01

TP N°02 : Lecture/ Ecriture
Exercice 1 :

Readln ;

Program exo1 ;

End.

Var R, PER,SUR :real ;

Exercice 4 :

Begin

Program exo4 ;

Writeln(‘entrer la rayon’) ;Readln(R) ;

Var NB, PHT,TTVA,PTTC :real ;

PER :=2*pi*R ;

Begin

SUR :=pi*R*R ;

Writeln(‘entrer

Writeln(‘Périmètre=’,PER) ;

Readln(NB) ;

Writeln(‘Surface=’,SUR) ;

Writeln(‘entrer

Readln ;

taxes’) ; Readln(PHT) ;

End.

Writeln(‘entrer

Exercice 2 :

Readln(TTVA) ;

Program exo2 ;

PTTC :=NB*PHT*(1+TTVA) ;

Var Val, Double :real ;

Writeln(‘Le prix total TTC=’,PTTC) ;

Begin

Readln ;

Val :=121 ;

End

Double :=Val*2;

Exercice 5 :

Writeln(‘Val=’,Val) ;

Program moyenne ;

Writeln(‘Double =’, Double ) ;

VAR n1,n2,n3 : integer ;

Readln ;

le

nombre

d’article’) ;

le

nombre

prix

le

taux

de

hors

TVA’) ;

a,g,h,q : real ;

End.

BEGIN

Exercice 3 :

write(‘Entrer le premier nombre n1’) ;

Program exo3;

Readln(n1) ;

Var N, CARRE,CUBE :real ;

write((‘Entrer le deuxième nombre n2’) ;

Begin

Readln(n2) ;

Writeln(‘entrer Le nombre’) ;Readln(N) ;

write((‘Entrer le troisième nombre n3’) ;

CARRE:=N*N ;

Readln(n3) ;

CUBE :=N*N*N;

a := (n1+n2+n3)/3 ;

Writeln(‘Le carré=’, CARRE) ;

g := exp((ln(n1)+ln(n2)+ln(n3))/3) ;

Writeln(‘Le cube=’, CUBE ) ;
Chargé par : M. BRAHIMI Mohamed

Page 1

h := 3/(1/n1+1/n2+1/n3) ;
q := sqrt((n1*n1+n2*n2+n3*n3)/3) ;
writeln('Moyenne arithmétique : ',a) ;
writeln('Moyenne géométrique : ',g) ;
writeln('Moyenne harmonique : ',h) ;
writeln('Moyenne quadratique : ',q) ;
readln ;
END.

Chargé par : M. BRAHIMI Mohamed

Page 2



Sur le même sujet..

---