Практикалық
жұмыс
Тақырыбы: Delphi –дегі деректер типі
Мақсаты: Object Pascal тілінің негізгі типтерін қолдануды меңгерту
Жұмыстың
барысы: төмендегі берілген мысалдарды Delphi ортасында орындау керек.
Мысалы:
s және l бүтін типті айнымалыларды салыстыру
var
same : Boolean;
s, l, i : Integer;
begin
s:=23;
l:= 455555;
if
s=l
then ShowMessage('s=l тең')
else ShowMessage('s<>l тең емес');
// Boolean типті айнымалы қолданылған
same:=(s=l);
if same
then ShowMessage('s=l тең')
else ShowMessage('s<>l тең емес');
//Boolean типтін мәнін қолдану
same
:= True;
if same
then ShowMessage('бұл да, - True')
else ShowMessage('бұл да ,- False');
end;
Нәтижесі
s <> l тең
емес
s <> l тең емес
бұл да, - True
Мысалы:
Int64 типтің мәндері
var
min, max : Int64;
begin
// Осы типтің ең үлкен
және ең кіші мәнін орнату
min := Low(Int64);
max := High(Int64);
ShowMessage('Min-ді мәні: int64='+IntToStr(min));
ShowMessage('Max-ді мәні: int64='+IntToStr(max));
end;
Нәтижесі
Min-ді мәні:
int64 = -9223372036854775808
Max-ді мәні: int64 = 9223372036854775807
Мысалы:
Double типі қабылдайтын мәнді және
дәлдігін көрсету
var
a1, a2, a3, a4 : Double;
begin
a1 := 0.1234567890123456789; // 20 таңбалы мән
a2 := 1.234567890123456789E308; // Ең үлкен мәні
a3 := a1 + a2;
a4 :=
9.9E308; // Шексіздік ретінде өңделеді
ShowMessage('20 таңбалы мәні:
А1 = '+FloatToStr(account1));
ShowMessage('Ең үлкен мәні: А2= '+FloatToStr(account2));
ShowMessage('A3 = А1+А2
='+FloatToStr(account3));
ShowMessage('Шексіздік ретінде A4 =
'+FloatToStr(account4));
end;
Нәтижесі
A1 =
0.123456789012346
A2 = 1.23456789012346E308
A3 = 1.23456789012346E308
A4 = INF
Мысалы:
WideStrings типті меншіктеу және
басқару
var
string1, string2 : WideString;
begin
// Меншіктеу
string1 := 'Салем ';
string2 := string1;
// біріктіру
string2 := string2 + ', калың қалай?';
ShowMessage('String1 = '+string1);
ShowMessage('String2 =
'+string2);
end;
Нәтижесі
String1 = Салем
String2 = Салем, қалың қалай?
Мысалы: бүтін
типтті амалдар
procedure
TForm1.Button1Click(Sender: TObject);
var
x,y,p:integer;
Begin
p:=1;
edit1.setfocus;
x:=strtoint(edit1.Text);
y:=x div
1000;
p:=p*y;
y:=(x div
100) mod 10;
p:=p*y;
y:=(x mod
100) div 10;
p:=p*y;
y:=x mod 10;
p:=p*y;
ShowMessage('p='+IntToStr(p));
End;
Мысалы: Күн және уақыт типі