Важная информация
Показано с 1 по 3 из 3

Тема: перевести на basic с pascal

  1. #1 перевести на basic с pascal 
    Новичок
    Регистрация
    16.07.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    известно,что в исходной строке есть двоеточие.Получить все символы,расположенные между первым и вторым двоеточием.Если второго двоеточия нет,то получить все символы,расположенные после единственного имеющегося двоеточия.
    есть эта же программа только на паскаль и си...
    НА 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;
    }
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Сейчас попробую.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код qbasic:
    INPUT "Введите строку ", a$
    i = 1
    b$ = ""
    ye = 0
    a:
    IF ye = 1 THEN IF MID$(a$, i, 1) <> ":" THEN b$ = b$ + MID$(a$, i, 1)
    IF MID$(a$, i, 1) = ":" THEN IF ye = 1 THEN ye = 2 ELSE IF ye = 0 THEN ye = 1
    i = i + 1
    IF (ye <> 2) AND (i <> LEN(a$) + 1) THEN GOTO a
    PRINT b$

    Вот программа.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите перевести на BASIC с Pascal
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 24.01.2012, 19:08
  2. Помогите перевести на BASIC с С
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 24.01.2012, 19:01
  3. Перевести с C++ на Basic
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 20.01.2012, 17:16
  4. Перевести с Pascal на Basic
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 20.01.2012, 17:14
  5. Помогите перевести на Basic с C
    от Denis в разделе QBasic
    Ответов: 2
    Последнее сообщение: 20.01.2012, 17:06
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •