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

Тақырыбы:    Жолдық шамалар

Мақсаты:  Pascal тілінің негізгі жолдық  функцияларын қолдануды меңгерту

Жұмыстың барысы: төмендегі берілген мысалдарды Delphi ортасында орындау керек.

 

 

 

 

 


Мысалдар

 

1 Берiлген программа n натурал санының цифрларының санын анықтайды.

      n : integer;   s : string;

 Begin

N:=1235647;

      Str(n,s);

ShowMessage('n='+inttostr(length(s)));
End.

 

2 Символдық массив берiлген. Жолдардың  ең үлкенiн табатын программа

Var

    s, s1, M : string;

             I : integer;

Begin

 S:=’aaf ffaf vnbvb gba ff’;

 s1 := '';  M := '';

 For i := 1 to length( s ) do

   If s[i] <> ' ' then s1 := s1 + s[i];

                       else   begin    if length(s1)>length(M)  then M := s1;  s1 := ''   end;

  if length(s1)>length(M) then M := s1;

 ShowMessage('n='+ m);

end.