مناقشة الوظيفة الخامسة - عملي برمجة2

كل ما يتعلق بمادة البرمجة 2 من استفسارات و مناقشات و محاضرات...........

المشرفون: Ghais, Karam

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة ITE-S3ed » الأحد مارس 27, 2011 12:17 am

OSAMA ALNAJAR كتب:
nour.shok كتب:عندي سؤال شلون صار
CODE: تحديد الكل
max:=x.sal
وsal مو real ولا شو :???: :???:


لا sal انتيجر ليش ريال؟؟

تمام الراتب انتيجر ليش لعرفو ريال بعمرك شفتي حدا رابته 1000.93564 :imb: :imb: :imb:
Bye !!(
صورة العضو الشخصية
ITE-S3ed
عضو نشيط
عضو نشيط
 
مشاركات: 1266
اشترك في: الاثنين سبتمبر 13, 2010 12:02 am
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة nour.shok » الأحد مارس 27, 2011 12:34 am

ITE-S3ed كتب:
OSAMA ALNAJAR كتب:
nour.shok كتب:عندي سؤال شلون صار
CODE: تحديد الكل
max:=x.sal
وsal مو real ولا شو :???: :???:


لا sal انتيجر ليش ريال؟؟

تمام الراتب انتيجر ليش لعرفو ريال بعمرك شفتي حدا رابته 1000.93564 :imb: :imb: :imb:

عفواً بلشت خربط :imb: :imb:
صورة

وما بعد الصبر إلا الفرج
صورة العضو الشخصية
nour.shok
عضو جديد
عضو جديد
 
مشاركات: 139
اشترك في: السبت أكتوبر 02, 2010 5:38 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة nnnnnnnnnn » الأحد مارس 27, 2011 12:36 am

شو اعمل عم يطلعلي error in statment لح جن :evil: :evil:
إن الله يُمْهِل ولا يُهمِل
صورة العضو الشخصية
nnnnnnnnnn
عضو جديد
عضو جديد
 
مشاركات: 229
اشترك في: الأحد ديسمبر 05, 2010 5:43 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة Mr.TAMER » الأحد مارس 27, 2011 2:00 am

nnnnnnnnnn كتب:شو اعمل عم يطلعلي error in statment لح جن :evil: :evil:


بعد إذن شباب الأولى :imb:

ضع السطر الذي يظهر عنده الخطأ والسطر الذي قبله والسطر الذي بعده وعندئذ سنعرف سبب الخطأ إن شاء الله :iok:


ملاجظة صغيرة على هامش أعمال المؤتمر :mrgreen: (وربما أكثركم يعرفها) :

يمكنك معرفة معلومات إضافية عن الخطأ عن طريق Help ثم Errors (أو شيء من هذا القبيل) ثم اذهب إلى رقم الخطأ (وهو الرقم الذي يظهر عند بداية الخطأ) وستعرض لك معلومات عن الخطأ وأسباب ظهوره.

تقبلوا مروري :iok:
Volunteer at Wikilogia

Member of WikiTechie

Contributor in Wiki ITE... Let's open-source our university

All with Proud & Pleasure :)
صورة العضو الشخصية
Mr.TAMER
عضو فعال
عضو فعال
 
مشاركات: 721
اشترك في: الجمعة يناير 01, 2010 12:46 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة ocean » الأربعاء مارس 30, 2011 6:25 pm

بعتذر لاني نشطت الموضوع مشان سؤال ما الو علاقة بالموضوع :imb: (مو محرز لموضوع جديد)
هلق بالunit شو يعني الخطا :???: undefined forward
صورة
صورة العضو الشخصية
ocean
عضو فعال
عضو فعال
 
مشاركات: 792
اشترك في: الأحد ديسمبر 19, 2010 11:23 am
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: ذكاء صنعي

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OSAMA ALNAJAR » الخميس مارس 31, 2011 12:58 pm

وهي وظيفتي بس عامل شوية زيادات اذا حدا فهم شي يخبرني :mrgreen: :mrgreen:
CODE: تحديد الكل
program h5;
type
coust=record
num:integer;
name:string;
salary:integer;
end;
fi=file of coust;
s=set of 1..100;
var
s1,d:s;
n:integer;
f:fi;
 i,o:integer;
l:string;
 function names(l:string):boolean;
var
i:integer;
begin
names:=true;
for i:=1 to length(l) do
    begin
     if(l[i]=',')or (l[i]='.')or(l[i]='!')or(l[i]='?')or(l[i]=';')then
     names:=false;
     end;
end;



procedure readm(var f:fi;var s1:s;var o:integer);
var
c:char;
x:coust;
h:boolean;
i:integer;

begin
h:=true;
s1:=[];
i:=0;
rewrite(f);
repeat
i:=i+1;
writeln('please enter number of official');
readln(x.num);
if (x.num) in s1 then
    h:=false;
    while h=false do
    begin
    writeln('num is error');
    readln(x.num);
     if (x.num) in s1 then
    h:=false
    else
    h:=true;
    end;
    s1:=s1+[x.num];
writeln('please enter name of official');
readln(x.name);
while(names(x.name)=false) do
    begin
    writeln('name is error please again');
    readln(x.name);
    end;
  writeln('please enter salary of official');
readln(x.salary);
write(f,x);
o:=i;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
close(f);
d:=s1;
end;

procedure writem(var f:fi;o:integer);
var
i:integer;
x:coust;
begin
reset(f);
i:=0;
    while not(eof(f)) do
    begin
      i:=i+1;
      read (f,x);
      write(x.num,' ');
      write(x.name,' ');
      write(x.salary,' ');
      writeln;
      o:=i;
    end;
    writeln('number of coust ',o);
end;

procedure add(var f:fi;var s1:s;var o:integer);
var
t:file of coust;
x:coust;
c:char;
h:boolean;
begin
h:=true;
assign(t,'e:/t.txt');
reset(f);
rewrite(t);
  while not(eof(f)) do
  begin
 read(f,x);
 write(t,x);
  end;
  close(f);
repeat
writeln('please enter number of official add');
readln(x.num);
if (x.num) in s1 then
    h:=false;
    while h=false do
    begin
    writeln('num is error please enter again');
    readln(x.num);
     if (x.num) in s1 then
    h:=false
    else
    h:=true;
    end;
    s1:=s1+[x.num];
writeln('please enter name of official');
readln(x.name);
while(names(x.name)=false) do
    begin
    writeln('name is error please again');
    readln(x.name);
    end;
writeln('please enter salary of official');
readln(x.salary);
write(t,x);
o:=o+1;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
close(t);
rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
end;


procedure deletem (var f:fi;var o:integer);
 var
 c:char;
 x:coust;
 h:string;
 i,s:integer;
t:file of coust;
a:array [1..50]of string;
begin
assign(t,'e:/t.txt');
reset(f);
rewrite(t);
i:=0;
repeat
i:=i+1;
writeln('please enter name of coust whom want delete');
readln(h);
a[i]:=h;
s:=i;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
  while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
    if (x.name<>a[i]) then
    write(t,x)
    else
    o:=o-1;
    end;
  end;
  close(f);
  close(t);
   rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
end;

 procedure showm(var f:fi;s1:s);
 var
 s,i,n:integer;
 c:char;
 x:coust;
 h:boolean;
  a:array [1..100]of integer;
begin
h:=false;
i:=0;
reset(f);
   repeat
  i:=i+1;
  writeln('please enter number of coust whom want show information');
  readln(n);
              if n in s1 then
               h:=true;
               while h=false do
                begin
                  writeln('num is nt found please enter again');
                  readln(n);
                   if n in s1 then
                   h:=true
                 else
                  h:=false;
                end;
  a[i]:=n;
  s:=i;
  writeln('do you want enter also please answer y or n');
  readln(c);
  until(c<>'y');
     while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
    if (x.num=a[i]) then
    begin
    writeln('informaation coust who his number ',x.num);
    writeln(x.name);
    writeln(x.salary);
    end;
    end;
  end;
  close(f);
 end;

  procedure editm(var f:fi;s1:s);
  var
 s,i,n,sa:integer;
 c:char;
 na:string;
 x:coust;
 h:boolean;
 t:file of coust;
  a:array [1..100]of integer;
begin
h:=false;
assign(t,'e:/t.txt');
rewrite(t);
reset(f);
i:=0;
   repeat
  i:=i+1;
  writeln('please enter number of coust whom want edit information');
  readln(n);
  if n in s1 then
    h:=true;
    while h=false do
    begin
    writeln('num is not found please enter again');
    readln(n);
     if n in s1 then
    h:=true
    else
    h:=false;
    end;
  a[i]:=n;
  s:=i;
  writeln('do you want enter also please answer y or n');
  readln(c);
  until(c<>'y');
    while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
      if (x.num=a[i]) then
      begin
        writeln('please edit name of coust who his number ',x.num);
        readln(na);
      while(names(na)=false) do
    begin
    writeln('name is error please again');
    readln(na);
    end;
        x.name:=na;
        writeln('please edit salary of coust who his number ',x.num);
        readln(sa);
        x.salary:=sa;
        write(t,x);
      end
      else
      write(t,x);
    end;
  end;
    close(f);
  close(t);
   rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
  end;

procedure maxsalary(var f:fi);
var
n:integer;
x:coust;
begin
reset(f);
writeln('please enter max salary');
readln(n);
    while not(eof(f)) do
  begin
 read(f,x);
 if (x.salary>n) then
 writeln(x.name);
  end;
 close(f);
end;


  procedure delete(var f:fi;l:string);
  var
  x:coust;
  a:fi;
  begin
   assign(a,'e:/a.bin');
   reset(f);
   rewrite(a);
     while not(eof(f)) do
  begin
 read(f,x);
    if (x.name<>l) then
    write(a,x);
  end;
  close(f);
  close(a);
   rewrite(f);
reset(a);
while not(eof(a)) do
begin
 read(a,x);
 write(f,x);
end;
close(f);
close(a);
end;


    Procedure  formm(var f:fi;var o:integer);
    var
       temp : fi;
       max,l:integer;
       trec,x:coust;
    begin
       assign(temp,'e:\tmp1.bin');
       rewrite(temp);
       l:=0;
       repeat
       max:=0;
       l:=l+1;
       reset(f);
       while not eof(f) do
         begin
           read(f,x);
           if x.salary > max then
           begin
             max := x.salary;
             trec:=x;
           end;
         end;
         close(f);
         write(temp,trec);
         delete (f,trec.name);
       until(l=o) ;
       close(temp);

       reset(temp);
       rewrite(f);
       while not eof(temp) do
        begin
          read(temp,x);
          write(f,x);
          write(x.num,' ');
          write(x.name,' ');
          write(x.salary,' ');
          writeln;
        end;
        close(f); close(temp);
    end;



begin
assign(f,'e:/f.txt');
readm(f,s1,o);
repeat
writeln('if want show the information enter 1');
writeln('if want add coust enter 2');
writeln('if want delete coust enter 3');
writeln('if want show information of coust enter 4');
writeln('if want edit information of coust enter 5');
writeln('if want show names of cousts who take salary better than one name enter 6');
writeln('if want form information of coust enter 7 ');
 writeln('if want exit enter 8');


 readln(i);
 case i of
 1:writem(f,o);
 2:add(f,d,o);
  3:deletem(f,o);
  4:showm(f,d);
  5:editm(f,d);
  6:maxsalary(f);
  7:formm(f,o);
  8:exit
  else
  writeln('number is error');
   end;

until(i=8);

 readln;
 readln;
end.
-------
عدد زوار تواقيع ProgrTM : صورة
صورة العضو الشخصية
OSAMA ALNAJAR
عضو جديد
عضو جديد
 
مشاركات: 258
اشترك في: الجمعة ديسمبر 03, 2010 11:04 pm
الجتس: ذكر
الشهادة الثانوية: ثانوية السعادة
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: غير ذلك

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة Ghais » الخميس مارس 31, 2011 6:18 pm

ocean كتب:بعتذر لاني نشطت الموضوع مشان سؤال ما الو علاقة بالموضوع :imb: (مو محرز لموضوع جديد)
هلق بالunit شو يعني الخطا :???: undefined forward


يا ريت تحطيلنا مكان الخطأ وجزء من الكود أو كلو...
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة Mr.TAMER » الخميس مارس 31, 2011 7:45 pm

ocean كتب:بعتذر لاني نشطت الموضوع مشان سؤال ما الو علاقة بالموضوع :imb: (مو محرز لموضوع جديد)
هلق بالunit شو يعني الخطا :???: undefined forward


السلام عليكم.

من بعد إذن طلاب الأولى :imb:

سبب الخطأ هو أنكم كتبتم ترويسة تابع ما (التابع الذي ظهر اسمه بين قوسين بعد الخطأ) في الـ interface، ولكنكم لم تكتبوا جسمه في الـ implementation.

-إما أنكم لم تكتبوا جسم ذلك التابع في الـ implemenation حقاً.

-أو أنكم كتبتموه ولكن أخطأتم في تهجئة اسمه، أي مثلاً كتبتم اسم التابع temp في الـ interface ثم في الـ implementation كتبتم temb (أي الاسم يختلف بين الـ interface و الـ implementation).
تفسير : في هذه الحالة (الثانية) يقبل الـ compiler أن هناك تابعين أحدهما اسمه temb وغير معرف في الـ interface (أي لا يمكن استخدامه خارج الوحدة)، والثاني اسمه temp معرف في الـ interface ويجب أن يكون له جسم في الـ implementation، وبما أنه ليس معرف هناك، يظهر ذلك الخطأ.

أرجو أن يكون ذلك مفيداً :ism:

تقبلوا مروري :iok:
Volunteer at Wikilogia

Member of WikiTechie

Contributor in Wiki ITE... Let's open-source our university

All with Proud & Pleasure :)
صورة العضو الشخصية
Mr.TAMER
عضو فعال
عضو فعال
 
مشاركات: 721
اشترك في: الجمعة يناير 01, 2010 12:46 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة HELP YOU » الخميس مارس 31, 2011 9:24 pm

OSAMA ALNAJAR كتب:وهي وظيفتي بس عامل شوية زيادات اذا حدا فهم شي يخبرني :mrgreen: :mrgreen:
CODE: تحديد الكل
program h5;
type
coust=record
num:integer;
name:string;
salary:integer;
end;
fi=file of coust;
s=set of 1..100;
var
s1,d:s;
n:integer;
f:fi;
 i,o:integer;
l:string;
 function names(l:string):boolean;
var
i:integer;
begin
names:=true;
for i:=1 to length(l) do
    begin
     if(l[i]=',')or (l[i]='.')or(l[i]='!')or(l[i]='?')or(l[i]=';')then
     names:=false;
     end;
end;



procedure readm(var f:fi;var s1:s;var o:integer);
var
c:char;
x:coust;
h:boolean;
i:integer;

begin
h:=true;
s1:=[];
i:=0;
rewrite(f);
repeat
i:=i+1;
writeln('please enter number of official');
readln(x.num);
if (x.num) in s1 then
    h:=false;
    while h=false do
    begin
    writeln('num is error');
    readln(x.num);
     if (x.num) in s1 then
    h:=false
    else
    h:=true;
    end;
    s1:=s1+[x.num];
writeln('please enter name of official');
readln(x.name);
while(names(x.name)=false) do
    begin
    writeln('name is error please again');
    readln(x.name);
    end;
  writeln('please enter salary of official');
readln(x.salary);
write(f,x);
o:=i;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
close(f);
d:=s1;
end;

procedure writem(var f:fi;o:integer);
var
i:integer;
x:coust;
begin
reset(f);
i:=0;
    while not(eof(f)) do
    begin
      i:=i+1;
      read (f,x);
      write(x.num,' ');
      write(x.name,' ');
      write(x.salary,' ');
      writeln;
      o:=i;
    end;
    writeln('number of coust ',o);
end;

procedure add(var f:fi;var s1:s;var o:integer);
var
t:file of coust;
x:coust;
c:char;
h:boolean;
begin
h:=true;
assign(t,'e:/t.txt');
reset(f);
rewrite(t);
  while not(eof(f)) do
  begin
 read(f,x);
 write(t,x);
  end;
  close(f);
repeat
writeln('please enter number of official add');
readln(x.num);
if (x.num) in s1 then
    h:=false;
    while h=false do
    begin
    writeln('num is error please enter again');
    readln(x.num);
     if (x.num) in s1 then
    h:=false
    else
    h:=true;
    end;
    s1:=s1+[x.num];
writeln('please enter name of official');
readln(x.name);
while(names(x.name)=false) do
    begin
    writeln('name is error please again');
    readln(x.name);
    end;
writeln('please enter salary of official');
readln(x.salary);
write(t,x);
o:=o+1;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
close(t);
rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
end;


procedure deletem (var f:fi;var o:integer);
 var
 c:char;
 x:coust;
 h:string;
 i,s:integer;
t:file of coust;
a:array [1..50]of string;
begin
assign(t,'e:/t.txt');
reset(f);
rewrite(t);
i:=0;
repeat
i:=i+1;
writeln('please enter name of coust whom want delete');
readln(h);
a[i]:=h;
s:=i;
writeln('do you want enter also please answer y or n');
readln(c);
until(c<>'y');
  while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
    if (x.name<>a[i]) then
    write(t,x)
    else
    o:=o-1;
    end;
  end;
  close(f);
  close(t);
   rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
end;

 procedure showm(var f:fi;s1:s);
 var
 s,i,n:integer;
 c:char;
 x:coust;
 h:boolean;
  a:array [1..100]of integer;
begin
h:=false;
i:=0;
reset(f);
   repeat
  i:=i+1;
  writeln('please enter number of coust whom want show information');
  readln(n);
              if n in s1 then
               h:=true;
               while h=false do
                begin
                  writeln('num is nt found please enter again');
                  readln(n);
                   if n in s1 then
                   h:=true
                 else
                  h:=false;
                end;
  a[i]:=n;
  s:=i;
  writeln('do you want enter also please answer y or n');
  readln(c);
  until(c<>'y');
     while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
    if (x.num=a[i]) then
    begin
    writeln('informaation coust who his number ',x.num);
    writeln(x.name);
    writeln(x.salary);
    end;
    end;
  end;
  close(f);
 end;

  procedure editm(var f:fi;s1:s);
  var
 s,i,n,sa:integer;
 c:char;
 na:string;
 x:coust;
 h:boolean;
 t:file of coust;
  a:array [1..100]of integer;
begin
h:=false;
assign(t,'e:/t.txt');
rewrite(t);
reset(f);
i:=0;
   repeat
  i:=i+1;
  writeln('please enter number of coust whom want edit information');
  readln(n);
  if n in s1 then
    h:=true;
    while h=false do
    begin
    writeln('num is not found please enter again');
    readln(n);
     if n in s1 then
    h:=true
    else
    h:=false;
    end;
  a[i]:=n;
  s:=i;
  writeln('do you want enter also please answer y or n');
  readln(c);
  until(c<>'y');
    while not(eof(f)) do
  begin
 read(f,x);
    for i:=1 to s do
    begin
      if (x.num=a[i]) then
      begin
        writeln('please edit name of coust who his number ',x.num);
        readln(na);
      while(names(na)=false) do
    begin
    writeln('name is error please again');
    readln(na);
    end;
        x.name:=na;
        writeln('please edit salary of coust who his number ',x.num);
        readln(sa);
        x.salary:=sa;
        write(t,x);
      end
      else
      write(t,x);
    end;
  end;
    close(f);
  close(t);
   rewrite(f);
reset(t);
while not(eof(t)) do
begin
 read(t,x);
 write(f,x);
end;
close(f);
close(t);
  end;

procedure maxsalary(var f:fi);
var
n:integer;
x:coust;
begin
reset(f);
writeln('please enter max salary');
readln(n);
    while not(eof(f)) do
  begin
 read(f,x);
 if (x.salary>n) then
 writeln(x.name);
  end;
 close(f);
end;


  procedure delete(var f:fi;l:string);
  var
  x:coust;
  a:fi;
  begin
   assign(a,'e:/a.bin');
   reset(f);
   rewrite(a);
     while not(eof(f)) do
  begin
 read(f,x);
    if (x.name<>l) then
    write(a,x);
  end;
  close(f);
  close(a);
   rewrite(f);
reset(a);
while not(eof(a)) do
begin
 read(a,x);
 write(f,x);
end;
close(f);
close(a);
end;


    Procedure  formm(var f:fi;var o:integer);
    var
       temp : fi;
       max,l:integer;
       trec,x:coust;
    begin
       assign(temp,'e:\tmp1.bin');
       rewrite(temp);
       l:=0;
       repeat
       max:=0;
       l:=l+1;
       reset(f);
       while not eof(f) do
         begin
           read(f,x);
           if x.salary > max then
           begin
             max := x.salary;
             trec:=x;
           end;
         end;
         close(f);
         write(temp,trec);
         delete (f,trec.name);
       until(l=o) ;
       close(temp);

       reset(temp);
       rewrite(f);
       while not eof(temp) do
        begin
          read(temp,x);
          write(f,x);
          write(x.num,' ');
          write(x.name,' ');
          write(x.salary,' ');
          writeln;
        end;
        close(f); close(temp);
    end;



begin
assign(f,'e:/f.txt');
readm(f,s1,o);
repeat
writeln('if want show the information enter 1');
writeln('if want add coust enter 2');
writeln('if want delete coust enter 3');
writeln('if want show information of coust enter 4');
writeln('if want edit information of coust enter 5');
writeln('if want show names of cousts who take salary better than one name enter 6');
writeln('if want form information of coust enter 7 ');
 writeln('if want exit enter 8');


 readln(i);
 case i of
 1:writem(f,o);
 2:add(f,d,o);
  3:deletem(f,o);
  4:showm(f,d);
  5:editm(f,d);
  6:maxsalary(f);
  7:formm(f,o);
  8:exit
  else
  writeln('number is error');
   end;

until(i=8);

 readln;
 readln;
end.

أنا افهمت :nau: :nau: :nau: :nau: :nau: :nau:
ذبحوا الأطفال يا رب..قصفوا المساجد يا رب..مزقوا قرآننا يا الله..دنسوا مقدساتنا يا الله
يا رب فلتقعقع أبواب السماء من عندك رجاءً يا الله..وليهتز عرشك غضباً يا الله ..
من نحن حتى تنصرنا يا الله...انصر دينك يا الله!!!
صورة العضو الشخصية
HELP YOU
مشرفة لوحة الإعلانات
مشرفة لوحة الإعلانات
 
مشاركات: 1150
اشترك في: الأربعاء سبتمبر 29, 2010 9:34 pm
مكان: في بلاد الله الواسعة
الجتس: أنثى
الشهادة الثانوية: تقنيات حاسوب
الجامعة: جامعة دمشق
الكلية: -----
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OPADA-Eng » الخميس مارس 31, 2011 9:33 pm

وهي وظيفتي وشغالة 100% هي اول مشاركة الي بالوظايف :imb: بعتذر بس كنت ما عم افضى حط الكود .. :imb:
وبالنسبة لاجرائية الفرز انا عملتها بدون الحاجة لاستعمال اجرائية الحذف .. :nau: انا استعملت متحولين max ,min وعلى اساسهم تم الفرز اللي بيحب شرح او تفصل انا جاهز :ism:
بالتوفيق للجميع :iok:
الكود:
CODE: تحديد الكل
program homework5;

{$APPTYPE CONSOLE}
type
 employe=record
   ID:integer;
   name:string[255];
   salary:integer;
 end;
 binary=file of employe ;
var
  em:employe;
  f:binary;
  num,x:integer;
  named:string;
  c:char;
procedure insertdata( var f:binary; var num:integer);
  begin
   rewrite(f);
   repeat
    with em do
     begin
       writeln('enter emp ID');
       readln(ID);
       writeln('enter emp name');
       readln(name);
       writeln('enter emp salary');
       readln(salary);
     end;
    write(f,em);
    num:=num+1;
    writeln(' do u want to insert another emplye/y=yes/n=no/');
    readln(c);
   until c<>'y';
   close(f);
  end;


procedure printdata(var f:binary;num:integer;em:employe);
var
  I: Integer;
 begin
   reset(f);
   for I := 1 to num do
     begin
      read(f,em);
      with em do
       begin
        writeln(ID);
        writeln(name);
        writeln(salary);
       end;
      writeln('---------------------------------');
     end;
   writeln('the number of employes is:',num);
   writeln('---------------------------------');
   close(f);
 end;


procedure addem(var f:binary; var num:integer);
var
  I,n: Integer;
  em1:employe;
  t: binary;
 begin
  assign(t,'my temp.bin');
  writeln('enter the number of employes u want to add');
  readln(n);
  reset(f);
  rewrite(t);
  while not (eof(f)) do
   begin
    read(f,em);
    write(t,em);
   end;
  for I := 1 to n do
   begin
    with em1 do
      begin
       writeln('enter emp ID');
       readln(ID);
       writeln('enter emp name');
       readln(name);
       writeln('enter emp salary');
       readln(salary);
      end;
    write(t,em1);
    num:=num+1;
   end;
  close(f);
  close(t);
  reset(t);
  rewrite(f);
  for I := 1 to num do
    begin
      read(t,em);
      write(f,em);
    end;
  close(f);
  close(t);
  rewrite(t);
  close(t);
 end;


 procedure deletem(var f:binary;var num:integer;named:string);
 var
 I:integer;
 em1:employe;
 t:binary;
 begin
   assign(t,'my temp.bin');
   reset(f);
   rewrite(t);
   while not(eof(f)) do
     begin
      read(f,em1);
      if em1.name<>named then
        write(t,em1)
      else
        num:=num-1;
     end;
   close(f);
   close(t);
   reset(t);
   rewrite(f);
   while not(eof(t)) do
     begin
       read(t,em1);
       write(f,em1);
     end;
 end;


procedure empshow(var f:binary;num:integer);
 var
  empnum:integer;
  I: Integer;
  em:employe;
 begin
   writeln('enter the emp num u want to show');
   readln(empnum);
   reset(f);
   for I := 1 to num do
     begin
       read(f,em);
       if em.ID=empnum then
         begin
           with em do
             begin
              writeln('emp ID is: ',ID);
              writeln('emp name is: ',name);
              writeln('emp salary is: ',salary);
             end;
           break;
         end;
     end;
   close(f);
 end;


procedure editemp(var f:binary;num:integer);
 var
  emnum,I,salary:integer;
  em1:employe;
  ch:char;
  name:string;
  t:binary;
 begin
  assign(t,'my temp.bin');
  reset(f);
  rewrite(t);
  writeln('enter the emp num u want to edit');
  readln(emnum);
  for I := 1 to num do
   begin
     read(f,em1);
     if em1.ID=emnum then
       begin
         writeln('do u want to edit the name/y=yes/n=no');
         readln(ch);
         if(ch='y')then
          begin
            readln(name);
            em1.name:=name;
          end
         else
            writeln('do u want to edit the salary/y=yes/n=no');
            readln(ch);
            if ch='y' then
             begin
               readln(salary);
               em1.salary:=salary;
             end;
         write(t,em1);
        break;
       end
     else
       write(t,em1);
   end;
  close(f);
  close(t);
  reset(t);
  rewrite(f);
  for I := 1 to num do
   begin
     read(t,em1);
     write(f,em1);
   end;
  close(f);
  close(t);
 end;


procedure list(var f:binary;num:integer);
var
  I: Integer;
  valu:integer;
 begin
   writeln('enter the value u want emp up to!!');
   readln(valu);
   reset(f);
   for I := 1 to num do
    begin
      read(f,em);
      if em.salary>valu then
         writeln(em.name);
    end;
   close(f);
 end;


procedure sort(var f:binary;num:integer);
 var
  em1,temp:employe;
  I,max,min: Integer;
  tt:binary;
 begin
    begin
     assign(tt,'my tt');
     max:=10000;
     min:=0;
     i:=0;
     rewrite(tt);
     repeat
      reset(f);
      while not (eof(f)) do
       begin
         read(f,em1);
         if (min<=em1.salary) and (em1.salary<max) then
          begin
           temp:=em1;
           min:=em1.salary;
          end;
       end;
      max:=min;
      min:=0;
      write(tt,temp);
      i:=i+1;
      close(f);
        until i=num;
     close(tt);
     reset(tt);
     rewrite(f);
     while not(eof(tt)) do
      begin
       read(tt,em1);
       write(f,em1);
      end;
     close(f);
     close(tt);
    end;
 end;


procedure showchoises;
 begin
   writeln(' press 0 to Exit');
   writeln(' press 1 to print data');
   writeln(' press 2 to add employes');
   writeln(' press 3 to show an employe data by his number');
   writeln(' press 4 to delet an employe');
   writeln(' press 5 to edit an employes data');
   writeln(' press 6 to sort employes by salary');
 end;
begin
  assign(f,'my file.bin');
  num:=0;
  insertdata(f,num);
  showchoises;
  repeat
  readln(x);
    case x of
         1:begin
            printdata(f,num,em);
            showchoises;
           end;
         2: begin
             addem(f,num);
             showchoises;
            end;
         3:begin
           empshow(f,num);
           showchoises;
         end;
         4:begin
            writeln('enter the emp name u want to delet');
            readln(named);
            deletem(f,num,named);
            showchoises;
           end;
         5:begin
            editemp(f,num);
            showchoises;
           end;
         6:begin
           sort(f,num);
           showchoises;
         end;
    end;
  until (x=0);
  readln;
end.
.. نحن قوم أعزنا الله بالإسلام فلا نطلب بغير الله بديلاً ..

عمر بن الخطاب
صورة العضو الشخصية
OPADA-Eng
عضو نشيط
عضو نشيط
 
مشاركات: 1433
اشترك في: الأحد سبتمبر 26, 2010 6:29 pm
مكان: بلد القرآن
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OPADA-Eng » الخميس مارس 31, 2011 9:58 pm

OSAMA ALNAJAR كتب:وهي وظيفتي بس عامل شوية زيادات اذا حدا فهم شي يخبرني :mrgreen: :mrgreen:
CODE: تحديد الكل
repeat
writeln('if want show the information enter 1');
writeln('if want add coust enter 2');
writeln('if want delete coust enter 3');
writeln('if want show information of coust enter 4');
writeln('if want edit information of coust enter 5');
writeln('if want show names of cousts who take salary better than one name enter 6');
writeln('if want form information of coust enter 7 ');
 writeln('if want exit enter 8');


 readln(i);
 case i of
 1:writem(f,o);
 2:add(f,d,o);
  3:deletem(f,o);
  4:showm(f,d);
  5:editm(f,d);
  6:maxsalary(f);
  7:formm(f,o);
  8:exit
  else
  writeln('number is error');
   end;

until(i=8);

 readln;
 readln;
end.

بعد اذن الاستاذ اسامة .... :wink:
انا عندي ملاحظة هون وهي:
انو انت عامل طباعة القائمة بالخيارات لمرة واحدة فقط عند بداية البرنامج وهيك بعد تنفيذ اي اجرائية لح يوقف المستخدم بعد ما يكون نسي قائمة الخيارات اللي طلعتلو اول شي بسبب ضئالة حجم الرام تبعو :eek: :wink2: :wink2:
يعني بلا معلمية عليك :wink: فيني اعمل هالتعليمات هي اجرائية و استدعيها بعد انتهاء كل اجرائية من الاجرائية المطلوبة وهاد الشي بيدعم مفهوم الكبسلة بالتاكيد
انا بعرف حالي مكتر فزلكة بس البرنامج اللي الواحد بدو يحطو للعالم لازم يكون كامل وما في عليه غبار :wink: وانا بانتظار اي عيب في برنامجي ... :wink: :nau: :nau: :nau:
انا اسف بس لسا الخير لقدام يعني هي اول تنكيشة .. :eek: :eek: :mrgreen: :mrgreen: :mrgreen:
بالتوفيق للجميع :iok:
تقبــ مروري :imb: ــلو
.. نحن قوم أعزنا الله بالإسلام فلا نطلب بغير الله بديلاً ..

عمر بن الخطاب
صورة العضو الشخصية
OPADA-Eng
عضو نشيط
عضو نشيط
 
مشاركات: 1433
اشترك في: الأحد سبتمبر 26, 2010 6:29 pm
مكان: بلد القرآن
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة لوتوس » الخميس مارس 31, 2011 11:00 pm

لو سمحتو ...وين الوظيفة السادسة ..كأنها ما نزلت ؟
و من يتق الله يجعل له مخرجا
صورة العضو الشخصية
لوتوس
عضو جديد
عضو جديد
 
مشاركات: 229
اشترك في: الجمعة ديسمبر 25, 2009 6:28 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الرابعة
الاختصاص: هندسة برمجيات

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OPADA-Eng » الخميس مارس 31, 2011 11:03 pm

لوتوس كتب:لو سمحتو ...وين الوظيفة السادسة ..كأنها ما نزلت ؟

اي لانو شكلو مهندسي العملي عم يدبرو مكيدة للطلاب قامت المهندسة منال بفضحها لنا :wink2: :wink2:
في كويز باول كل شهر
:iok:
.. نحن قوم أعزنا الله بالإسلام فلا نطلب بغير الله بديلاً ..

عمر بن الخطاب
صورة العضو الشخصية
OPADA-Eng
عضو نشيط
عضو نشيط
 
مشاركات: 1433
اشترك في: الأحد سبتمبر 26, 2010 6:29 pm
مكان: بلد القرآن
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OSAMA ALNAJAR » الجمعة إبريل 01, 2011 12:02 am

استاذ عبادة انت معلمنا وتاج راسنا كأنك ما لاحظت حلقة الربيت ويلي بتخلي الخيارات تطلع بعد كل اجرائية :mrgreen:
يا اما انا ما فهمت شو قصدك؟ :???:
-------
عدد زوار تواقيع ProgrTM : صورة
صورة العضو الشخصية
OSAMA ALNAJAR
عضو جديد
عضو جديد
 
مشاركات: 258
اشترك في: الجمعة ديسمبر 03, 2010 11:04 pm
الجتس: ذكر
الشهادة الثانوية: ثانوية السعادة
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية
الاختصاص: غير ذلك

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة HELP YOU » الجمعة إبريل 01, 2011 12:32 am

OSAMA ALNAJAR كتب:استاذ عبادة انت معلمنا وتاج راسنا كأنك ما لاحظت حلقة الربيت ويلي بتخلي الخيارات تطلع بعد كل اجرائية :mrgreen:
يا اما انا ما فهمت شو قصدك؟ :???:

أنا اول شي لفت انتباهي هي حلقة الربيت :nau: :nau: :nau: :nau:
بس يا استاذ اسامة بدون ما اعمل معلمية عليك التعا الب المهندسين وهنن يقولو خلو التعليمات لي تحت الحلقات تكون فايتو شوي
يعني بالصراحة
المشكلة بكتابة الكود
يعني المفروض تعليمات لي تحت الربيت يكونو فايتين شوي
مشان تبين للمستخدم انو هون في حلقة
مو بتحط ريبيت وتحتا تعليمات الطباعة مباشرة
يعني بجوز المستخدم يكون نعسان هو عم يقرا الكود وساعتا ما رح ينتبه انو في حلقة :nau: :nau: :nau: :nau: :nau:
ولا تفكرني عم اتفهم :nau: :nau: :nau: :nau: :nau:
ذبحوا الأطفال يا رب..قصفوا المساجد يا رب..مزقوا قرآننا يا الله..دنسوا مقدساتنا يا الله
يا رب فلتقعقع أبواب السماء من عندك رجاءً يا الله..وليهتز عرشك غضباً يا الله ..
من نحن حتى تنصرنا يا الله...انصر دينك يا الله!!!
صورة العضو الشخصية
HELP YOU
مشرفة لوحة الإعلانات
مشرفة لوحة الإعلانات
 
مشاركات: 1150
اشترك في: الأربعاء سبتمبر 29, 2010 9:34 pm
مكان: في بلاد الله الواسعة
الجتس: أنثى
الشهادة الثانوية: تقنيات حاسوب
الجامعة: جامعة دمشق
الكلية: -----
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة HELP YOU » الجمعة إبريل 01, 2011 12:37 am

واسما صايرة القصة وصايرة تفضلو هي كودي صح 99.9999999999 بالمية في مشكلة وحدة بالفرز
المهندسة قالتلي صح كودك 100000 بال 100 بس ما طلع معا وين الخطا مشان هيك من بعد اذنكن اذ حدى عندو الحاسة السابعة وحسن يعرفلي الخطا باجرائية الفرز يخبرني لانو حاستي السادسة ما اكتشفت الخطا مع العلم هو عم يفوت عل شاشة السودة وكل الاجرائيات عم تتنفذ صح بس باجرائية الفرز عم يطبعلي اول ريكورد بالملف ما بعرف ليش :evil: :evil:
CODE: تحديد الكل
program mmm;
type officer1=record
       num:integer;
       name:string[20];
       sal:integer;
     end;
     ff=file of officer1;
var f,t:ff;
    officer:officer1;
    i:integer;
    nameofficer:string[20];



procedure read_f(var f:ff);
var i:integer;
     c:char;
begin
rewrite(f);
repeat
    with officer do
      begin
        writeln('enter the num  ');
        readln(num);
        writeln('enter the name  ');
        readln(name);
        writeln('enter the sal  ');
        readln(sal);
        writeln('************************');
        write(f,officer);
      end;
      writeln('do you want enter also please answer y or n');
      readln(c);
until(c='n');
 close(f);
end;



procedure write_f(var f:ff);
var i:integer;
begin
i:=0;
reset(f);
while not(eof(f))do
  begin
    i:=i+1;
    read(f,officer);
    with officer do
      writeln(num,'  ',name,'  ',sal);
  end;
  writeln('number of the recoreds is =',i);
close(f);
end;



procedure add(var f:ff;var t:ff);
var c:char;
begin
  reset(f);
  rewrite(t);
  while not(eof(f)) do
    begin
      read(f,officer);
      write(t,officer);
     end;
    close(f);
    repeat
      with officer do
       begin
        writeln('enter the num  ');
        readln(num);
        writeln('enter the name  ');
        readln(name);
        writeln('enter the sal  ');
        readln(sal);
        writeln('************************');
        write(t,officer);
      end;
      writeln('do you want enter also please answer y or n');
      readln(c);
until(c='n');
      close(t);
      reset(t);
      rewrite(f);
      while not(eof(t))do
        begin
          read(t,officer);
          write(f,officer);
        end;
      close(f);
      close(t);
end;



procedure del(var f:ff;var t:ff;nameofficer:string);
begin
  reset(f);
  rewrite(t);
  while not (eof(f))do
    begin
      read(f,officer);
      if (nameofficer<>officer.name)then
         write(t,officer);
    end;
   close(t);
   close(f);
   reset(t);
   rewrite(f);
   while not(eof(t))do
     begin
       read(t,officer);
       write(f,officer);
    end;
    close(f);
    close(t);
end;



procedure displaydata(var f:ff);
var number:integer;
begin
  writeln('enter number the officer that you want display on the screen');
  readln(number);
  reset(f);
  while not(eof(f))do
    begin
      read(f,officer);
      if (number=officer.num)then
        with officer do
           writeln('number=',num,'   name is  ',name,'  sal=',sal);
    end;
  close(f);
end;



procedure change(var f:ff;var t:ff);
var number:integer;
begin
  writeln('enter number the officer that you want change the data');
  read(number);
  reset(f);
  rewrite(t);
  while not(eof(f))do
    begin
      read(f,officer);
      if (number=officer.num)then
          with officer do
              begin
                writeln('enter the num  ');
                readln(num);
                writeln('enter the name  ');
                readln(name);
                writeln('enter the sal  ');
                readln(sal);
                writeln('************************');
                write(t,officer);
              end
       else
         write (t,officer);
    end;
       close(f);
       close(t);
       reset(t);
       rewrite(f);
       while not(eof(t))do
           begin
              read(t,officer);
              write(f,officer);
           end;
       close(f);
       close(t);
       reset(f);
       while not(eof(f))do
         begin
           read(f,officer);
           with officer do
               writeln(num,'  ',name,'  ',sal);
         end;
      close(f);
end;



procedure list(var f:ff);
var salary:real;
begin
  writeln('please enter salary that you want');
  readln(salary);
  reset(f);
  while not(eof(f))do
    begin
      read(f,officer);
      if (officer.sal>salary)then
           writeln(officer.name);
   end;
   close(f);
end;



procedure sort (var f:ff);
var max:integer;
    tt:ff;
    maxofficer:officer1;
    l,i:integer;
begin
  assign(tt,'g:\tempt.txt');
  i:=0;
  l:=0;
  reset(f);
  while not(eof(f))do
    begin
       read(f,officer);
       i:=i+1;
    end;
  close(f);
 repeat
    max:=0;
    reset(f);
    rewrite(tt);
    while not(eof(f))do
       begin
         read(f,officer);
         if (officer.sal>max)then
            begin
              max:=officer.sal;
              maxofficer:=officer;
            end;
        end;
    write(tt,maxofficer);
    close(f);
    l:=l+1;
    del(f,t,maxofficer.name);
 until(l>i);
 close(tt);
 reset(tt);
 rewrite(f);
 while not(eof(tt))do
   begin
      read(tt,officer);
      write(f,officer);
   end;
 close(tt);
 close(f);
 reset(f);
  while not(eof(f))do
  begin
    read(f,officer);
    with officer do
      writeln(num,'  ',name,'  ',sal);
  end;
  close(f);
end;




begin
  assign(f,'g:\mariam.txt');
  assign(t,'g:\temp.txt');
  read_f(f);
  writeln('if you want show all information the officer enter 1');
  writeln('if you want add officer enter 2');
  writeln('if you want del officer enter 3');
  writeln('if you want display data worker is know the number enter 4');
  writeln('if you want change information of worker enter 5');
  writeln('if you want show names of worker who take salary better than one enter 6');
  writeln('if you want sort the information enter 7');
  writeln('if you want exit enter 8');
  writeln('******************************************');
  repeat
     writeln('please enter the choise');
     readln(i);
     case i of
        1:write_f(f);
        2:add(f,t);
        3:begin
            writeln('please enter name the officer that you want delet');
            readln(nameofficer);
            del(f,t,nameofficer);
          end;
        4:displaydata(f);
        5:change(f,t);
        6:list(f);
        7:sort(f);
        8:exit
      else
        writeln('the number is error');
     end;
  until(i=8);
  readln;
end.

هي مشكلتو بتصور شي تعليمة لازم تكون ابل تعليمة
جربت كل الحالات حتى الي مالي مقتنعة فيون
بس للاسف ما مشي الحالو :evil: :evil: :evil: :evil:
ومشكورين سلفا" :iok:
وبالتوفيق :ism: :ism: :ism:
ذبحوا الأطفال يا رب..قصفوا المساجد يا رب..مزقوا قرآننا يا الله..دنسوا مقدساتنا يا الله
يا رب فلتقعقع أبواب السماء من عندك رجاءً يا الله..وليهتز عرشك غضباً يا الله ..
من نحن حتى تنصرنا يا الله...انصر دينك يا الله!!!
صورة العضو الشخصية
HELP YOU
مشرفة لوحة الإعلانات
مشرفة لوحة الإعلانات
 
مشاركات: 1150
اشترك في: الأربعاء سبتمبر 29, 2010 9:34 pm
مكان: في بلاد الله الواسعة
الجتس: أنثى
الشهادة الثانوية: تقنيات حاسوب
الجامعة: جامعة دمشق
الكلية: -----
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة OPADA-Eng » الجمعة إبريل 01, 2011 1:06 am

OSAMA ALNAJAR كتب:استاذ عبادة انت معلمنا وتاج راسنا كأنك ما لاحظت حلقة الربيت ويلي بتخلي الخيارات تطلع بعد كل اجرائية :mrgreen:
يا اما انا ما فهمت شو قصدك؟ :???:

تسلم :wink2: :wink2:
ربيت :eek: :eek: :eek: :eek: :eek: :eek: :eek:
مين سمير :mrgreen: :mrgreen:
عفوا :imb:
بس لو كنت عامل متل ما قلك HELP YOU لو مفوت التعليمات اللي جواتها لانو ما انتبهتلها بصراحة
ولو انك عامل متل ما قلتلك لكنت نفدت من فزلكت واحد سئيل متلي :wink2: :wink2:
.. نحن قوم أعزنا الله بالإسلام فلا نطلب بغير الله بديلاً ..

عمر بن الخطاب
صورة العضو الشخصية
OPADA-Eng
عضو نشيط
عضو نشيط
 
مشاركات: 1433
اشترك في: الأحد سبتمبر 26, 2010 6:29 pm
مكان: بلد القرآن
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة HELP YOU » الجمعة إبريل 01, 2011 1:09 am

OPADA-Eng كتب:
OSAMA ALNAJAR كتب:استاذ عبادة انت معلمنا وتاج راسنا كأنك ما لاحظت حلقة الربيت ويلي بتخلي الخيارات تطلع بعد كل اجرائية :mrgreen:
يا اما انا ما فهمت شو قصدك؟ :???:

تسلم :wink2: :wink2:
ربيت :eek: :eek: :eek: :eek: :eek: :eek: :eek:
مين سمير :mrgreen: :mrgreen:
عفوا :imb:
بس لو كنت عامل متل ما قلك HELP YOU لو مفوت التعليمات اللي جواتها لانو ما انتبهتلها بصراحة
ولو انك عامل متل ما قلتلك لكنت نفدت من فزلكت واحد سئيل متلي :wink2: :wink2:

حاشاك أستاذ عبادة بس أنتل عم تقلك شوفني شوفني
يعني الواحد عكتافو ملائكة
فهمنا ريبيت مو مبينة بس أنتل واضحة متل عين الشمس
بلا سمير :nau: :nau:
تقبل مروري
كمل تنكيش :nau: :nau: :nau:
ذبحوا الأطفال يا رب..قصفوا المساجد يا رب..مزقوا قرآننا يا الله..دنسوا مقدساتنا يا الله
يا رب فلتقعقع أبواب السماء من عندك رجاءً يا الله..وليهتز عرشك غضباً يا الله ..
من نحن حتى تنصرنا يا الله...انصر دينك يا الله!!!
صورة العضو الشخصية
HELP YOU
مشرفة لوحة الإعلانات
مشرفة لوحة الإعلانات
 
مشاركات: 1150
اشترك في: الأربعاء سبتمبر 29, 2010 9:34 pm
مكان: في بلاد الله الواسعة
الجتس: أنثى
الشهادة الثانوية: تقنيات حاسوب
الجامعة: جامعة دمشق
الكلية: -----
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة Mr.TAMER » الجمعة إبريل 01, 2011 1:25 am

HELP YOU كتب:واسما صايرة القصة وصايرة تفضلو هي كودي صح 99.9999999999 بالمية في مشكلة وحدة بالفرز
المهندسة قالتلي صح كودك 100000 بال 100 بس ما طلع معا وين الخطا مشان هيك من بعد اذنكن اذ حدى عندو الحاسة السابعة وحسن يعرفلي الخطا باجرائية الفرز يخبرني لانو حاستي السادسة ما اكتشفت الخطا مع العلم هو عم يفوت عل شاشة السودة وكل الاجرائيات عم تتنفذ صح بس باجرائية الفرز عم يطبعلي اول ريكورد بالملف ما بعرف ليش :evil: :evil:
CODE: تحديد الكل
program mmm;
type officer1=record
       num:integer;
       name:string[20];
       sal:integer;
     end;
     ff=file of officer1;
var f,t:ff;
    officer:officer1;
    i:integer;
    nameofficer:string[20];



procedure read_f(var f:ff);
var i:integer;
     c:char;
begin
rewrite(f);
repeat
    with officer do
      begin
        writeln('enter the num  ');
        readln(num);
        writeln('enter the name  ');
        readln(name);
        writeln('enter the sal  ');
        readln(sal);
        writeln('************************');
        write(f,officer);
      end;
      writeln('do you want enter also please answer y or n');
      readln(c);
until(c='n');
 close(f);
end;



procedure write_f(var f:ff);
var i:integer;
begin
i:=0;
reset(f);
while not(eof(f))do
  begin
    i:=i+1;
    read(f,officer);
    with officer do
      writeln(num,'  ',name,'  ',sal);
  end;
  writeln('number of the recoreds is =',i);
close(f);
end;



procedure add(var f:ff;var t:ff);
var c:char;
begin
  reset(f);
  rewrite(t);
  while not(eof(f)) do
    begin
      read(f,officer);
      write(t,officer);
     end;
    close(f);
    repeat
      with officer do
       begin
        writeln('enter the num  ');
        readln(num);
        writeln('enter the name  ');
        readln(name);
        writeln('enter the sal  ');
        readln(sal);
        writeln('************************');
        write(t,officer);
      end;
      writeln('do you want enter also please answer y or n');
      readln(c);
until(c='n');
      close(t);
      reset(t);
      rewrite(f);
      while not(eof(t))do
        begin
          read(t,officer);
          write(f,officer);
        end;
      close(f);
      close(t);
end;



procedure del(var f:ff;var t:ff;nameofficer:string);
begin
  reset(f);
  rewrite(t);
  while not (eof(f))do
    begin
      read(f,officer);
      if (nameofficer<>officer.name)then
         write(t,officer);
    end;
   close(t);
   close(f);
   reset(t);
   rewrite(f);
   while not(eof(t))do
     begin
       read(t,officer);
       write(f,officer);
    end;
    close(f);
    close(t);
end;



procedure displaydata(var f:ff);
var number:integer;
begin
  writeln('enter number the officer that you want display on the screen');
  readln(number);
  reset(f);
  while not(eof(f))do
    begin
      read(f,officer);
      if (number=officer.num)then
        with officer do
           writeln('number=',num,'   name is  ',name,'  sal=',sal);
    end;
  close(f);
end;



procedure change(var f:ff;var t:ff);
var number:integer;
begin
  writeln('enter number the officer that you want change the data');
  read(number);
  reset(f);
  rewrite(t);
  while not(eof(f))do
    begin
      read(f,officer);
      if (number=officer.num)then
          with officer do
              begin
                writeln('enter the num  ');
                readln(num);
                writeln('enter the name  ');
                readln(name);
                writeln('enter the sal  ');
                readln(sal);
                writeln('************************');
                write(t,officer);
              end
       else
         write (t,officer);
    end;
       close(f);
       close(t);
       reset(t);
       rewrite(f);
       while not(eof(t))do
           begin
              read(t,officer);
              write(f,officer);
           end;
       close(f);
       close(t);
       reset(f);
       while not(eof(f))do
         begin
           read(f,officer);
           with officer do
               writeln(num,'  ',name,'  ',sal);
         end;
      close(f);
end;



procedure list(var f:ff);
var salary:real;
begin
  writeln('please enter salary that you want');
  readln(salary);
  reset(f);
  while not(eof(f))do
    begin
      read(f,officer);
      if (officer.sal>salary)then
           writeln(officer.name);
   end;
   close(f);
end;



procedure sort (var f:ff);
var max:integer;
    tt:ff;
    maxofficer:officer1;
    l,i:integer;
begin
  assign(tt,'g:\tempt.txt');
  i:=0;
  l:=0;
  reset(f);
  while not(eof(f))do
    begin
       read(f,officer);
       i:=i+1;
    end;
  close(f);
 repeat
    max:=0;
    reset(f);
    rewrite(tt);
    while not(eof(f))do
       begin
         read(f,officer);
         if (officer.sal>max)then
            begin
              max:=officer.sal;
              maxofficer:=officer;
            end;
        end;
    write(tt,maxofficer);
    close(f);
    l:=l+1;
    del(f,t,maxofficer.name);
 until(l>i);
 close(tt);
 reset(tt);
 rewrite(f);
 while not(eof(tt))do
   begin
      read(tt,officer);
      write(f,officer);
   end;
 close(tt);
 close(f);
 reset(f);
  while not(eof(f))do
  begin
    read(f,officer);
    with officer do
      writeln(num,'  ',name,'  ',sal);
  end;
  close(f);
end;




begin
  assign(f,'g:\mariam.txt');
  assign(t,'g:\temp.txt');
  read_f(f);
  writeln('if you want show all information the officer enter 1');
  writeln('if you want add officer enter 2');
  writeln('if you want del officer enter 3');
  writeln('if you want display data worker is know the number enter 4');
  writeln('if you want change information of worker enter 5');
  writeln('if you want show names of worker who take salary better than one enter 6');
  writeln('if you want sort the information enter 7');
  writeln('if you want exit enter 8');
  writeln('******************************************');
  repeat
     writeln('please enter the choise');
     readln(i);
     case i of
        1:write_f(f);
        2:add(f,t);
        3:begin
            writeln('please enter name the officer that you want delet');
            readln(nameofficer);
            del(f,t,nameofficer);
          end;
        4:displaydata(f);
        5:change(f,t);
        6:list(f);
        7:sort(f);
        8:exit
      else
        writeln('the number is error');
     end;
  until(i=8);
  readln;
end.

هي مشكلتو بتصور شي تعليمة لازم تكون ابل تعليمة
جربت كل الحالات حتى الي مالي مقتنعة فيون
بس للاسف ما مشي الحالو :evil: :evil: :evil: :evil:
ومشكورين سلفا" :iok:
وبالتوفيق :ism: :ism: :ism:


السلام عليكم.

بصراحة لم أقرأ الكود جيداً، فقط قرأت إجرائية الـ sort بشكل سريع :imb:

ولكن أغلب الظن أن الخطأ هو أنكم في حلقة الـ repeat تقومون بإعادة فتح الملف للكتابة كل مرة، لاحظوا :

CODE: تحديد الكل
repeat
   max:=0;
   reset(f);
   rewrite(tt); // HERE IS THE CAUSE OF THE PROBLEM
   while not(eof(f))do
      begin
       read(f,officer);
       if (officer.sal>max)then
         begin
           max:=officer.sal;
           maxofficer:=officer;
         end;
      end;
   write(tt,maxofficer);
   close(f);
   l:=l+1;
   del(f,t,maxofficer.name);
until(l>i);


هذا السطر هو المشكلة، ما هدفكم منه؟ يجب فتح الملف للكتابة مرة واحدة قبل الدخول في حلقة الـ repeat، أي هذا السطر يجب كتابته قبل حلقة الـ repeat.

هلا جربتم ذلك من فضلكم، ليس لدي compiler للباسكال حالياً :imb:

بانتظار النتائج....

والسلام عليكم ورحمة الله تعالى وبركاته :iok:
Volunteer at Wikilogia

Member of WikiTechie

Contributor in Wiki ITE... Let's open-source our university

All with Proud & Pleasure :)
صورة العضو الشخصية
Mr.TAMER
عضو فعال
عضو فعال
 
مشاركات: 721
اشترك في: الجمعة يناير 01, 2010 12:46 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثالثة

Re: مناقشة الوظيفة الخامسة - عملي برمجة2

مشاركة غير مقروءةبواسطة HELP YOU » الجمعة إبريل 01, 2011 1:38 am

بس عفوا انا حاطا بالمسار الامتداد exeبدل bin مع انو بعرفا
بس سقطت سهوا :imb:
ذبحوا الأطفال يا رب..قصفوا المساجد يا رب..مزقوا قرآننا يا الله..دنسوا مقدساتنا يا الله
يا رب فلتقعقع أبواب السماء من عندك رجاءً يا الله..وليهتز عرشك غضباً يا الله ..
من نحن حتى تنصرنا يا الله...انصر دينك يا الله!!!
صورة العضو الشخصية
HELP YOU
مشرفة لوحة الإعلانات
مشرفة لوحة الإعلانات
 
مشاركات: 1150
اشترك في: الأربعاء سبتمبر 29, 2010 9:34 pm
مكان: في بلاد الله الواسعة
الجتس: أنثى
الشهادة الثانوية: تقنيات حاسوب
الجامعة: جامعة دمشق
الكلية: -----
المرحلة الدراسية: السنة الثالثة

السابقالتالي

العودة إلى البرمجة 2

الموجودون الآن

المستخدمون المتصفحون لهذا المنتدى: لا يوجد أعضاء مسجلين متصلين و 1 زائر

cron