Program stparol;
Var
Name: string[30];
Parol: string [6];
Begin
Write ( (6 )?);
Readln (parol);
If parol= then begin
Write( ?);
Readln (name);
Writeln (name,, . );
End
Else begin
Writeln ( ! !);
End;
End.
, . ,
First _name:=;
Last_name:=;
Ful_name:=first_name+ +last name;
ful_name .
Turbo Pascal 7.0 . .
LENGTH
length . - . ( ) - , . ,
N: =length ()
M: =length ( )
n m 6 18.
, 6, length .
6.
Program instarr;
Const
N=35;
Var
Student: array [1..N] of string; { }
Name: string [30]; { }
I: integer;
Begin
I: =1;
Repeat
Write ( <Enter> - >);
Readln (name);
If length (name)<>0
Then
Begin
Student [i]:=name;
I: =i+1;
End;
Until (length (name) =0) or (i=N);
{ }
i:=1;
while (length (student[i])<>0) and (i<=N) do
begin
Writeln (student[i]);
I:=i+1;
End;
End.
. , (35 ), <Enter> ( )
DELETE
delete . :
Delete (, p, n);
- ; p- , ; n- .
,
S:= -;
Delete (s, 7, 6)
s
POS
pos . :
pos (, );
, .
,
P:=pos (, );
p 7.
, pos . , 7, pos delete .
|
|
|
7.
Program dledspa;
Var
St: string [30];
Begin
Write ( );
Readln (st);
While (pos ( ,st)=1) and (length(st)>0) do
Delete (st,1, 1);
Write ( :, st);
End.
while , pos ( pos ). length(st)>0 , . :
: .
: .
COPY
copy . copy :
copy (, p, n);
, , ; p- , ; n- .
,
St: = ;
Fam:= copy (st, 9,6);
fam .
VAL
VAL . :
Val (, , );
- , ; - , , ; - ( ). - , , , .
,
Val (1,25, n, code);
code 2, 1,25 , , .
val . , moth () integer, read, , , , , , . , val, .
8 , val.
