Programme Pascal-2

Program VerifierTableauxIdentiques;
uses crt;
const
TAILLE_TABLEAU = 5;
type
Tableau = array[1..TAILLE_TABLEAU] of integer;
var
tableau1, tableau2: Tableau;
i: integer;
identiques: boolean;

procedure SaisirTableau(var tab: Tableau);
begin
writeln('Entrez les ', TAILLE_TABLEAU, ' DES ELEMENTS DU TABLEAU :');
for i := Low(tab) to High(tab) do
readln(tab[i]);
end;

function TableauxIdentiques(tab1, tab2: Tableau): boolean;
var
j: integer;
result:boolean;
begin

Result := true;

for j := Low(tab1) to High(tab1) do
begin

if tab1[j] <> tab2[j] then
begin
Result := false;

end;
end;
TableauxIdentiques:=result;
end;
begin
SaisirTableau(tableau1);
SaisirTableau(tableau2);
identiques := TableauxIdentiques(tableau1, tableau2);
if identiques then
writeln('Les tableaux sont identiques.')
else
writeln('Les tableaux ne sont pas identiques.');
readkey;
end.
        

program MotsOrdreAlphabetique;

var
  chaine: string;
  mots: array of string;
  mot: string;
  i, j: integer;

begin
  // Demander à l'utilisateur d'entrer une chaîne de caractères
  writeln('Entrez une chaîne de caractères : ');
  readln(chaine);

  // Initialiser un tableau dynamique pour stocker les mots
  SetLength(mots, 0);

  // Initialiser le mot courant à une chaîne vide
  mot := '';

  // Parcourir chaque caractère de la chaîne
  for i := 1 to length(chaine) do
  begin
    // Si le caractère est une lettre, ajouter au mot courant
    if chaine[i] in ['a'..'z', 'A'..'Z'] then
      mot := mot + chaine[i]
    // Si le caractère n'est pas une lettre, vérifier si le mot courant est non vide
    else if mot <> '' then
    begin
      // Ajouter le mot courant au tableau de mots
      SetLength(mots, Length(mots) + 1);
      mots[Length(mots) - 1] := mot;
      // Réinitialiser le mot courant
      mot := '';
    end;
  end;

  // Ajouter le dernier mot s'il n'est pas vide
  if mot <> '' then
  begin
    SetLength(mots, Length(mots) + 1);
    mots[Length(mots) - 1] := mot;
  end;

  // Trier les mots dans l'ordre alphabétique
  for i := 0 to Length(mots) - 1 do
  begin
    for j := i + 1 to Length(mots) - 1 do
    begin
      if lowercase(mots[i]) > lowercase(mots[j]) then
      begin
        // Échanger les mots
        mot := mots[i];
        mots[i] := mots[j];
        mots[j] := mot;
      end;
    end;
  end;

  // Afficher les mots dans l'ordre alphabétique
  writeln('Mots dans l''ordre alphabétique :');
  for i := 0 to Length(mots) - 1 do
  begin
    writeln(mots[i]);
  end;
end.

        

program premiermajuscule;
uses crt;
var
  i,nbmots: Integer;
  trouvemot: Boolean;
  chaine,mot:string;
begin
write('ENTRER UNE CHAINE :');read(chaine);
  nbmots := 0;
  trouvemot := False;
   mot:='';
  for i := 1 to Length(chaine) do
  begin

    if (chaine[i]<>' ') then
    begin

      if not trouvemot then
      begin
      mot:=mot+chaine[i];
        if mot[1] in ['A'..'Z'] then
		begin
        trouvemot := True;
		writeln(mot);

		end;
      end;
    end
     else
    begin
      trouvemot := False;
      mot:='';
    end;
  end;

  readkey;
  end.
        

Program rech_nombre;
uses crt;
var
T:array[1..50] of integer;
NombreRecherche: integer;
i,taille: integer;
trouve: boolean;
begin
Write('Donner la taille du tableau :');
Read(taille);
writeln('Entrez les ', TAILLE, ' élements du tableau :');
for i := 1 to taille do
readln(T[i]);
writeln('Entrez le nombre … rechercher dans le tableau :');
readln(nombreRecherche);
trouve := false;
for i := 1 to taille do
begin
if t[i] = NombreRecherche then
begin
trouve := true;
Break;
end;
end;
if trouve then
writeln('Le nombre ', nombreRecherche, ' existe dans le tableau.')
else
writeln('Le nombre ', nombreRecherche, ' n''existe pas dans le tableau.');
Readkey;
end.
        

program NotesSuperieuresAMoyenne;
uses crt;
const
NB_NOTES = 10;
var
notes: array[1..NB_NOTES] of real;
somme, moyenne: real;
i, notesSupMoyenne: integer;
begin
clrscr;
writeln('Entrez les ',NB_NOTES,' notes :');
for i := 1 to NB_NOTES do
readln(notes[i]);
somme := 0;
for i := 1 to NB_NOTES do
somme := somme + notes[i];
moyenne := somme / NB_NOTES;
writeln('La moyenne des notes est : ', moyenne:0:2);
writeln('Les notes qui sont supérieurs à la moyenne sont : ');
notesSupMoyenne := 0;
for i := 1 to NB_NOTES do
begin
if notes[i] > moyenne then
begin
notesSupMoyenne := notesSupMoyenne + 1;
writeln(notes[i]:0:2);
end;
end;

writeln('Total des notes supérieures à la moyenne est : ', notesSupMoyenne);
Readkey;
end.