visual basic / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / visual basic

3 сообщений из 3, страница 1 из 1

visual basic

#38647899

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

Гость

спасибо большое)

...

Рейтинг:

0 / 0

22.05.2014, 13:24

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / visual basic

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38648353&tid=2156367]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	40ms
get topic data:	11ms
get forum data:	3ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	14ms

total:	140ms