перевести на basic

[екатерина новикова]

известно,что в исходной строке есть двоеточие.Получить все символы,расположенные между первым и вторым двоеточием.Если второго двоеточия нет,то получить все символы,расположенные после единственного имеющегося двоеточия.

НА PASCAL
program Prog2;
uses Crt;

procedure StrCpyCh(var dest: string; src: string; delim: char);
var
p: integer;
temp: string;
begin
p := Pos(delim, src);
if p = 0 then dest := src else
begin
temp := Copy(src, p+1, Length(src)-p);
p := Pos(delim, temp);
if p = 0 then dest := temp else dest := Copy(temp, 1, p-1);
end;
end;

var
s: string;

begin
ClrScr;
StrCpyCh(s, 'Today day dark: animals - sheep, cat, tiger: fox !', ':');
WriteLn(s);
ReadLn;
end.

НА С
#include <stdio.h>


char* ch_strcpy(char* dst, const char* src, char ch) {
char* iter = dst;
while( *src ) {
if( *src++ == ch )
break;
}
while( *src != '\0' && *src != ch) {
*iter = *src++;
++iter;
}
*iter = '\0';
return dst;
}


int main(void)
{
char str[128];
ch_strcpy(str, "Today day dark: animals - sheep, cat, tiger: fox !", ':');

puts(str);

getchar();
return 0;
}

[was3110]

бейсиков много... На каком Вам нужно? Найдёте мой ящик в профиле, отвечу...