ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / visual basic
3 сообщений из 3, страница 1 из 1
visual basic
    #38647899
xarchuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xarchuk
Гость
Помогите пожалуйста перевести из pascal в visual basic
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
var
  x1,y1,x2,y2: byte;
begin
  repeat
    write('Введите координаты первого поля: ');
    readln(x1,y1);
  until (x1 in [1..8]) and (y1 in [1..8]);
  repeat
    write('Введите координаты второго поля: ');
    readln(x2,y2);
  until (x2 in [1..8]) and (y2 in [1..8]);
  if ((abs(x2-x1)=2)and(abs(y2-y1)=1))or((abs(x2-x1)=1)and(abs(y2-y1)=2))
    then writeln('true') else
      writeln('false');
  readln;
end.



Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
21.05.2014, 17:26
| Ответить | Цитировать | Написать  
visual basic
    #38648353
_Дмит_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Дмит_
Гость
как то так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long

Do
x1 = Val(InputBox("Введите координату первого поля x1"))
y1 = Val(InputBox("Введите координату первого поля y1"))
Loop Until x1 > 0 And x1 < 9 And y1 > 0 And y1 < 9

Do
x2 = Val(InputBox("Введите координату второго поля х2"))
y2 = Val(InputBox("Введите координату второго поля y2"))
Loop Until x2 > 0 And x2 < 9 And y2 > 0 And y2 < 9

MsgBox ((Abs(x2 - x1) = 2) And (Abs(y2 - y1) = 1)) Or ((Abs(x2 - x1) = 1) And (Abs(y2 - y1) = 2))
...
Рейтинг: 0 / 0
22.05.2014, 08:54
| Ответить | Цитировать | Написать  
visual basic
    #38648927
xarchuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xarchuk
Гость
спасибо большое)
...
Рейтинг: 0 / 0
22.05.2014, 13:24
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / visual basic
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]