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

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

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

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

ecrire un programme

0 votes

ecrire un programme qui donne la valeur absolue de deux réels

نشر على 19:09, الأربعاء 1 نوف 2017 By khawla Necibi (52 points)
In Algorithmique et structure de données 1


أجوبة (24)




جواب (1)

1 votes

Program  Valeur_Absolue  ; 

Var A , B : real ; 

uses crt ; 

 

begin

 

clrscr ; 

WriteLn( ' donnez  deux nbr svp ' ) ; 

Read( A, B ) ;

if  A<0    then 

writeln( ' la valeur absolue de '   ,  A ,   '  est : '  ,  -A ) 

else 

WriteLn ( ' la valeur absolue de '   , A  ,  ' est : '  ,  A ) ; 

if   B<0         then   

WriteLn( ' la valeur absolue  de  '   ,  B ,   ' est :  ' ,   -B ) 

else 

WriteLn( ' la valeur absolue de  '  ,  B ,  ' est :  '  ,   B ) ; 

 

end.

 

 

نشر على 11:09, الجمعة 3 نوف 2017 by Feteh HESSAINIA (61 points)
In Algorithmique et structure de données 1



جواب (2)

0 votes

Fateh HESSAINIA on ecrit (uses crt) avant d'ecrire les var nn ! 

نشر على 11:56, الجمعة 3 نوف 2017 by khawla Necibi (52 points)
In Algorithmique et structure de données 1



جواب (3)

-1 votes

algorithme valeur_absole;

var x m reél;

debut

écrire ('donnez un nombre');

lire(x);

   si (x>0) alors

    écrire ('la valeur absolue est ' , x)

   sinon

    écrire ('la valeur absolue est ' , -x );

fin.

نشر على 15:45, الجمعة 3 نوف 2017 by hadjer haou (22 points)
In Algorithmique et structure de données 1



جواب (4)

1 votes

algorithme absolue;

var x,y:réel;

debut

écrire('donnez les deux nombres');

lire(x,y);

si x<0 alors

écrire('la valeur absolue de', x, 'est',-x);

sinon

écrire('la valeur absolue de',x,'est',x);

si y<0 alors

écrire('la valeur de',y,,'est',-y);

sinon

écrire('la valeur de ',y,'est',y);

fin.

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



جواب (5)

0 votes

bravo rayen ^_^

نشر على 17:26, الجمعة 3 نوف 2017 by khawla Necibi (52 points)
In Algorithmique et structure de données 1



جواب (6)

0 votes

;Algorithme absolue

;Var a,b:reel

Debut

('Ecrire('donnez le deux nombre reel

;(Lire(a,b

Si a>0 alors 

;('Ecrire('la valeur absolue de', a,'a

Si non 

;('Ecrire('la valeur absolue de',a,'-a

Si b>0 alors 

;('Ecrire('la valeur absolue de',b,'b

Si non

;('Ecrire('la valeur absolue de ',b,'-b

Fsi;

Fin.

نشر على 20:49, الجمعة 3 نوف 2017 by Amina Monebbah (56 points)
In Algorithmique et structure de données 1



جواب (7)

1 votes

#خولة_نصيبي.....  avant walla après  kif kif ^^ 

نشر على 21:28, الجمعة 3 نوف 2017 by Feteh HESSAINIA (61 points)
In Algorithmique et structure de données 1



جواب (8)

0 votes

aah ok #Fateh_hessainia makontch 3abali

نشر على 21:34, الجمعة 3 نوف 2017 by khawla Necibi (52 points)
In Algorithmique et structure de données 1



جواب (9)

2 votes

Algorithme absolue ;

VAr x,y reel ;

Debut

Ecrire ( ' donnez Les 2 nmbrs ' );

Lire ( x,y ) ;

Si x>0 alorrs

Ecrire (' la valeur absolue de',x,'est',x)

Sinon

Ecrire (' la valeur absolue de ',x,'est',-x );

Si y <0 alors

Ecrire (la valeur absolue de ',y,'est', -y )

Sinon 

Ecrire ('la valeur absolue de ',y, 'est' , y );

Fin.

نشر على 22:07, الجمعة 3 نوف 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



جواب (10)

0 votes

sa7itii amani

نشر على 00:19, السبت 4 نوف 2017 by khawla Necibi (52 points)
In Algorithmique et structure de données 1



جواب (11)

1 votes

Algorithme absolu;

Var X,y: réel;

Début

('donnez les deux nombre');

Lire(X,y);

Si(X>0)ALORS

Écrire('la valeur absolue est ',X) 

Sinon

Écrire ('la valeur absolue est ',-x);     

Si y>0alors

Écrire ('la valeur absolue  est ',y')

Sinon

Écrire('la valeur absolue est',-y);

Fin.

 

نشر على 12:54, السبت 4 نوف 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



جواب (12)

1 votes

Algorithme absolue ;

Var x,y:réel ;

Début

Écrire (' donnez les deux nombres ');

Lire (x,y);

Si x<0 alors

Écrire ('la valeur absolue de x est :',-x)

Si non

Écrire ('la valeur absolue de x est :',x)

Si y<0 alors 

Écrire ('la valeur absolue de y est :', -y)

Sinon 

Écrire ( 'la valeur absolue de y est :', y) 

Fsi ;

Fin .

نشر على 15:23, السبت 4 نوف 2017 by Aitkaki kahina Aitkaki kahina (27 points)
In Algorithmique et structure de données 1



جواب (13)

1 votes

Algorithme absolue;

Var x,y:réel ;

Début

Écrire ('donnez les deux nombre');

Lire(x,y);

Si (x>0) alors

Écrire ('la valeur absolue de x est:',-x)

Sinon

Écrire ('la valeur absolue de x est :',x);

Si y<0 alors

Écrire ('la valeur absolue de y est:',-y)

Sinon

Écrire ('la valeur absolue de y est :',y);

Fin.

Groupe 3

 

نشر على 16:53, السبت 4 نوف 2017 by Aicha Azzag (14 points)
In Algorithmique et structure de données 1



جواب (14)

1 votes

Algorithme absolue;

Var a,b:reel;

debut

ecrire('donnez les deux nombre);

lire(a,b);

si( a<0) alors

ecrire('la valeur absolue de a est':-a)

sinon

ecrire('la valeur absolue de a est':a)

si( b<0 )alors 

ecrire('la valeur absolue de b est':-b)

sinon

ecrire('la valeur absolue de b est':b)

fin.

نشر على 16:44, الأحد 5 نوف 2017 by ساسية بولعراس (20 points)
In Algorithmique et structure de données 1



جواب (15)

0 votes

algorihtme absolue;

var a,b : réel;

debut

écrire('donnez les deux nombres ');

lire(a,b);

si a<0 alors

écrire('la valeur absolue de',x,'est',-x)

sinon

écrire('la valeur absolue de',x,'est,x)

si y<0 alors

écrire('la valeur absolue de',y,'est',-y)

sinon

écrire('la valeur absoluede',y,'est',y)

fin.

نشر على 17:56, الاثنين 6 نوف 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



جواب (16)

0 votes

Program valeurabsolue;

Uses crt;

Var  X,Y : real ;

Begin 

Clrscr;

Writeln('donnez deux nbre');

Readln ( X,Y);

If X >0 then

Writeln (' valeur absolue de ',X,'est', X)

Else

writeln (' valeur absolue de ',X,'est ', -X)

If y>0 then

Writeln ('valeur absolue de',Y,'est',Y)

Else 

Writeln ('valeur absolue de ',Y,'est ',-Y) ;

Readln;

Readln;

End.

 

نشر على 19:18, الثلاثاء 7 نوف 2017 by Abir Bouzenada (12 points)
In Algorithmique et structure de données 1



جواب (17)

0 votes

Program  Val_Absolue  ; 

Var x , y : real ; 

uses crt ; 

begin

clrscr ; 

WriteLn( ' donnez  deux nbr  ' ) ; 

Read( x, y ) ;

if  x<0    then 

writeln( ' la valeur absolue de '   ,  x,   '  est : '  ,  -x ) 

else 

WriteLn ( ' la valeur absolue de '   , x  ,  ' est : '  ,  x ) ; 

if   y<0         then   

WriteLn( ' la valeur absolue  de  '   ,  y ,   ' est :  ' ,   -y) 

else 

WriteLn( ' la valeur absolue de  '  , y,  ' est :  '  ,   y) ; 

end.

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



جواب (18)

-1 votes

Program  Valeur_Absolue  ; 

Var A , B : real ; 

begin

WriteLn( ' donnez  deux nbr svp ' ) ; 

Read( A, B ) ;

if  A<0    then 

writeln( ' la valeur absolue de '   ,  A ,   '  est : '  ,  -A ) 

else 

WriteLn ( ' la valeur absolue de '   , A  ,  ' est : '  ,  A ) ; 

if   B<0         then   

WriteLn( ' la valeur absolue  de  '   ,  B ,   ' est :  ' ,   -B ) 

else 

WriteLn( ' la valeur absolue de  '  ,  B ,  ' est :  '  ,   B ) ; 

end.

 

نشر على 16:26, الجمعة 10 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (19)

0 votes

algorithme absolue;

var x,y:réel;

debut

écrire('donnez les deux nombres');

lire(x,y);

si x<0 alors

écrire('la valeur absolue de', x, 'est',-x);

sinon

écrire('la valeur absolue de',x,'est',x);

si y<0 alors

écrire('la valeur de',y,,'est',-y);

sinon

écrire('la valeur de ',y,'est',y);

fin.

نشر على 22:59, الجمعة 10 نوف 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1



جواب (20)

0 votes

merci khawla mais pardon pour ma faute j'oublier l'instructin fsi pardon un autre fois

نشر على 19:26, الأحد 12 نوف 2017 by rayene ridane (228 points)
In Algorithmique et structure de données 1



جواب (21)

0 votes

algorithme absolue;

var x,y:réel;

debut

écrire('donnez les deux nombres');

lire(x,y);

si x<0 alors

écrire('la valeur absolue de', x, 'est',-x);

sinon

écrire('la valeur absolue de',x,'est',x);

si y<0 alors

écrire('la valeur de',y,,'est',-y);

sinon

écrire('la valeur de ',y,'est',y);

fin.

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



جواب (22)

0 votes

Program valeur;

Var a,b:real;

BeginBegin

Clrscr

Read(a,b);

If a<0 then

Write('LA valeur absolue de ',a,'east:',-a)

Else 

Write('LA valeur absolue de',a, east:',a)

If b<0 then

Write('LA valeur absolue de',b,'est:',-b)

Else

Write('LA valeur absolue de ',b,'east:',b)

End;

End.

نشر على 14:19, الجمعة 1 ديس 2017 by fardous bouhama (60 points)
In Algorithmique et structure de données 1



جواب (23)

0 votes

Program valeur;

Var a,b:real;

BeginBegin

Clrscr

Read(a,b);

If a<0 then

Write('LA valeur absolue de ',a,'east:',-a)

Else 

Write('LA valeur absolue de',a, east:',a)

If b<0 then

Write('LA valeur absolue de',b,'est:',-b)

Else

Write('LA valeur absolue de ',b,'east:',b)

End;

End.

نشر على 20:38, الأحد 3 ديس 2017 by seif eddine touati (166 points)
In Algorithmique et structure de données 1



جواب (24)

0 votes

program absolu;

var x,y:real;

begin

writeln('entrez les deux nombre');

readln(x,y);

if x<0 and y<0 then 

writeln('la valeur absolu de ',x,'est',-x);

writeln('la valeur absolu de ',y,'est',-y)

else 

writeln('la valeur absolu de ',x,'est',x);

writeln('la valeur absolu de ',y,'est',y);

readln;

readln;

end.

نشر على 14:09, الاثنين 4 ديس 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



هل لديك جواب ?