Практикалық жұмыс

Тақырыбы:    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;

 

 


Мысалы:  Күн және уақыт типі