ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[ssissoume]

mais mafhamtch la logique li takhdem beha w val veut dire quoi????

[salemk]

المشاركة الأصلية كتبت بواسطة ssissoume

mais mafhamtch la logique li takhdem beha w val veut dire quoi????

Val (X, S, error ) ;
Procédure qui convertit la chaîne de caractère de
 nom S en un nombre (Integer ou Real) X et renvoie
 un code erreur error (de type integer) qui est
 égale à 0 si la conversion est possible.


Exemples :

CH :=’1234’ ;
Val(CH,D,E) ;

La valeur de CH est la chaine ‘1234’
La valeur de la variable D est l’entier 1234
La valeur de la variable E est l’entier 0


CH :=’1234.234’ ;
Val(CH,D,E) ;

La valeur de CH est la chaine ‘1234.234’
La valeur de la variable D est l’entier 1234.234
La valeur de la variable E est l’entier 0


CH :=’123S4’ ;
Val(CH,D,E) ;

La valeur de CH est la chaine ‘123S4’
La valeur de la variable D est l’entier 0 (c’est la valeur par défaut lors de la déclaration d’un 
entier (par défaut c’est 0.0 si c’est réel)), car ’123S4’ ne peut 
pas correspondre à une valeur numérique.

La position de la chaine CH qui causera l’erreur est que sa valeur ne
 correspond pas à un chiffre est la position numéro 3 (la valeur ‘S’), donc dans la 
variable de type entier on trouvera la valeur 3
La valeur de la variable E est l’entier 0


De même pour La valeur de CH est la chaine ‘123S456*78’ et on trouvera dans la 
variable E la valeur 3 car la première positon dont la valeur
 est non transformable est 3, on arrête la transformation et on ne poursuit pas le reste  

[ssissoume]

aaaa ok merci bcp ma3lich tfahemni bark f la logique de ce pgm car ya des trucs que jamais khdamna bihom w dsl la9ala9tek

[salemk]

المشاركة الأصلية كتبت بواسطة ssissoume

aaaa ok merci bcp ma3lich tfahemni bark f la logique de ce pgm car ya des trucs que jamais khdamna bihom w dsl la9ala9tek

function puissance(x,y:integer):longint;

Cette fonction renvoie x puissance y






function convb_10(s:string;b:integer):longint;


Exemple des valeurs à convertir d’une base vers 
une autre : 120, 5623, 983, 101010, 12A, 4c3…

On remarque que les valeurs à convertir peuvent contenir 
des caractères alphabétiques, alors c’est mieux d’utiliser le 
type String pour la valeur de départ (la variable S), la 
variable B correspond à la base dans la quelle la valeur est exprimée

(120)8 = (0*8^0 + 2*8^1 + 1*8^2)10

(12C)16 = (12*16^0 + 2*16^1 + 1*16^2)10

Comme S qui peut contenir 120 et B peut contenir 8, 
dans ce cas on commance depuis la fin de la chaine donc (for… downto)

Evaluer les postions de S en leurs correspondants 
numérique (de 0 à 9 et de 10 à 16 pour les bases supérieurs à 10) (if… else)

Cumuler la valeur finale en procédant position par position 
r:= r + d * puissance(b,length(s)-i);


(120)8 = (0*8^0 + 2*8^1 + 1*8^2)10 = ((((1)*8)+2)*8)+0

(12C)16 = (12*16^0 + 2*16^1 + 1*16^2)10 = ((((1)*16)+2)*16)+12



Donc On peut reformer la conversion vars la base 10 autrement, 

c'est la fonction 

function convb_10(s:string;b:integer):longint;

on utilise l’une des deux




function conv10_b1(n:longint;b:integer):string;

la conversion vers un base B depuis la base 10 se fait par 
division successive par la base B, 
la valeur recherchée peut contenir des caractères 
alphabétique, alors on utilise le type String, est pour transformer un 
entier en string on utilise la procédure prédéfinie STR.
  

لك جزيل الشكر
التواصل هو الهدف من هذا الركن

[hind-95]

exo
ecrire un algo qui calcul le montant d achat dans un magazin tel que si le montant d achat est reduit suivant les conditions si

MA<2000
1000=<MA
%il y a reductio de 2

MA<3000
MA>=2000
%il y a reductio de 5
MA<5000
MA>=3000
%il y a reductio de10
Ma>=5000
%il y a reductio de15

[salemk]

المشاركة الأصلية كتبت بواسطة hind-95

exo
ecrire un algo qui calcul le montant d achat dans un magazin tel que si le montant d achat est reduit suivant les conditions si

MA<2000
1000=<MA
%il y a reductio de 2

MA<3000
MA>=2000
%il y a reductio de 5
MA<5000
MA>=3000
%il y a reductio de10
Ma>=5000
%il y a reductio de15

Program exo ;
Uses wincrt ;
Var
ma : real ;
Begin
Writeln('saisir le montant d''achat') ;
Readln(ma) ;
if ((ma<2000) and (ma>=1000)) then
   ma:=ma-0.02*ma
   else if ((ma<3000) and (ma>=2000)) then
        ma:=ma-0.05*ma
        else if ((ma<5000) and (ma>=3000)) then
             ma:=ma-0.1*ma
             else if ma>=5000 then
                  ma:=ma-0.15*ma;

writeln('le montant à payer est ',ma);
end.

[ssissoume]

bns a tous bon svp aider moi a faire un pgm en pascal pour tri des tableau par 2 methodes et merci d'avance

[you92cef]

هدا موقع خاص بالدروس

https://www.academia.edu/1906492/Algo...s_de_Donnees_I

يوجد شرح في الصفحة26

لتحميل الملف يجب التسجيل في الموقع
+
راجع الردود في نهاية الصفحة21 وبداية الصفحة22 +هناك رابط يوضح الفرق بين انواع التريتبات

[ssissoume]

salam jma3a chrakom labass plz aider moi ndir programme changemlent de base par division succesive

[you92cef]

المشاركة الأصلية كتبت بواسطة ssissoume

salam jma3a chrakom labass plz aider moi ndir programme changemlent de base par division succesive

راجع الردود الاخيرة في الصفحات 27-28-29

[ssissoume]

oui chefthom déjà had la solution est un peu compliqué je veux une solution simple svp mon frére aide moi

[you92cef]

المشاركة الأصلية كتبت بواسطة ssissoume

oui chefthom déjà had la solution est un peu compliqué je veux une solution simple svp mon frére aide moi

لا اظن انه توجد طريقة اسهل او طريقة اخرى لتحويل الاعداد من وحدة الى وحدة

للاسف الان اصبحت مشكلة فهم الغوريتم التحويل من قاعدة الى قاعدة
ومثل هته الالغوريتمات توجد مادة تدرسونها في مادة مستقلة اسمها
******** machine
اظن ما عليك الا ان تفهم هته المادة السهلة وادا فهمت الطرق المعتمدة فيها*-*الاغلوريتمات*-*
ca1,ca2,de base a vers base b
ansi de suite
alors vous allez avoir le programme qui torne b1

ارجوا ان تكون لك نظرة وفهم لما تطرقتم له في مادة لغة االغة وحاول مراجعة الردود السابقة
وفي حالة حاجتك لمساعدة في الخدمة ان شاء الله
شكرا

[haroune21]

اسف لعدم توضيح الطلب السابق لان الاستاد ايضا لم يوضح لنا ...لدي طلب اخر
Ecrire un programme qui permet d’effectuer la transposition d’une matrice A(m ,n) en une matrice T A(n,m)
وشكرا اخي

[عودة امل]

Algorithme
date_jour_anne
Fonction
DateDuJour() :
Chaîne de caractères
Variables
valeur :
Entier
dateFormatée :
Chaîne de caractères
Début
Remarque
Le jour
valeur <- Jour()
Si
valeur < 10
Alors
dateFormatée <- "0" + EnChaîne(valeur)
Sinon
dateFormatée <- EnChaîne(valeur)
Fin Si
dateFormatée <- dateFormatée + "/"
Remarque
Le mois
valeur <- Mois()
Si
valeur < 10
Alors
dateFormatée <- dateFormatée + "0" + EnChaîne(valeur)
Sinon
dateFormatée <- dateFormatée + EnChaîne(valeur)
Fin Si
dateFormatée <- dateFormatée + "/"
Remarque
L’année
dateFormatée <- dateFormatée + EnChaîne(Année())
Retourner
(dateFormatée)
Fin Fonction
Début
Afficher("Nous sommes le ", DateDuJour())
Fin Algorithme

هذه محاولتي أرجو التعليق ......كذلك كيف استطيع ان انقل من الباسكال الى هنا ....

[عودة امل]

السلام.....
أين الخطااء الموجود في هذه الخوارزمية أرجو الرد

program Nbr_Jours;
uses crt,dos;
const les_mois : array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var
Annee,Annee_Cornt,Mois_Cornt,Jour_Cornt,jour_semai ne : word;
mois,jour : byte;

function validj(annee:word;mois,jour:byte):boolean;
begin
validj := false;
if annee mod 4 = 0 then
les_mois[2] := 29;
if not ((jour > les_mois[mois]) or (jour < 1)) then
validj := true;
end;

function nbrj_D(jour,mois: byte;annee : word):longint;
var
i : byte;
begin
nbrj_D := 0;
if Annee_Cornt > Annee then
begin
if Annee mod 4 = 0 then
les_mois[2] := 29;
i := mois ;
repeat
nbrj_D := nbrj_D + les_mois[i];
i := i + 1;
until i > 12 ;
nbrj_D := nbrj_D - jour ;
end;
end;

function nbrj_M(Annee_Cornt,annee : word):longint;
begin
nbrj_M := 0;
if Annee_Cornt -1 > annee then
repeat
annee := annee + 1;
if annee mod 4 = 0 then
nbrj_M := nbrj_M + 366 else
nbrj_M := nbrj_M + 365;
until annee >= Annee_Cornt - 1;
end;

function nbrj_F(jour,mois: byte;annee : word):longint;
var
i : byte;
begin
nbrj_F := 0;
if Annee_Cornt > Annee then
begin
jour := 0;
mois := 1;
end;
i := mois ;
if Annee_Cornt mod 4 = 0 then
les_mois[2] := 29;
if i < Mois_Cornt then
repeat
nbrj_F := nbrj_F + les_mois[i];
i := i + 1;
until i >= Mois_Cornt ;
nbrj_F := nbrj_F - jour + jour_Cornt;
end;

function nbrJours(jour,mois: byte;annee : word):longint;
begin
nbrJours := nbrj_D(jour,mois,annee) + nbrj_M(Annee_Cornt,annee) + nbrj_F(jour,mois,annee);
end;

begin

write('Entre l''annee :');
readln(annee);
repeat
write('Entre le mois :');
readln(mois);
until (mois >= 1) and (mois <= 12);
repeat
write('Entre le jour :');
readln(jour);
until validj(annee,mois,jour);

getdate(Annee_Cornt,Mois_Cornt,Jour_Cornt,jour_sem aine);
write('le nombre de jours entre le ',jour,'/',mois,'/',annee,' et le ');
writeln(Jour_Cornt,'/',Mois_Cornt,'/',Annee_Cornt,' : ',nbrJours(jour,mois,annee),' Jours');

writeln(nbrj_D(jour,mois,annee));
writeln(nbrj_M(Annee_Cornt,annee));
writeln(nbrj_F(jour,mois,annee));

end.