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

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

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

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

écrire un algorithme 2

0 votes

 Ecrire un algorithme permettant de résoudre le problème suivant :
– Données : un  tableau contenant 100 entiers
– Résultat : “vrai” si les entiers sont consécutifs et “faux” sinon
Rappel : deux entiers x et y sont consécutifs si et seulement si y = x +1.

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


أجوبة (3)




جواب (1)

1 votes

program test;

var 

nombre:array[1..100] of integer;

i:integer;

res:boolean;

begin

res:=true;

for i:=1 to 100 do

 read(nomber[i]);

for i:=1 to 99 do 

if nombre[i]<>nombre[i+1]+1 then 

res:=false;

write(res);

end.

نشر على 09:27, الاثنين 20 نوف 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1



جواب (2)

0 votes

program test;

uses crt;

var i:integer;

nombre  :array[1..100] of integer;

r:boolean;

begin

clrscr;

r:=true;

for i:=1 to 100 do

begin

 read(nomber[i]);

end;

for i:=1 to 99 do 

begin

if nombre[i]<>nombre[i+1]+1 then 

r:=false;

begin;

write(r);

readkey;

end.

نشر على 18:56, الاثنين 20 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (3)

0 votes

program test;

var 

nombre:array[1..100] of integer;

i:integer;

res:boolean;

begin

res:=true;

for i:=1 to 100 do

 read(nomber[i]);

for i:=1 to 99 do 

if nombre[i]<>nombre[i+1]+1 then 

res:=false;

write(res);

end.

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



هل لديك جواب ?