Comment programmer avec une calculatrice
Résolu/Fermé
A voir également:
- Comment programmer une calculatrice scientifique
- Comment calculer une moyenne sur excel - Guide
- Installer calculatrice sur mon portable - Télécharger - Calcul & Conversion
- Calculatrice gratuit - Télécharger - Calcul & Conversion
- Programmer sms - Guide
- Programmer mail gmail - Guide
6 réponses
Valdil
Messages postés
253
Date d'inscription
mercredi 30 mai 2007
Statut
Membre
Dernière intervention
4 août 2008
150
14 févr. 2008 à 15:31
14 févr. 2008 à 15:31
Bonjour, va voir https://openclassrooms.com/fr/courses ou là encore mieux apparement http://www.jeuxcasio.com/modules/cours/programmation_basic.pdf
Voilà demande à google quand tu ne sais pas ;)
Voilà demande à google quand tu ne sais pas ;)
un programe calculatrice en pascal
Program TP1;
Uses Crt;
Var M1,M2,X:Real; choix:Char;
Procedure Effacer(Tout:Boolean);
begin
M1:=0;
IF Tout=True then M2:=0;
end;
Procedure Store;
begin
M2:=M1;
end;
Procedure Addition(A:Real);
begin
M1:=M1+A;
end;
Procedure Soustraction(A:Real);
begin
M1:=M1-A;
end;
Procedure Multiplication(A:Real);
begin
M1:=M1*A;
end;
Procedure Division(A:Real);
begin
IF A<>0 then M1:=M1/A
Else Writeln('ERREUR!: A ne doit pas ˆtre=0');
end;
Procedure DivX(A:Real);
begin
IF A<>0 then M1:=ABS(INT(M1))/INT(A)
Else writeln('ERREUR!: A ne doit pas ˆtre=0');
end;
Procedure Factoriel;
var E:Real;
begin
M1:=ABS(INT(M1)); E:=M1-1;
While E>1 do Begin
M1:=M1*E; E:=E-1;
End;
end;
Procedure Puissance(A:Real);
var E:Real;
begin
IF A=0 then M1:=1
Else Begin
E:=ABS(INT(A));
While E>0 do begin
M1:=M1*E; E:=E-1;
end;
End;
end;
BEGIN
ClrScr;
Repeat
GoToXY(15,1); Writeln ('********** PROGRAMME MACHINE A CALCULER **********');
GotoXY(38,3); Writeln ('MENU');
GoToXY(28,5); Writeln('1) Saisir la M‚moire M1');
GoToXY(28,6); Writeln('C) Effacer la M‚moire M1');
GoToXY(28,7); Writeln('T) Tout Effacer');
GoToXY(28,8); Writeln('S) Store');
GoToXY(28,9); Writeln('+) Addition');
GoToXY(28,10); Writeln('-) Soustraction');
GoToXY(28,11); Writeln('*) Multiplication');
GoToXY(28,12); Writeln('/) Division');
GoToXY(28,13); Writeln('%) Division EntiŠre');
GoToXY(28,14); Writeln('P) Puissance');
GoToXY(28,15); Writeln('!) Factoriel');
GoToXY(28,16); Writeln('Q) Quitter');
GoToXY(17,18); Write('M1=',M1:2:4); Write(' M2=',M2:2:4);
GoToXY(28,20); Write('Choix:'); Read(choix);
Case choix Of
'1':begin GoToXY(17,22); Write('Entrer la valeur de M1:'); Readln(M1); end;
'C','c':Effacer(False);
'T','t':Effacer(True);
'S','s':Store;
'!':Factoriel;
Uses Crt;
Var M1,M2,X:Real; choix:Char;
Procedure Effacer(Tout:Boolean);
begin
M1:=0;
IF Tout=True then M2:=0;
end;
Procedure Store;
begin
M2:=M1;
end;
Procedure Addition(A:Real);
begin
M1:=M1+A;
end;
Procedure Soustraction(A:Real);
begin
M1:=M1-A;
end;
Procedure Multiplication(A:Real);
begin
M1:=M1*A;
end;
Procedure Division(A:Real);
begin
IF A<>0 then M1:=M1/A
Else Writeln('ERREUR!: A ne doit pas ˆtre=0');
end;
Procedure DivX(A:Real);
begin
IF A<>0 then M1:=ABS(INT(M1))/INT(A)
Else writeln('ERREUR!: A ne doit pas ˆtre=0');
end;
Procedure Factoriel;
var E:Real;
begin
M1:=ABS(INT(M1)); E:=M1-1;
While E>1 do Begin
M1:=M1*E; E:=E-1;
End;
end;
Procedure Puissance(A:Real);
var E:Real;
begin
IF A=0 then M1:=1
Else Begin
E:=ABS(INT(A));
While E>0 do begin
M1:=M1*E; E:=E-1;
end;
End;
end;
BEGIN
ClrScr;
Repeat
GoToXY(15,1); Writeln ('********** PROGRAMME MACHINE A CALCULER **********');
GotoXY(38,3); Writeln ('MENU');
GoToXY(28,5); Writeln('1) Saisir la M‚moire M1');
GoToXY(28,6); Writeln('C) Effacer la M‚moire M1');
GoToXY(28,7); Writeln('T) Tout Effacer');
GoToXY(28,8); Writeln('S) Store');
GoToXY(28,9); Writeln('+) Addition');
GoToXY(28,10); Writeln('-) Soustraction');
GoToXY(28,11); Writeln('*) Multiplication');
GoToXY(28,12); Writeln('/) Division');
GoToXY(28,13); Writeln('%) Division EntiŠre');
GoToXY(28,14); Writeln('P) Puissance');
GoToXY(28,15); Writeln('!) Factoriel');
GoToXY(28,16); Writeln('Q) Quitter');
GoToXY(17,18); Write('M1=',M1:2:4); Write(' M2=',M2:2:4);
GoToXY(28,20); Write('Choix:'); Read(choix);
Case choix Of
'1':begin GoToXY(17,22); Write('Entrer la valeur de M1:'); Readln(M1); end;
'C','c':Effacer(False);
'T','t':Effacer(True);
'S','s':Store;
'!':Factoriel;
très bon site de programmes pour calculatrice TI tout les calculs sont détaillés :) je le recommande
http://progcalc.freeheberg.com/
http://progcalc.freeheberg.com/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cazaurg
Messages postés
216
Date d'inscription
mardi 15 décembre 2009
Statut
Membre
Dernière intervention
13 janvier 2013
31
19 janv. 2010 à 10:48
19 janv. 2010 à 10:48
bonjour j'ai une calculatrice Casio fx-7900GC et je voudrait un programme de jeu. Mais je ne veux pas le programme lui même je veux le texte du programme car je n'ai pas de câble pour connecter ma calculatrice a l'ordinateur. Donc je veux le texte du programme de jeu que je pourrai recopier dans ma calculatrice. voila si quelqu'un pouvait m'aider par ce que j'ai chercher partout ou je pouvais sur internet et je n'ai jamais trouver qu'un programme en fichier a mettre sur la calculatrice depuis l'ordinateur. Donc voila et au fait je voudrait un jeu du genre snake ou un jeu de moto ou d'adresse enfin je suis pas difficile mais pas un jeu de fille svp merci
Salut
Tu peut fabriquer ton câble si t'en sens capable : cé très simple, il te faut des composants ordinaire comme des condensateurs, il faut juste trouver une puce spéciale (tu doit connaître, ca resemble a un mille patte) c'est un micro-contrôleur max 232 (a oui il te faut un port serie sur ton PC) c'est assez courant sur le marché.
Si tu a un fer a souder, de l'étain et les composants adéquat, il te faudra reproduire ce schéma, pour ce va sur cette page, c'est bien expliqué : https://www.casioexpert.com/interface-pc.php
Tu devrai souder ton circuit sur une carte electronique d'essai, cé super pour faire des essais : http://www.conrad.fr/952328/grande/prix-a-partir-de-4.20/composants/plaque-d-essai-euro.jpg
Moi je l'ai deja fait et ca marche très bien.
Ou sinon tu peut recopier le programme sur la calculatrice mais ca t'énervera vite. (j'ai deja essayé et jai opté pour la fabrication du cable, ca prend moins la tête).
Après tu va sur le site jeuxcasio.com et tu télécharger un programme pour transmettre les donnés sur ta calculatrice. (moi j'utilise fx interface et ca marche très bien)
Cela permettra aussi de décripter le programme pour pouvoir le recopier sur la calculatrice.
Pour tes jeux, tu a le choix encore une fois sur le site jeuxcasio.com et ya un jeu qui t'intéressera peut etre, c'est une sorte de snakes regarde ici : http://www.jeuxcasio.com/viewdownloaddetails-227-Casio.html
Tu peut fabriquer ton câble si t'en sens capable : cé très simple, il te faut des composants ordinaire comme des condensateurs, il faut juste trouver une puce spéciale (tu doit connaître, ca resemble a un mille patte) c'est un micro-contrôleur max 232 (a oui il te faut un port serie sur ton PC) c'est assez courant sur le marché.
Si tu a un fer a souder, de l'étain et les composants adéquat, il te faudra reproduire ce schéma, pour ce va sur cette page, c'est bien expliqué : https://www.casioexpert.com/interface-pc.php
Tu devrai souder ton circuit sur une carte electronique d'essai, cé super pour faire des essais : http://www.conrad.fr/952328/grande/prix-a-partir-de-4.20/composants/plaque-d-essai-euro.jpg
Moi je l'ai deja fait et ca marche très bien.
Ou sinon tu peut recopier le programme sur la calculatrice mais ca t'énervera vite. (j'ai deja essayé et jai opté pour la fabrication du cable, ca prend moins la tête).
Après tu va sur le site jeuxcasio.com et tu télécharger un programme pour transmettre les donnés sur ta calculatrice. (moi j'utilise fx interface et ca marche très bien)
Cela permettra aussi de décripter le programme pour pouvoir le recopier sur la calculatrice.
Pour tes jeux, tu a le choix encore une fois sur le site jeuxcasio.com et ya un jeu qui t'intéressera peut etre, c'est une sorte de snakes regarde ici : http://www.jeuxcasio.com/viewdownloaddetails-227-Casio.html
cazaurg
Messages postés
216
Date d'inscription
mardi 15 décembre 2009
Statut
Membre
Dernière intervention
13 janvier 2013
31
26 janv. 2010 à 16:03
26 janv. 2010 à 16:03
c'est gentil d'avoir répondu mais je n'ai pas de condensateur sous la main ni de fer a souder ni rien d'autre et meme si au lycée on m'appelle mcgaver je suis bricoloman alors si il y a un moyen de couper un fil de prise jack et de l'autre prise dont tu me parler et de les relie entre eux la je veux. En plus j'ai ete voir le schema je n'y comprend rien merci quand meme . Amicalement cazaurg