قسم الرياضيات و الإعلام الإلي

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

المقياس: Algorithmique et structure de données 1

  1. معلومات
  2. الأسئلة
  3. التعليم عن بعد

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 .

نشر على 19:11, الخميس 16 نوف 2017 By Islam Yagoub (74 points)
In Algorithmique et structure de données 1


أجوبة (8)




جواب (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.

نشر على 19:50, الخميس 16 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (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

نشر على 20:00, الخميس 16 نوف 2017 by Amina Monebbah (56 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 17:40, الجمعة 17 نوف 2017 by rayene ridane (228 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 21:01, السبت 18 نوف 2017 by نسرين ولهي (106 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 12:31, الاثنين 20 نوف 2017 by Noureddine GASMALLAH
In Algorithmique et structure de données 1



جواب (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.

نشر على 13:42, الاثنين 20 نوف 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 07:13, الأربعاء 22 نوف 2017 by Islam Yagoub (74 points)
In Algorithmique et structure de données 1



جواب (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

نشر على 12:41, الجمعة 1 ديس 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



هل لديك جواب ?