نزدیکی به کنکور
نزدیکی به کنکور
کنکور جامع مهندسی کامپیوتر(کارشناسی ناپیوسته-کارشناسی ارشد)
برنامه سازی کامپیوتر
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