Discussion :

[mo5bzn]

Bonjour à tous,
J'ai juste appris les sous-programmes en Pascal et voilà mon tout premier essai. Ce programme donne les nombres premiers entre deux bornes donneées (incluses), pouvez-vous m'aider avec vos avis et commentaires s'il manque quelque chose ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program premier;
uses crt;
var n,m,i:integer;
function test(n:integer):boolean;
var i:integer;
begin
if n=1 then test:=false else
begin 
i:=2;
while (i<=n) and (n mod i <> 0) do i:=i+1;
if i=n then test:=true else test:=false
end;
end;
 
begin
 
repeat
 
repeat
begin
readln(n);
readln(m);
end;
until n<m;
for i:=n to m do
begin if test(i)=true then write(i:4) end;
until false;
end.

[droggo]

Loa,

Oui, il manque quelque chose : une présentation claire et cohérente.

Donc : indentation régulière, aérer le code avec des lignes vides pour isoler les blocs logiques.

[Roland Chastain]

J'ajouterais qu'il n'y a pas de raison de déclarer systématiquement l'unité Crt. En l'occurrence, aucune des fonctions de cette unité n'est utilisée.

[mo5bzn]

J'ajouterais qu'il n'y a pas de raison de déclarer systématiquement l'unité Crt. En l'occurrence, aucune des fonctions de cette unité n'est utilisée.

J'utilise PascalGui sur Android et peur d'obtenir des messages d'erreur je la declare toujours.