четверг, 7 марта 2013 г.

Лаба 13.1 COPY [PASCAL]

Написать свою процедуру COPY

uses CRT;

var
S, S1: String;

procedure My_Copy(S: String; Index: Integer; Count: Integer);

var
Temp_S: String;
I: Byte;

begin
Temp_S := '';

If Count > Length(S)-2 then Count := Length(S)-2; //длина

If Index < Length(S) then
For I := 1 to Count do
Temp_S := Temp_S + S[Index+I];

write(Temp_S);
end;

begin

readln(S);

My_Copy(S, 2, 3);

end.