امتحان ميان ترم  برنامه سازی پیشرفته در ۷/۹/۱۳۸۶  چهارشنبه ساعت ۹ صبح برگزار  ميگردد .

امتحان ميانترم مباني كامپيوتر رشته رياضي و مهندسي كامپيوتر در ۷/۹/۱۳۸۶ در چهارشنبه ساعت ۹ صبح برگزار  ميگردد .

قابل توجه دانشجويان برنامه سازي پيشرفته

تمرين برنامه نويسي تا فصل ۶ به عنوان تكاليف توسط دانشجويان بايد ارائه شود

تمرینات فصل ۵

سوال ۲

        uses wincrt;
var
i,j:integer;
begin
i:=15;j:=3;
i:=i+j;
j:=i-J;
i:=i-j;
writeln('i=',i,'j=':10,j);
end.

سوال  ۳

   uses wincrt;
var
temp,first,second,third:integer;
begin
first:=13;second:=15;third:=17;temp:=0;
temp:=first;
first:=second;
second:=third;
third:=temp;
writeln('first=',first,'second=':10,second,'third=':10,third);
end.

سوال  ۴

  uses wincrt;
var
first,second,s{majmoe 2 adad},p{majmoe morabae 2 adad}:integer;
begin
first:=12;second:=13;
s:=first+second;
p:=(first*first)+(second*second);
writeln('s=',s,'p=':10,p);
end.

سوال  ۵

   uses wincrt;
begin
writeln('name:mansour':46);
writeln('family:mohseni':47);
writeln('number: 8512698529':49);
.end                                                    

برنامه یک عدد در مبنای ۲

Var
      a: array [ 1.. 10] of  integer  ;j , number , i: integer  ;
Begin
                               Writeln ( ' please  enter    Numbers ' )  ;
                               
                                 i:=1;
                                 while number >=0 do
                                     begin
                                       a[i]:=number mod 2 ;
                                       number:=number div 2;
                                       i:=i+1;
                                                End  ;
                  for j:=i-1 down to 1 do
                  wite (a[j]);
 end

بر نامه یک عدد در مبنای شانزدprogram p83;
uses wincrt;
Var
      hex: array [ 1.. 10] of char  ;j , number , i,r: integer  ;
Begin
                               Writeln ( ' please  enter    Numbers ' )  ;
                                 readln(number);
                                 i:=1;
                                 while number >=0 do
                                     begin
                                       r:=number mod 16 ;
                                              case r of
                                              0:hex[i]:='0';
                                              1:hex[i]:='1';
                                               2:hex[i]:='2';
                                              3:hex[i]:='3';
                                                4:hex[i]:='4';
                                              5:hex[i]:='5';
                                               6:hex[i]:='6';
                                               7:hex[i]:='7';
                                               8:hex[i]:='8';
                                              9:hex[i]:='9';
                                               10:hex[i]:='A';
                                              11:hex[i]:='B';
                                                12:hex[i]:='C';
                                             13:hex[i]:='D';
                                               14:hex[i]:='E';
                                               15:hex[i]:='F';

                                                End  ;
                                                I:=I+1;
                                                NUMBER:=number div 16;
                                                end;
                  for j:=i-1  downto 1 do
                  write (hex[j]);
 end.
ه