Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 16.01.2015
Сообщений: 1

Определить количество пустых полей доски, которые находятся под боем

16.01.2015, 18:31. Показов 628. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На шахматной доске 8х8 расположены три фигуры: ферзь, ладья и конь. Требуется определить количество пустых полей доски, которые находятся под боем. Для простоты будем полагать, что фигуры могут "бить" через другие фигуры. Например, в рассмотренной слева ситуации будем считать, что ферзь бьет D5 через ладью.
Входные данные: Выходные данные:
В единственной строке входного файла INPUT.TXT записаны через пробел координаты расположения трех фигур: ферзя, ладьи и коня соответственно. Каждая координата состоит из одного латинского символа (от A до H) и одной цифры (от 1 до 8).
В единственную строку выходного файла OUTPUT.TXT нужно вывести количество пустых полей, которые бьют указанные во входных данных фигуры.
Пример входного файла (input.txt):
D1 D3 E5
Пример выходного файла (output.txt):
29
Вот что смог сделать но скайт выдает ошибку
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var f:text;
    a:array[1..n,1..n] of boolean;
    hf,gf,hl,gl,hk,gk:byte;
    s:string;
    i,j,k:byte;
    c:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,s);
close(f);
hf:=ord(s[1])-64;
val(s[2],gf,c);
hl:=ord(s[4])-64;
val(s[5],gl,c);
hk:=ord(s[7])-64;
val(s[8],gk,c);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=false;
for i:=1 to n do
for j:=1 to n do
 begin
  if(j=hf)or(i=gf)or(abs(j-hf)=abs(i-gf))then a[i,j]:=true;
  if(j=hf)or(i=gf)then a[i,j]:=true;
  if((abs(i-hk)=1)and(abs(j-gk)=2))or((abs(i-hk)=2)and(abs(j-gk)=1))
  then a[i,j]:=true;
 end;
a[hf,gf]:=false;
a[hl,gl]:=false;
a[hk,gk]:=false;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=true then k:=k+1;
assign(f,'output.txt');
rewrite(f);
write(f,k);
close(f);
readln
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.01.2015, 18:31
Ответы с готовыми решениями:

Определить количество пустых полей доски, которые находятся под боем
На шахматной доске 8х8 расположены три фигуры: ферзь, ладья и конь. Требуется определить количество пустых полей доски, которые находятся...

Напишите программу ,определяющую поля шахматной доски,находящиеся под боем коня
Напишите программу ,определяющую поля шахматной доски,находящиеся под боем коня.

Решить задачу так чтобы фиксировались клетки шахматной доски находящиеся под боем
Решить задачу так чтобы фиксировались клетки шахматной доски находящиеся под боем -хотя бы одной из фигур ферзя или ладьи Program...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.01.2015, 18:31
Помогаю со студенческими работами здесь

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

Определить сумму и число элементов матрицы, которые находятся под каждом столбцом матрицы.
1. Дана матрица. Определить сумму и число элементов матрицы, которые находятся под каждом столбцом матрицы. Результат вывести в виде двух...

Определить, находится ли черная шашка под боем белой дамки
Белая дамка расположена на поле (х, n). Черная шашка находится на поле (y, m). Находится черная шашка под боем белой дамки? (Других фигур...

Определить, находится ли черная шашка под боем белой дамки
Белая дамка расположена на поле (х, n).Черная шашка расположена на поле (y, m). Находится черная шашка под боем белой дамки? (Других фигур...

Математика: определить количество пустых полей доски, которые находятся под боем
Нужна помощь! На шахматной доске 8х8 расположены три фигуры: ферзь, ладья и конь. Требуется определить количество пустых полей доски,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru