Помогите перевести код из языка С на язык Basic

Тема в разделе "Visual Basic", создана пользователем vitaliy08, 5 июн 2008.

  1. vitaliy08

    vitaliy08 Гость

    Народ!Помогите перевести код из языка С на язык Basic

    Программа вычисляет по заданным координатам позицию фигуры конь и отмечает ее буквой К, а звездочками позции под срубом. Программа из 2 процедур, каждая в отдельном файле. В языке Basiс ответ должен помещаться в текстовый файл. Заранее благодарен.

    Ниже приведен код на языке С
    [codebox]
    #include <stdio.h>
    #include <stdlib.h>
    #include <conio.h>
    #include <ctype.h>
    #define ESC 27
    //Программа для вычисления позиции фигуры конь и позиций сруба
    void main(void){
    char Numbpos[2]; //Номер позиции
    short i,j;
    char Nachpos[3]; //Начальная позиция
    short Knight(short,short,short,short); //Прототип Knight

    //Ввод и контроль данных
    do{
    do{
    clrscr();
    printf("\Координаты позиции: ");
    gets(Nachpos);
    Nachpos[0]=toupper(Nachpos[0]); //Проверка на регистр
    Numbpos[0]=Nachpos[0]-'A'; //Перевод строки в число
    Numbpos[1]=Nachpos[1]-'1';
    if(Nachpos[0]<'A'||Nachpos[0]>'H'||Nachpos[1]<'1'||
    Nachpos[1]>'8'){ //Проверка на диапазон
    printf("\Ошибка ввода!\n");
    getch();
    }
    }while(Nachpos[0]<'A'||Nachpos[0]>'H'||Nachpos[1]<'1'||Nachpos[1]>'8');
    //Вызов процедуры и печать результата
    printf("\n");
    printf(" A B C D E F G H\n");
    for (i=0;i<8;i++){
    printf("%d",i+1);
    for (j=0;j<8;j++)
    printf(" %s", Knight(i,j,Numbpos[0],Numbpos[1])?"*":
    (i== Numbpos[0] && j==Numbpos[1]?"K":"-"));
    printf("\n");
    }
    printf("\n");
    cprintf("Продолжить(Enter) / Выход(ESC)");
    printf("\n");
    }while(getch()!=ESC);
    }



    #include <stdio.h>
    #include <stdlib.h>
    #include <conio.h>
    //Процедура высичления позиции коня и позиций сруба
    short Knight(short x,short y,short pos1,short pos2){
    if ((x == pos1-2 && y == pos2-1) ||
    (x == pos1-2 && y == pos2+1) ||

    (x == pos1+2 && y == pos2-1) ||
    (x == pos1+2 && y == pos2+1) ||

    (x == pos1+1 && y == pos2+2) ||
    (x == pos1-1 && y == pos2+2) ||

    (x == pos1+1 && y == pos2-2) ||
    (x == pos1-1 && y == pos2-2))
    return 1;
    return 0;
    }[/codebox]
     
  2. Gamlet

    Gamlet Well-Known Member

    Регистрация:
    8 янв 2007
    Сообщения:
    609
    Симпатии:
    0
    Тебе Байсик или Визуал байсик нужен?
     
  3. Jumpy

    Jumpy Гость

    а translate.ru не подойдет ?)))

    p.s. простые задачи лучше не переписывать с другого языка, а ставить задачу с 0.
     
Загрузка...

Поделиться этой страницей