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

é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.

Asked on 20:46, Saturday 18 Nov 2017 By نسرين ولهي (106 points)
In Algorithmique et structure de données 1


answers (3)




Answer (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.

Answered on 09:27, Monday 20 Nov 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 18:56, Monday 20 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (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.

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



Do you have an answer ?