Шахматная доска, Помогите пожалуйста нарисовать шахматную доску. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Шахматная доска, Помогите пожалуйста нарисовать шахматную доску. |
Bulochnik |
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Реальное имя: Олег Репутация: 0 |
Помогите пожалуйста нарисовать шахматную доску!
Сообщение отредактировано: Bulochnik - |
Тузик |
Сообщение
#2
|
Гость |
uses crt;
var k,l,m,n:byte; begin clrscr; repeat writeln('Поле слона:'); write('k=');readln(k); write('l=');readln(l); until (k in [1..8])and(l in [1..8]); repeat writeln('Поле для хода:'); write('m=');readln(m); write('n=');readln(n); {на доске и на разных полях одного цвета} until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0); if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход') else write('Нельзя попасть за 1 ход'); readln end. |
Тузик |
Сообщение
#3
|
Гость |
uses crt;
var k,l,m,n:byte; begin clrscr; repeat writeln('Поле слона:'); write('k=');readln(k); write('l=');readln(l); until (k in [1..8])and(l in [1..8]); repeat writeln('Поле для хода:'); write('m=');readln(m); write('n=');readln(n); {на доске и на разных полях одного цвета} until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0); if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход') else write('Нельзя попасть за 1 ход'); readln end. |
Тузик |
Сообщение
#4
|
Гость |
uses crt;
var k,l,m,n:byte; begin clrscr; repeat writeln('Поле слона:'); write('k=');readln(k); write('l=');readln(l); until (k in [1..8])and(l in [1..8]); repeat writeln('Поле для хода:'); write('m=');readln(m); write('n=');readln(n); {на доске и на разных полях одного цвета} until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0); if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход') else write('Нельзя попасть за 1 ход'); readln end. |
Тузик |
Сообщение
#5
|
Гость |
uses crt;
var k,l,m,n:byte; begin clrscr; repeat writeln('Поле слона:'); write('k=');readln(k); write('l=');readln(l); until (k in [1..8])and(l in [1..8]); repeat writeln('Поле для хода:'); write('m=');readln(m); write('n=');readln(n); {на доске и на разных полях одного цвета} until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0); if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход') else write('Нельзя попасть за 1 ход'); readln end. |
тузик |
Сообщение
#6
|
Гость |
С тебя 100р. на киви кошелёк... 89635044222
|
Федосеев Павел |
Сообщение
#7
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Если не секрет - как ты у "скелета образца 2011" года сможешь хоть что-то вытянуть?
|
Текстовая версия | 15.05.2024 22:04 |