program pascal

Question

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-

Utilisateur anonyme · Answer

Bonjour,

On peut écrire beaucoup plus court :

program nombre;

var a:real;
begin
	write('Choisir un nombre :');
	readln(a);

	if(a>0) then 
		writeln('A est positif')
	else
		writeln('A est négatif');

end.

sarah666 · Answer

merci :D

Program pascal

2 réponses

Votre réponse

Discussions similaires

Newsletters