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

  • Автор темы vitaliy08
  • Дата начала
V

vitaliy08

Гость
#1
Народ!Помогите перевести код из языка С на язык 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]
 
J

Jumpy

Гость
#3
а translate.ru не подойдет ?)))

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