برنامه نویسی با زبان پاسکال

سلام بچه ها کسی هست که در زبا پاسکال استاد باشه و به من کمک کنه؟
یه پروژه باید تا هفته دیگه تحویل بدم اما بعضی از جاهاشو بلد نیستم .
اگه عزیزی هست تا من برنامه رو بگم؟
ازتون ممنون میشم

حالا تو برنامه رو بگو اساتید خودشون پیدا میشن

سلام
موضوع پروژه:
برنامه ای بنویسید که مشخصات 10 نفر شامل :نام , نام خوانوادگی , شماره دانشجویی و معدل را گرفته و سپس عددی بین 1 تا 4 را دریافت کند که اگر:
1 بور آرایه را بر اساس شماره دانشجویی مرتب کند .
2 بود یک نام را گرفته و مشخصات آن را پیدا کند و چاپ کند.
3 بود بر اساس فامیلی جست جو کند .
4 بود بر اساس شماره دانشجویی جستجو کند.
بچه ممنون میشم اگر کسی این برنامه رو میدونه واسم تایپ کنه چون من خودم نوشتم اما یه جاهاییش ایراد داره.

اگه ممکنه برنامتو بذار تا ارور گیری کنیم. برای نوشتنش من یکی که وقت ندارم. اگه میتونی یا کدش بذار یا upload کن و linke رو بذار

سلام
راستش هرچی نوشته بودم پاک شد
سیستمم ویروسی شده بود .
اما بهتر شد ,
حالا با کمک شما دوستان کاملشو مینویسم.
بچهها اگه یکی بنویسه ممنون میشم دیگه وقتی ندارم باید تا 5 شنبه تمومش کنم.
فکر نکنم خیلی زیاد بشه

کسی نیست به من کمک کنه؟؟؟؟
رویا جان ممنون میشم کمکم کنی
3 نمره میان ترم داره از دست میره

سلام من مینویسم فقط همشو میخوای بنویسم یا 2 تا تابع آخر رو بسپرم به خودت؟ و اینکه تا کی میخوای دقیقا؟

یک دنیا تشکر رویای عزیز
واقعا مرسی, اگر جسارت منو ببخشید اگه ممکنه همه بر نامه رو بنویسید چون دیگه وقتی برام نمونده شنبه هم امتحان دارم که اونو باید تا جمعه آماده کنم و پرینتشو هم بگیرم و همون لحظه(شنبه که امتحانه) تحویل بدم.
خیلی خوشحالم کردی رویا جان امیدوارم که بتونم محبتتون رو جبران کنم :40:

کد:

---


program test;
uses
  crt;
const
 n=10;
 type
  student = record
  name : string[30];
  fam: string[40];
  sh:integer;
  avg: real;
 end;
 student1=array[1..n] of student;
 procedure sort(var list:student1);
var
intpos,intfirstpos,
intmin,i  :integer;
rectemp :student;
begin
 for intfirstpos:=low(list) to high(list) do
  begin
  intmin:=intfirstpos;
    for intpos:= intfirstpos+1 to high(list) do
    if list[intmin].sh >list[intpos].sh then
      intmin:=intpos;
    rectemp:=list[intmin];
    list[intmin]:=list[intfirstpos];
    list[intfirstpos]:=rectemp;
    end;
  for i := 1 to n do
  writeln(list[i].name,' ',list[i].fam,' ',list[i].sh,' ',list[i].avg);
  end;
procedure name(var list:student1);
var i :integer;
namest :string[40];
begin
 writeln('enter a name:');
 readln(namest);
 for i := 1 to n do
 begin
  if list[i].name = namest then
    writeln(list[i].name,' ',list[i].fam,' ',list[i].sh,' ',list[i].avg);
 end;
end;
procedure fam(var list:student1);
var i :integer;
famst :string[40];
begin
 writeln('enter a fam:');
 readln(famst);
 for i := 1 to n do
 begin
  if list[i].fam = famst then
    writeln(list[i].name,' ',list[i].fam,' ',list[i].sh,' ',list[i].avg);
 end;
end;
procedure number(var list:student1);
var i :integer;
nst :integer;
begin
 writeln('enter a number student:');
 readln(nst);
 for i := 1 to n do
 begin
  if list[i].sh = nst then
    writeln(list[i].name,' ',list[i].fam,' ',list[i].sh,' ',list[i].avg);
 end;
end;
 var
 st:student1;
 i,j,k:integer;
begin
 clrscr;
 for i := 1 to n do
 begin
 write('enter a name sudent ',i,' :');
 readln(st[i].name);
 write('enter a fam student ',i,' :');
 readln(st[i].fam);
 write('enter a number student ',' :');
 readln(st[i].sh);
 write('enter a avg student ',' :');
 readln(st[i].avg);
 end;
 clrscr;
 writeln('1-sorting list');
 writeln('2-search for name:');
 writeln('3-search for fam:');
 writeln('4-search for number student:');
writeln('enter a number:');
readln(k);
while k<>0 do
begin
 case k of
 1:sort(st);
 2:name(st);
 3:fam(st);
 4:number(st);
else
 write('invalid number.')
 end;
 writeln('enter a number:');
 readln(k);
end;
readln;
end.

---

اگر جایی مشکل داشتی بهم بگو

سلام به رویای عزیز
مرسییییییییییی
دوست دارم از ته دل , نمیدونم چطوری محبتتون رو جبران کنم واقعا ممنونم .
خدا رو شکر برای تحویل پروژه یه چند روزه دیگه محلت داد تستش میکنم اگه با مشکل بر خوردم مزاحمتون میشم .
فردا صبح آنلاین میشم
باز هم مرسی از زحماتتون