Devinette.

[sc]

Votre ordinateur est-il intelligent ? Qui saura réaliser ceci ?

devinette.JPG (24.03 Kio) Consulté 21091 fois

(pour ceux qui le veulent, temps internet du spoilertempo : 1258801702)

[Lou]

Mouhaha mon ordinateur est intelligent

( Par contre pour l'autre, avec les système je bloque toujours, manque de connaissances de Maxima ><
Mais je ne me laisserais pas vaincre :P Je cherche, je cherche )

[-Theo-]

Je ne sais pas si ça vous intéresse, mais j'ai essayé de le programmer en C.
Mais peut être préférez vous qu'on n'utilise que Maxima ?

En tous cas, voici mon code :

Texte caché : cliquez sur le cadre pour l'afficher

long somme = 0;
long difference = 0;
long a = 0;
long b = 0;
printf("Pensez tres fort a deux nombres !\n");
printf("Quelle est la somme de ces deux nombres ? ");
scanf("%d", &somme);
printf("Quelle est la difference de ces deux nombres ? ");
scanf("%d", &difference);
a = (somme+difference)/2;
b = (somme-difference)/2;
printf("\n\nLes deux nombres sont %d et %d.\n", a, b);

system("PAUSE");
return 0;

[sc]

Ce qui est intéressant dans vos deux codes, c'est que le coeur du programme est le même.
Bravo !!
Voici ce que donnerait le fabuleux Lazarus.

[Lou]

Y'avait-il un moyen que le coeur du programme soit différent ?

Héhé fabuleux :)

[-Theo-]

Oui, la comparaison est sympa.
Bon, dans ce cas là, Maxima était plus simple, c'est sûr

Vous pourriez afficher le code Pascal de votre algorithme lazarien ?

Parce que ce langage reste assez hermétique pour moi, et j'aimerais mieux comprendre comment ça marche

[sc]

Bonsoir,
la plupart du code est généré tout seul par l'interface elle même.
La seule partie écrite "à la main" est la procedure TForm1.Button1Click(Sender: TObject);

Code: Tout sélectionner


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;          // un bouton
    Edit1: TEdit;              // une zone de texte éditable
    Edit2: TEdit;
    Label1: TLabel;            // des textes posés sur la fiche
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ProgressBar1: TProgressBar;     // une barre de progression
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var somme,diff : LongInt;
    no: Integer;
begin
  Label6.Visible:=False;
  ProgressBar1.visible:=True;
  for no :=0 to 10 do
    begin         // boucle de la barre de défilement :
      ProgressBar1.Position:=10*no;    // (purement esthétique)
      ProgressBar1.Refresh;            // rafraichir la barre.
      Sleep (100)                      // patiente 100 ms.
    end;
  somme := (StrToInt(Edit1.Text) + StrToInt(Edit2.Text))  ;
  somme := somme div 2;
  diff  := (StrToInt(Edit1.Text) - StrToInt(Edit2.Text))  ;
  diff  := diff div 2;
  Sleep (1000);
  Label6.Visible:=True;
  Label1.Caption :=IntToStr(somme);
  Label2.Caption :=IntToStr(diff)
end;

initialization
  {$I unit1.lrs}

end.