programmation ac turbo pascal D exercice HELP Fermé

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 )?:',''); Readln(Rep); Until (Rep='N') OR (Rep='n'); End.

Programmation ac turbo pascal D exercice HELP

2 réponses

Discussions similaires