نزدیکی به کنکور
نزدیکی به کنکور
کنکور جامع مهندسی کامپیوتر(کارشناسی ناپیوسته-کارشناسی ارشد)
 
برنامه سازی کامپیوتر 
 
 
1- با اجرای حلقه مقابل در توربو پاسکال به تعداد 6 بار مقدارjچیست ؟
 
كد:
var i:boolean;
Begin
J:=pred(i)and succ(i);
End
 
 
-1 نا مشخص است
 
Eror-2پیش میآید
 
-3مقدارj برابر false است
 
-4 مقدارjبرابر true است
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-2زیر برنامه مقابل کدام عمل را انجام میدهد
 
 
 
 
كد:
 
procedure RS (st1,st2:string;var str:string);
 
var
 
intpos:integer;
 
egin
intpos:=pos(st1,str);
if intpos>0then
begin
 
 
 
 
كد:
 
 
 
 
 
delet (str1,intpos,length(st1));
 
 
 
 
 
insert(st2,str);
 
end
 
end;
 
 
 
 
 
 
 
 
 
 
 
1-بخشی از رشته را با یک رشته دیگر جایگزین می کند .
 
 
-2رشته ای را در رشته ای دیگر کپی مینماید
3-بخشی ازیک رشته را حذف مینماید
4- eror پیش میآید
-3رویه زیر را درنظر بگیریم اگر کلمه azmoon را به عنوان ورودی دهیم ،خروجی کدام است؟
 
 
 
كد:
 
procedure strupcase (var strword:string);
 
var
 
intcount:integer;
 
begin
for intcount:=1 to length (strword) do
strword [intcount]:=upcase (strword[intcount])
end;
 
 
 
 
 
 
 
 
 
1- Azm
 
Azmoon-2
 
AZMOON-3
 
eror-4 پیش می آید
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
4-تکه ای از یک برنامه به شکل زیر استاین subprogram کدام عمل را انجاممیدهد؟
 
 
 
كد:
 
Assine (fstudent,'student.dat')
 
Reset (fstudent);
 
Seek (fstudent,filesize(fstudent)-1);
 
Read (fstudent,recstudent);
 
 
 
 
 
 
 
 
 
1-خواندن اولین رکورد فایل Student
 
-2خواندن آخرین رکورد فایلStudent
 
3-خواندن اولین رکورد فایل Student.dat 
-4خواندن آخرین رکورد فایلStudent.dat
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-5باداشتن تعریف زیر ،مقدار حافظه پویای تخصیص داده شده به متغیرP چند بایت است؟
 
 
 
كد:
type
node=record
np=^node;
A:string[5]
B:real;
link:np;
End;
Var p:np;
 
 
 
 
 
 
 
-1هیچ گونه حافظه ای تخصیص داده نمیشود
 
13-2
9-3
4-4