programmation ac turbo pascal D exercice HELP

Question

Bonjour,

voila qqe exercice que je trouve pas la solution merci de me répondre !!!
ex1: 
calculer et afficher la valeur absolue d'un réal 

ex2: 
pour un caractère alphabétique saisi au clavier, afficher un message indiquant si ce caractère est  majuscule ou minuscule 

ex3; 
calculer un montant net après la réduction d'une remise sur un montant donné. cette remise est de la façon suivante:
5% si le montant est compris  entre 2000 euro inclus et 5000 euro inclus .
10% si le montant est supérieurs â 5000 euro

ex5: 
pour un caractère saisi au clavier, afficher un message indiquant sa nature (voyelle, consonne, chiffre, symbole)

voila merci :)))))

le programmeur · Accepted Answer

Ecuse moi du retard, je viens de faire la connaissance du cite.  
Exo 1
Program Valeur_absolue;  
Uses Crt;  
Var Nbre, ValAbs :Real;  
      Rep: Char;  
Begin  
 Repeat  
  Write ('Entrez votre nombre:','');  
  Readeln(Nbre:4:2);  
  ValAbs:= ABS(Nbre):4:2;  
  Write('La valeur absolue de ','',Nbre:4:2,'','est:','',ValAbs):4:2;  
  Write('Avez-vous d"autres nombres à rechercher la valeur absolue (o
)?:','');  
  Readln(Rep);  
 Until (Rep='N') Or (Rep='n');  
ENd.

le programmeur · Answer

EXO 2
Program Forme_d_1_caractere;
Uses Crt;
Var Car, Rep: Char;
Begin
Repeat
Clrscr;
Write('Saisissez votre caractère:','');
Repeat
Readln(Car);
If (ORD(Car)<>ORD(a)) And (ORD(CAR)<>(ORD(z)) Then
Write ('Saisissez un caractere alphabétique.');
Until (ORD(Car)<=ORD(a)) AND (ORD(Car)>=ORD(z));
CASE Car OF
'a'..'z': Write(Car,'','est Miniscule');
'A'..'Z': Write(Car,'','est Magiscule');
End;
Write('Avez-vous d"autres caractères à tester(o\n)?:','');
Readln(Rep);
Until (Rep='N') OR (Rep='n');
End.

Programmation ac turbo pascal D exercice HELP

2 réponses

Votre réponse

Discussions similaires

Newsletters