A voir également:
- [pascal] problème lros de la compilation
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Breach compilation - Guide
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
1 réponse
Je n'ai rien trouvé sur le site, soit je suis vraiment pas doué soit...
enfin j'ai réussi a réglé mon premier problème a force de tout essayer, juste un problème avec mes begin et end
mais là j'ai un autre problème il veux pas que je crée mon tableau^^
j'ai le curseur devant le k dans la ligne:type tableau=array[1..k] of integer;
enfin mon programme ressemble a ça atm
Program deuxpalindrome;
function binaire(n:integer):integer;
var i:real;
j:integer;
k:integer;
begin
i:=n;
j:=1;
k:=1;
while i>=2 do
i:=i/2*j;
j:=j*2;
k:=k+1;
end;
procedure tablo;
type tableau=array[1..k] of integer;
var l:integer;
o:integer;
p:integer;
begin
p:=1;
for l:=1 to k do;
for o:=1 to k-l do;
p:=p*2;
if n-p>0 then tableau[l]:=1;
n:=n-p;
else tableau[l]:=0;
end;
function symetrique(tableau);
var flag:boolean;
m:integer;
begin
m:=1;
while m<k and flag=true do
if tableau[m]=tableau[k+1-m] then flag=true; else flag:=false;
end;
begin
writeln(flag)
end.
enfin j'ai réussi a réglé mon premier problème a force de tout essayer, juste un problème avec mes begin et end
mais là j'ai un autre problème il veux pas que je crée mon tableau^^
j'ai le curseur devant le k dans la ligne:type tableau=array[1..k] of integer;
enfin mon programme ressemble a ça atm
Program deuxpalindrome;
function binaire(n:integer):integer;
var i:real;
j:integer;
k:integer;
begin
i:=n;
j:=1;
k:=1;
while i>=2 do
i:=i/2*j;
j:=j*2;
k:=k+1;
end;
procedure tablo;
type tableau=array[1..k] of integer;
var l:integer;
o:integer;
p:integer;
begin
p:=1;
for l:=1 to k do;
for o:=1 to k-l do;
p:=p*2;
if n-p>0 then tableau[l]:=1;
n:=n-p;
else tableau[l]:=0;
end;
function symetrique(tableau);
var flag:boolean;
m:integer;
begin
m:=1;
while m<k and flag=true do
if tableau[m]=tableau[k+1-m] then flag=true; else flag:=false;
end;
begin
writeln(flag)
end.