c pas trop dur et étant en manque de prog, je te résouds tes problème maic parce que je suis en forme et généreux.
Il y a surement des bugs, tu les corrigeras :
var
str,temp : string;
i : integer
begin
Write('Entrer la chaine de caractère'
;
Read(str);
tmp='';
For i:=length(str) downto 1 do
tmp:= tmp + str[i];
Write('Chaine renversée : '+tmp);
end.
const
tablemax = 10;
type
tableau : array 1..tablemax of integer;
var
A,B : tableau;
exact : boolean;
i : integer;
begin
... remplissage du tableau
exact := true;
For i:=1 to tablemax then
if a[i]!=b[i] then exact := false;
If exact then
Write('A et B ont le même contenu'
else
Write('A et B n'ont pas le même contenu'
;
end.
var nombre : integer
function iscarre(nb : integer): boolean;
begin
If round(sqrt(nb)=sqrt(nb) then
iscarre := true
else
iscarre := false;
end;
begin
Write('Entrer le nombre'
;
Readln(nombre);
If iscarre(nombre) then
Write('Ce nombre est un carré, c'est le carré de '+ sqrt(nombre)
else
Write('Ce nombre n'est pas un carré'
;
end.
Je comprend pas l'énoncé du 3, sinon il faut peut être utilisé les uses crt entre autre pour le 3