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.