Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2017, 21:29   #1
полина99789
Новичок
Джуниор
 
Регистрация: 01.03.2017
Сообщений: 1
По умолчанию паскаль-билдер

помогите перевести из паскаля в билдер код
uses crt;
function InvertStr(s:string;k,n:integer):str ing;
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.
полина99789 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++ Билдер Den_Dodge C++ Builder 1 09.11.2015 22:19
Караоке. На билдер Vzlom C++ Builder 0 22.05.2013 18:37
файлы в с++ билдер Abilov Ali C++ Builder 0 30.04.2011 18:51
Билдер С++ или не С++? mutabor Свободное общение 3 28.03.2010 17:47