паскаль-билдер

@Zuev777 · Регистрация: 01.03.2017

Author24 — интернет-сервис помощи студентам

Привет дорогие форумчани, помогите новичку перевести из паскаля в C++ builder.
Вот. задание если нужно \.Описать функцию InvStr(s, k, n) строкового типа, возвращающую инвертированную подстроку строки s, содержащую в обратном порядке n символов строки s, начиная с ее k-го символа. Если k превосходит длину строки s, то возвращается пустая строка; если длина строки меньше k + n, то инвертируются все символы строки, начиная с ее k-го символа. Вывести значения функции InvStr для данной строки s и каждой из трех пар положительных целых чисел: (k1, n1), (k2, n2), (k3, n3).

Pascal

uses crt; 
function InvertStr(s:string;k,n:integer):string; 
var i:byte; 
s2:string; 
begin 
if k>length(s) then s2:='' 
else if k+n>length(s) then 
begin 
s2:=''; 
for i:=length(s) downto k do 
s2:=s2+s[i]; 
end 
else if k+n<=length(s)then 
begin 
s2:=''; 
for i:=k+n-1 downto k do 
s2:=s2+s[i]; 
end; 
InvertStr:=s2 
end; 
var s:string; 
i,k,n:integer; 
begin 
clrscr; 
for i:=1 to 3 do 
begin 
writeln('Введите строку:'); 
readln(s); 
write('Введите k>0 k='); 
readln(k); 
write('Введите n>0 n='); 
readln(n); 
writeln(InvertStr(s,k,n)) 
end; 
readln 
end.

	01.03.2017, 22:37