Department of Mathematics and Computer Science

www.univ-soukahras.dz/en/dept/mi

Module: Algorithmique et structure de données 1

  1. Information
  2. Questions

Le menu

0 votes

comment ecrire un menu dans PASCAL qu'il contient 4 exercice ( exo 1,exo 2,exo 3et exo 4)

et dans le 2émé exercice contient ausssi 3 sous  exercice .

Remarque : dans chaque exercice il y'a un vide c'eat à dire ( begin _vide_ end)

bonne courage .

Asked on 19:11, Thursday 16 Nov 2017 By Islam Yagoub (74 points)
In Algorithmique et structure de données 1


answers (8)




Answer (1)

0 votes

Program menu;

Var ch,ch1 :integer;

Begin

Repeat

  Writeln ('1----exercise01');

  Writeln ('2----exercise02');

  Writeln ('3----exercise03');

  Writeln ('4----exercise04');

Case ch of

Begin

1:begin

End;

2:begin

Writeln ('choiser un exercise');

Writeln ('1-----ex01');

Writeln ('2-----ex02');

Writeln ('3------ex03');

Case ch1 of 

Begin

1:begin

End;

2:begin

End;

3:begin

End;

4:writeln ('reterner à la menu');readln (ch1);

End;

3:begin

End;

4:begin

End;

5:highvideo;writeln ('merci pour entre le programme');readln (ch);

End;

End.

Answered on 19:50, Thursday 16 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (2)

1 votes

Program menu;

Uses crt;

Var ch:integer;

Begin

Clrscr

Repeat

Write('1..exo1');

Write('2...exo2');

Write('3...exo3');

Writel('4...la fin de menu');

Read(ch);

Case ch of

1:begin

  End ;

2:begin

Repeat

Writeln('1...sou exo 1');

Writeln('2...sou exo 2');

Writeln('3...sou exo 3');

Writeln('4....fin d exercise');

Read(ch);

Case ch of

1:begin

  End;

2:begin

  End;

3:begin

  End;

4:writeln('merci pour votre repense');

End;

Until ch=4

End;

3:begin

End;

4:high vidio;writeln('merci becoupe');

End;

Until ch:4;

.end

Answered on 20:00, Thursday 16 Nov 2017 by amina monebbah (61 points)
In Algorithmique et structure de données 1



Answer (3)

-2 votes

program menu;

uses crt;

var ch:integer;

begin

clrscr;

repeat

writeln('1......exercice01');

writeln('2.....exercice02');

writeln('3.....exercice03');

writeln('4....la fin de serie');

readln(ch);

case ch of

1:

  begin

  end;

2:

  begin

writeln('choisir un exercice');

writeln('1.....exercice02');

writeln('2.....exercice03');

case ch1 of

 begin

1:

  begin

  end;

2:

  begin

  end;

3:

  begin

  end;

4:

  writeln('retourner a menu'):

readln(ch);

end;

end;

  end;

3:

  begin

  end;

4:

  begin

   write('merci davoir utiliser notre programme');

  until ch=4

   end;

end.

Answered on 17:40, Friday 17 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (4)

0 votes

Program menu;

Var ch,ch1 :integer;

Begin

Repeat

  Writeln ('1----exercise01');

  Writeln ('2----exercise02');

  Writeln ('3----exercise03');

  Writeln ('4----exercise04');

Case ch of

Begin

1:begin

End;

2:begin

Writeln ('choiser un exercise');

Writeln ('1-----ex01');

Writeln ('2-----ex02');

Writeln ('3------ex03');

Case ch1 of 

Begin

1:begin

End;

2:begin

End;

3:begin

End;

4:writeln ('reterner à la menu');readln (ch1);

End;

3:begin

End;

4:begin

End;

5:highvideo;writeln ('merci pour entre le programme');readln (ch);

End;

End.

Answered on 21:01, Saturday 18 Nov 2017 by نسرين ولهي (106 points)
In Algorithmique et structure de données 1



Answer (5)

0 votes

Amina Mounabeh est la plus proche (on écris Highvideo comme ça !?).

pour tout les autres, ils ont oublié de lire le choix une fois le menu est affiché Read(ch);

Très bien mes étudiants,

Bon courage.

Answered on 12:31, Monday 20 Nov 2017 by Noureddine GASMALLAH
In Algorithmique et structure de données 1



Answer (6)

0 votes

program menu;

var ch1,ch2:integer;

begin

repeat

  writeln('exercice01');

  writeln('exercice02');

  writeln('exercice03');

  writeln('exesrcice04');

 read(ch1);

   cas ch1 of

1:begin

end;

2:begin

    repeat

    write('exercice 1');

    write('exercice2');

    write('exercice3');

    read(ch2);

    cas ch2 of;

     1;begin

      end;

     2:begin

      end;

     3: write('merci');

     until ch2=3;

3:begin

end;

4:brgin

end;

5:write('quitter');

until ch=5;

end.

Answered on 13:42, Monday 20 Nov 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



Answer (7)

0 votes

program Menu;

uses crt;

var ch:integer;

Begin

  repeat

    clrscr;

   writeln('1...Exercice 1');

   writeln('2...Exercice 2');

   writeln('3...Exercice 3');

   writeln('4...Exercice 4');

   writeln('5...Quitter     ');

   write(' Entrer votre choix :'); readln(ch);

  case ch of

   1:begin

      end;

   2:begin  

       repeat

        writeln('1...Exercice 1');

        writeln('2...Exercice 2');

        writeln('3...Exercice 3');

        writeln('4...Retour à menu principale');

        write(' Entrer votre choix :'); readln(ch);

      case ch of

       1:begin

          end;

       2:begin

          end;

      3:begin

          end;

      4:begin

          writeln(' Cliquer sur une touche pour revenir à menu ');

          while not keypressed do ;

          end;

       end;

      until ch =4;

      end;

   3:begin

      end;

   4:begin

       writeln('..........Merci..........');

       writeln(' Cliquer sur une touche pour Quitter');

       repeat until keypressed ;

      end;

  end;

 until ch =5;

End.

Answered on 07:13, Wednesday 22 Nov 2017 by Islam Yagoub (74 points)
In Algorithmique et structure de données 1



Answer (8)

0 votes

Program menu;

Var ch,ch1 :integer;

Begin

Repeat

  Writeln ('1----exercise01');

  Writeln ('2----exercise02');

  Writeln ('3----exercise03');

  Writeln ('4----exercise04');

Case ch of

Begin

1:begin

End;

2:begin

Writeln ('choiser un exercise');

Writeln ('1-----ex01');

Writeln ('2-----ex02');

Writeln ('3------ex03');

Case ch1 of 

Begin

1:begin

End;

2:begin

End;

3:begin

End;

4:writeln ('reterner à la menu');readln (ch1);

End;

3:begin

End;

4:begin

End;

5:highvideo;writeln ('merci pour entre le programme');readln (ch);

End;

End

Answered on 12:41, Friday 1 Dec 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



Do you have an answer ?