Program pascal
sarah666
Messages postés
22
Statut
Membre
-
sarah666 Messages postés 22 Statut Membre -
sarah666 Messages postés 22 Statut Membre -
Bonjour,
pouvez-vous corriger ce programme pascal s'il vous plait
instruction :
écrire un algorithme qui demande un nombre à l'utilisateur;et l'informe ensuite si ce nombre est positif ( on laisse de coté le cas ou le nombre vaut zéro)
program nombre;
uses wincrt ;
var
a:real;
begin ;
write('choisir un nombre quelconque',a)
readln(a)
IF a>0 :
then ;
begin;
a:=positif ;
end;
else :
if a<0 then :
begin :
a:= négatif
end
-sarah-
pouvez-vous corriger ce programme pascal s'il vous plait
instruction :
écrire un algorithme qui demande un nombre à l'utilisateur;et l'informe ensuite si ce nombre est positif ( on laisse de coté le cas ou le nombre vaut zéro)
program nombre;
uses wincrt ;
var
a:real;
begin ;
write('choisir un nombre quelconque',a)
readln(a)
IF a>0 :
then ;
begin;
a:=positif ;
end;
else :
if a<0 then :
begin :
a:= négatif
end
-sarah-
