|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.03.2017, 21:29 | #1 |
Новичок
Джуниор
Регистрация: 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |