Для студентов МГТУ им. Н.Э.Баумана по предмету ИнформатикаСобственная реализация функции CopyСобственная реализация функции Copy
2016-12-152016-12-15СтудИзба
Задача: Собственная реализация функции Copy
Описание
РК №3. Вариант 1. Задача 1.3
Характеристики решённой задачи
Предмет
Учебное заведение
Семестр
Просмотров
287
Скачиваний
23
Размер
437 b
Список файлов
- 1.3.txt 674 b
1.3
program Project2;
var
s:string;
Otkuda,Skok:Integer;
function MyCopy(s:string; start,count:integer):string;
var
i,l,max:integer;
begin
l := length(s);
if (l>0) and (start<=l) and (start>0) then
begin
if start+count>l then
max:=l
else
max:=start+count-1;
for i:=start to max do
result:=result+s[i];
end
else
writeln('Error in MyCopy!');
end;
begin
Write('Vvedite stroku: ');
ReadLn(S);
WriteLn('S kakoy pozicii?');
ReadLn(Otkuda);
WriteLn('Skolko simvolov?');
ReadLn(Skok);
writeln(MyCopy(s,Otkuda,Skok));
ReadLn;
end.