Program pascal

Fermé

sarah666 Messages postés 16 Date d'inscription dimanche 29 juillet 2012 Statut Membre Dernière intervention 24 avril 2018 - Modifié par sarah666 le 17/06/2013 à 22:15
sarah666 Messages postés 16 Date d'inscription dimanche 29 juillet 2012 Statut Membre Dernière intervention 24 avril 2018 - 17 juin 2013 à 22:28

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-

A voir également:

Program pascal
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Dev-pascal - Télécharger - Édition & Programmation
Program files - Forum Windows 10
This program cannot be run in dos mode ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

Utilisateur anonyme
17 juin 2013 à 22:27

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.

Réponse 2 / 2

sarah666 Messages postés 16 Date d'inscription dimanche 29 juillet 2012 Statut Membre Dernière intervention 24 avril 2018
17 juin 2013 à 22:28

merci :D

Discussions similaires

ou se trouve le program files

Pourquoi Program files (x86) et Programmes?

Dossier Bonjour

Utilité de Client Installation Program ?

Invalid Configuration Information, solution SVP