série d'exercices algorithmique 3SI (Enoncé + correction)

Exercice 3 :

Ecrire un programme de conjugaison à toutes les personnes au temps de l'imparfait d'un verbe régulier du premier groupe.

Solution :

program Serie1Ex3;

uses wincrt;

var

verbe,terminaison,radical :string;

begin

writeln('Donner le verbe à conjuguer');

readln(verbe);

radical:=copy(verbe,1,length(verbe)-2);

terminaison:=copy(verbe,length(verbe)-1,2);

if terminaison<>'er' then

writeln('Il ne s''agit pas d''un verbe du premier groupe')

else

begin

writeln('Je ',radical,'ais');

writeln('Tu ',radical,'ais');

writeln('Il ',radical,'ait');

writeln('Elle ',radical,'ais');

writeln('Nous ',radical,'ions');

writeln('Vous ',radical,'iez');

writeln('Ils ',radical,'aient');

writeln('Elles ',radical,'aient');

end;

end.