E) Rename(f,s)+
61. (n- integer ғ) assingfile (f,number.txt); rewrite (f); for i=1 to 5 do begin n:=StrToint (Edit1.Text); writeln (f,n); end;closefile (f); ғ ә:
E) 5 ү ғ +
62.(n- integer ғ) assingfile (f,number.txt); reset (f);while not EOF (f) do begin readln (f,n); Memo1.lines.Add(intTostr(n); end; closefile (f); ғ ә:
B) number.txt ә Memo-ө ң ұ ғ+
63.: var f1:text; k,I,m,n:string;begin rewrite (f1); k:=;i:=pe;m;=; n:= ; writeln (f1,k,m,n);reset (f1); read(f1,k); writeln(k); end.f1 ө үң қ,ә ң.
D) close (f1); ;+
64. қ ң ұ ғ ө ә ө қ өң:
C) MDL+
65. қғ ө қң:
E) OnKeyClick+
ғ ә ... қ.
E) ғ ғғ ә +
67.ң ғ өң:
E) ә қ, ғ қғ ө қ қғ +
68.M1 ә M2:M1=[1,2,3,4];M2:=[3,4,1] . ә ғ ң M3:=M1-M2; M3 ң?
E) [2]+
69.Tyre Car = record Nom,oklad,stag:integer;FIO,adres: string[25]; end; ө ұ қ -...
E) Adres:= 115+
Objest Pascal- қ
B) _( ғ )+
қ қ ?
E) shortint+
қ ?
E) қ +
73. ә true ә ө ңң:
E) not ((a<3) and (a>10))+
ғ ү ғ ң қ ө ғ?procedure TForm1.BitBth1Click(Sender:TObjest); var i: integer;begin
Image1.Canvas.Pen.Color:=clred; for I:=1 to 5 do
Image1.Canvas.Rectangle(10+i*50,20,40+i*50,50);end;
A) өң қ 5 қ +
Restangle (x1,y1,x2,y2: integer) ... ү қ
E) (x1,y2) қ ғғ ң қ ө (x2,y2) өұ +
|
|
|
ң ө ө 5 ә 6 ғ ?
D) MoveTo(5,6)+
ә қ ...
E) ә қ қ,әң құ ұқ +
78.ә қ қ ү :
E) Refresh+
79.ә қ :
B) Locate,Lookup+
ә қ қ ү ү қ қ?
A) Edit+
81.ә қ :
A) Delete+
ң қ
C) INSERT+
83.ә қ ұ қ ө :
C) DataSourse,Data Module,Table +
84. ә қ ү:
E) қ,,қ+
85.ң ұ өң:
A) қ ө қ+
ә ә қ ә ү қ әә қ?
A) FindKey+
87.ә қ ққ үң әң ө:
C) ә +
ң ?
D) өң +
ң ?
A) ң +
Қ ... .
E) ә +
91.readln(a,b,c); қ қ:
E) қ ә ң Enter ү +
Lt;7.2) or (8.7>-4) өң ә
C) true+
ElnOutError қ ғң ?
+B) ғ ғ қ,errorode
Object Pascal- Class -...
+A) құ ө, ә ә қ құ
ү ғ ә ү қғ ү ... қ .
E)+
96. қ ү әң ұқғ ө ңң:
E)Override+
TObject- қ қ қ ...
E)TComponent ә TControl+
Procedure TForm1.Button1.Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text);end; қғ өң ң ғ ә
C) ң ң қ+
|
|
|
