programme pascal, besoin de solution

Question

Salu à vous tous,
J'ai besoin de votre aide. Un coppin m'a donné l'exercice suivant, à réaliser en turbo pascal, et je n'ai pas pu le faire m^me l'algoritme.
Le voici, afin que vous puissiez me donner la solution écrite en ce language, ou même l'algoritme.
Merci infiniment, car c'est très urgent.
---
écrire un programme pascal intitulé "mult_div",
permettant de déterminer et d'afficher tous les diviseurs ainsi de tous les multiples d'un entier P donné,
dans une partie d'un tableau T de N avec (0<Ind_inf<Ind_sup<_N)

emmanuelP · Answer

Salut,

En "pseudo langage" ca donne:

i:=j:=1;
pour i de 1 a (racine(P))
si (P mod i =0) alors
T[j]=i; //direct -> table car meme sens de progression
aux[j]=P/j; //memo dans auxiliaire pour l instant
finsi
finpour
//a ce stade, on a tous les diviseurs dans T[1..j] et aux[1..j]
//on "recolle" aux [j..1] a T[1..j]

pour i de 1 à j
T[j+i]:=aux[j+1-i];
finpour

//on a tous les diviseurs (P inclus) dans T[1..2j]
// on attaque les multiples

i:=2;
j:=2*j-1;
tant que i*P<N faire
T[j+i]:=i*P;
i:=i+1;
fintantque

Voila y a pls qu a coder, normalement ca doit marcher

Good luck

pascal_italia · Answer

slt j'ai besoin d'un programme pascal qui qui peut :
1-saisir un polynome et l'afficher 
2-calculer le polynome dans un point x
3-additioner 2 polynomes 
4-multiplier 2 polynomes
5- le dirivee de se polynome

Programme pascal, besoin de solution

2 réponses

Discussions similaires

Newsletters