Discussion :

[mf.chedly]

Voilà, j'ai créé un logiciel en Pascal qui permet de calculer la somme de deux entiers. En Pascal il ne faut pas dépasser 32767 mais avec ce programme on peut dépasser 32767.
Vos avis sur mon projet svp
dsl pour mon pauvre français

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program mfchedly;
uses wincrt;
var
  ch1,ch2,ch,ch3:string;
  divx,test1,test2,n1,n2,i,x1,x2,x,e:integer;
begin
  repeat
    test1:=0;
    writeln('Saisir un entier');
    readln(ch1);
    for i := 1 to length(ch1) do
      if ch1[i] in ['0','1','2','3','4','5','6','7','8','9' ]then
        test1:= test1+1 ;
  until test1=length(Ch1);
  repeat
    test2:=0;
    writeln('Saisir un autre entier');
    readln(ch2);
    for i:= 1 to length (ch2) do
      if ch2[i] in ['0','1','2','3','4','5','6','7','8','9' ]
        then test2:=test2+1  ;
  until test2=length(ch2);
  if length(ch1) > length(ch2)  then
    begin
      for i:= 1 to (length(ch1)-length(ch2))do
        insert('0',ch2,1)
    end
  else
    if length(ch2) > length(ch1) then
      for i:= 1 to (length(ch2)-length(ch1)) do
        insert('0',ch1,1);
  insert('0',ch1,1);
  insert('0',ch2,1);
  x1:=0 ;
  ch3:='';
  for i:= length(ch1) downto 1 do
    begin
      val(ch1[i],n1,e);
      val(ch2[i],n2,e);
      if x1+n2+n1 in [10..19] then
        begin
          divx:=x1+n1+n2;
          divx:= divx mod 10;
          str(divx,ch);
          ch3:=ch+ch3 ;
          x1:=1;
        end
      else
        begin
          x2:=x1+n1+n2;
          str(x2,ch);
          ch3:=ch+ch3;
          x1:=0;
        end;
    end;
  if ch3[1]='0' then delete(ch3,1,1);
  writeln(ch3);
end.

[kaikait]

sinon,

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
program addition;
 
var
   x : longint;
   y : longint;
 
begin
 
   writeln('x1 ? ');
   readln(x);
   writeln('x2 ? ');
   readln(y);
 
   writeln('L''addition des deux nombres vaut : ', x+y, '.');
 
end.

mais il est limité également

[M.Dlb]

C'est un concours ?

Code :

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

1
2
3
4
5
6
program addition;
 
begin
  writeln('1 + 1 = 2');
  readln;
end.

Plus sérieusement, tu devrais revoir ton code et le rendre lisible et compréhensible mf.chedly. Parce que là, c'est illisible, je n'ai même pas pris la peine de regarder vu la tête du code...

[droggo]

Foe,

Il faut correctement présenter le code (indentation, aération par des lignes vides pour séparer les différents blocs, commentaires...)

ET éclater tout ça en fonctions/procédures pour rendre le code plus facile à suivre.

Comme il est écrit, je n'ai pas envie de plonger dans ton code.

[darrylsite]

j' ai eu à faire une unité traitant toutes les operations basiques sur des grands entiers (300 chiffres) pour le besion de la cryptographie RSA. Le probleme qui se pose alors est le cout du calcul.
Je te donne en piece jointe cette unité.

[mf.chedly]

ouiii mais c'est ma premier pas vers la programmation.
Merci a vous amis
La prochaine fois ça sera améliorer