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

[حمزة_89]

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

'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

على الاقل ضع محاولتك لنتناقش فيها

القائمة أظنها سهلة وتستطيع كتباتها بكل سهولة

لعلي سأساعدك ب fonction الأولى فقط ...

function bin_to_dec(b,k:longint):integer;
begin 
    if b=0 then bin_to_dec:=0 
    else bin_to_dec:=bin_to_dec(b div 10, k*2)+b mod 10 * k; // k est la nombre recursivité 
// la premiere demande de bin_to_dec est bin_to_dec(b,1);
end;

----

واعذرني عن أي خطأ ...لم أستعمل البسكال منذ مدة

[salemk]

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

'aimerais que vous me donnier la resolution de cet exercice
ecrire un programme en pascal en respectant les ètapes suivantes
- declarer une procedure "de 2 à 10 " qui reçoit un nombre binaire et retrouve son èquivalent en dècimal
- declarer les procèdures " de 2 à 8 " , " de 2 à 16 " , " de 8 à 2 " , "de 8à10" , "de8à16" ,"de10à2" , "de 10à2" , "de10à8" ,"de10à16" , "de16à2" , "de16à8" et "de16à10" dans le programme principale
- afficher le menue suivant :
choisissez une transformation
1- du binaire au dècimale
2- du binaire à l'octale
3-du binaire à hexadècimale
4- du octal au binaire
5- du octale au dècimale
6- du octale au hexadècimale
7-du dècimale au binaire
8-du dècimale à l'octale
9-du dècimale à hexadècimale
10- du hexadècimale au binaire
11- du hexadècimale à l'octale
12-du hexadècimale au dècimale
13-quitter
*quelle est votre choix
suivant le choix de l'utilisateur.donner la main pour ecrire un nombre et utiliser les procèdures prècedents pour afficher le rèsultat

program conv1_b_10;
uses wincrt;



function puissance(x,y:integer):longint;
begin
if y=0 then
puissance:=1
else
puissance:= x * puissance(x,y-1);
end;


function convb_10(s:string;b:integer):longint;
var
d,e,i:integer;
r:longint;
begin
r:=0;
for i:=length(s) downto 1 do
begin
if(s[i] in ['0'..'9']) then
val(s[i],d,e)
else
    case upcase(s[i]) of
    'A': d := 10;
    'B': d := 11;
    'C': d := 12;
    'D': d := 13;
    'E': d := 14;
    'F': d := 15;
    end;
r:= r + d * puissance(b,length(s)-i);
end;
convb_10:=r;
end;


function convb1_10(s:string;b:integer):longint;
var
d,e,i:integer;
r:longint;
begin
r:=0;
for i:=1 to length(s) do
begin
if(s[i] in ['0'..'9']) then
val(s[i],d,e)
else
    case upcase(s[i]) of
    'A': d := 10;
    'B': d := 11;
    'C': d := 12;
    'D': d := 13;
    'E': d := 14;
    'F': d := 15;
    end;
r:= r*b + d ;
end;
convb1_10:=r;
end;


function conv10_b1(n:longint;b:integer):string;
var
s,c:string;
d:integer;

begin
s:='';
repeat
d:=n mod b;
n:= n div b;
if d in [0..9] then
str(d,c)
else
    case d of
    10 : c := 'A';
    11 : c := 'B';
    12 : c := 'C';
    13 : c := 'D';
    14 : c := 'E';
    15 : c := 'F';
    end;
s:=c+s;
until n = 0;
conv10_b1:=s;
end;





var
ch:string;
b,b1:integer;


begin

writeln('saisir la valeur à convertir');
readln(ch);
writeln('dans quelle base?');
readln(b);
writeln('vers quelle base?');
readln(b1);
writeln(conv10_b1(convb1_10(ch,b),b1));

end.

[hayat khan]

السلام عليك هل بمساعدتي في كيفية صناعة واجهة معناها interface de reseau sociaux en html.css.php

[ratil talin]

من فضلكم ساعدوني في تحويل هذه ALGORITHME اللى الللغة C
procedure tri par insertion (tableau T,n:entier)
debut
pour i allant de 1 a n-1
val reçois T[i]
j reçois i
tant que (j>0 et T[j-1]<val)
T[j] reçois T[j-1]
j reçois j-1
FTQ
T[j] reçois val

fpour
fin

[safahdz]

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

من فضلكم ساعدوني في تحويل هذه ALGORITHME اللى الللغة C
procedure tri par insertion (tableau T,n:entier)
debut
pour i allant de 1 a n-1
val reçois T[i]
j reçois i
tant que (j>0 et T[j-1]<val)
T[j] reçois T[j-1]
j reçois j-1
FTQ
T[j] reçois val

fpour
fin

اجبتك في موضوعك

[خولة 96]

ااالسلام عليكم من فضلكم عندي بعض الاسئلة في الخوارزميات رجاءامنكم اافادة
من يريد مساعدتي رجاءا انا في امس الحاجة في اقرب وقت ........رجاءا لا تبخلو عليا

[safahdz]

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

ااالسلام عليكم من فضلكم عندي بعض الاسئلة في الخوارزميات رجاءامنكم اافادة
من يريد مساعدتي رجاءا انا في امس الحاجة في اقرب وقت ........رجاءا لا تبخلو عليا

كان من الأحسن ان تضعي سؤالك مباشرة لربح الوقت

تفضلي سنحاول المساعدة

[خولة 96]

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

كان من الأحسن ان تضعي سؤالك مباشرة لربح الوقت

تفضلي سنحاول المساعدة

حاولت نضع الصورة بصح و الله ماعرفت تقول اول مرة

[خولة 96]

https://www11.0zz0.com/2016/03/30/18/251835346.jpg
https://www12.0zz0.com/2016/03/30/18/442032602.jpg
سلام رجاءا لريد حل التمرينات 2 و12 و17 بارك الله فيكم

[safahdz]

سبق وارسلت لك هذا الحل بالإيميل .. سأعيد رفعه عسى يستفيد يفيد آخرين

[جومانةج]

سلام عليكم الله يخليكم عندي اختي تدرس سنة اولى ماستر اعلام الى شعبة micr تحتاج االى برنامج sac de mot ou bag of words au ******** java الله يخليكم الي عنده معلومة يساعدنا

[batoul1994]

[C

ENTER]

salem mes chers programmateurs svp aidez moi f l'exercice hada G besoin de votre solution turbo pascal 1.5 alr :
une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes:
==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction
==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70%
_ ecriver un programme qui calcule le net apayer sachant que :
net a payer =prix d'achat_prix de reduction==>
==>prix de reduction =(prix d'achat*70)/100
yaaa svp svp aidez moi psk c mon controle
awel mara ncharek m3akom svp matrodonich[/CENTER]

[absosm]

أخي بارك الله فيك على المساعدة

[s.de.be]

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

[C

ENTER]

salem mes chers programmateurs svp aidez moi f l'exercice hada G besoin de votre solution turbo pascal 1.5 alr :
une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes:
==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction
==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70%
_ ecriver un programme qui calcule le net apayer sachant que :
net a payer =prix d'achat_prix de reduction==>
==>prix de reduction =(prix d'achat*70)/100
yaaa svp svp aidez moi psk c mon controle
awel mara ncharek m3akom svp matrodonich[/CENTER]

bonjour, un petit programme corespond à la solution de votre problème

program total;

var prix,reduction,prixachat:real;
nombre,i:integer;
begin
prixachat:=0;
reduction:=0;
writeln('entrer le nombre de livre achetés');
readln(nombre);
for i:=1 to nombre do
begin
writeln('entrer le prix du livre n',i);
readln(prix);
prixachat:=prixachat+prix;
end;
if(nombre>3)then
begin
reduction =(prixachat*70)/100;
end
prix:=prixachat-reduction
;
writeln('le net à payer est de',prix);
end.

[Aures Soft]

برنامج الدليل المدرسي اللغة الفرنسية - السنة الثالثة ابتدائي - مجاني - مجاني - مجاني - مجاني
- الدليل المدرسي مردد صفحة بصفحة، يتيح لطفلك التعلم بشكل مستقل، لإعداد أو مراجعة الدروس بطريقة مستقلة وتفاعلية.
- البرنامج يسمح لطفلك التقييم بواسطة اختبار مناسب لكل درس.
- يمكن طفلك تسجل القراءة والاستماع إليها.
صفحة مضافة للحروف الأبجدية مرتبطة بالبرنامج.
يمكنك تحميل من الموقع
aures-soft.com