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.
Partager