|
قسم أرشيف منتديات الجامعة القسم مغلق بحيث يحوي مواضيع الاستفسارات و الطلبات المجاب عنها ..... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
[طلب مساعدة] في الـ pascal عاجل !
|
أدوات الموضوع | انواع عرض الموضوع |
2012-05-20, 09:53 | رقم المشاركة : 1 | ||||
|
[طلب مساعدة] في الـ pascal عاجل !
السلام عليكم
طلب مساعدة في الباسكال بالتحديد intersection des deux fichiers On considère deux ensembles d’entiers représentés dans des fichiers. Chaque entier n’apparaît qu’en un exemplaire dans une séquence. Écrire un programme pascal qui produit un fichier contenant l’intersection des deux ensembles. Exemple : fichier 1 : 10 5 12 7 19 28 6 fichier 2 : 5 14 19 2 10 6 29 3 7 fichier résultat : 10 5 7 19 6
|
||||
2012-05-20, 23:56 | رقم المشاركة : 2 | |||
|
وعليكم السلام اخي كود:
Program Fichier; {$APPTYPE CONSOLE} var A,B,R:File of integer; n,i,x,j,y,k:integer; begin Writeln('Taper Le nombre de Chifre ='); Read(n); {Remplissage de Fichier A } Assign(a,'C:\a.dll'); rewrite(a); Write('Entre le Chifre de A :'); for i:=1 to n do begin Read(x); Write(A,X); end; Close(a); {Remplissage de Fichier b } Assign(b,'C:\b.dll'); rewrite(b); Write('Entre le Chifre de B :'); for i:=1 to n do begin Read(x); Write(B,X); end; Close(b); { La Comparison Etle Remplissage de Fichier R } assign(R,'C:\R.dll'); Rewrite(R); Reset(a);Reset(b); k:=-1; For i:= 1 to n do begin Read(A,x); Seek(B,0); for j:=1 to n do begin Read(B,y); if X=Y then begin k:=k+1; Write(R,Y); end; end; end; {L'affichage de la Ruseltat } Seek(R,0); for i:=0 to k do begin read(R,x); Write(x:6); end; Close(a);Close(b);Close(R); Readln;Readln; Readln; end. |
|||
الكلمات الدلالية (Tags) |
مساعدة], pascal, عاجل, [طلب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc