تبلیغات
برنامه نویسی با پاسکال - دریافت اطلاعات حداکثر 100 دانشجو و نمایش آن با شماره دانشجویی به در خواست توحید

ارائه سورس کد ها و پروژه های پاسکال تحت ویندوز!
صرفا جهت آموزش ، نه کپی برداری برای پروژه های دانشگاهی!

لطفا سورس کد های این وبلاگ را برای پرژه های دانشگاهی تون استفاده نکید ، واقعا هدف وبلاگ این نیست.
تمامی مسولیت کپی کردن و ارائه به استاد بر عهده شخص شماست نه نویسنده.

حسین

جستجو

 

دریافت اطلاعات حداکثر 100 دانشجو و نمایش آن با شماره دانشجویی به در خواست توحید

یکشنبه 17 آذر 1387   07:11 ب.ظ


نوع مطلب : سورس کدهای پاسکال ،آموزش برنامه نویسی با پاسکال ،

uses wincrt;

var
   info : array[1..100,1..4] of string[30];
   no   : array[1..100] of longint;
   n,i,j,stno : integer;
begin
     writeln('Enter number of sutudent which you want to add,maximum number is 100');
     readln(n);

if n>100 then
        writeln('Number Is Greater than 100,program will work But in continue you have problem');
     for i:= 1 to n do
         for j:= 1 to 4 do
             begin
                  case j of
                       1 :
                         begin
                              writeln('Enter First Name OF Student',' ',i);
                              readln(info[i,1]);
                         end;
                       2 :
                         begin
                              writeln('Enter Last Name OF Student',' ',i);
                              readln(info[i,2]);
                         end;
                       3 :
                         begin
                              writeln('Enter Student NO OF Student',' ',i);
                              readln(no[i]);
                         end;
                       4 :
                         begin
                              writeln('Enter Enter Year OF Student',' ',i);
                              readln(info[i,4]);
                         end;
                  end;
             end;
     writeln('Entering Data Compilited');
     writeln('Now You Can Enter Student No and Give Stiudent information');
     writeln;
     writeln('Enter Student No');
     readln(stno);
     for i:=1 to n do
         if no[i]=stno then
             begin
                  writeln('Information Of Student',' ',i);
                  writeln('         First Name :',' ',info[i,1]);
                  writeln('          Last Name :',' ',info[i,2]);
                  writeln('         Student No :',' ',no[i]);
                  writeln('       Entring Year :',' ',info[i,4]);
             end;

     i:= i+1;
     if i > n then
        writeln('There is No Student With Upper Code');
end.
       


نوشته شده توسط : حسین