Практикалық жұмыс
Тақырыбы: Жолдық
шамалар
Мақсаты: 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.