Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
savichc
13.02.2022 23:28 •
Информатика
Решить в паскале! на шахматной доске стоят черный король и три белые ладьи (ладья бьет по горизонтали и вертикали) . проверить, не находится ли король под боем.
Показать ответ
Ответ:
den13232
24.07.2020 19:23
const
n = 3; //Кол-во фигур
var
i : integer;
xk,yk : integer;
xl,yl : array [1..n] of integer;
r : boolean;
begin
//Задание координат
//
xk := 2; yk := 2; // Координаты короля
//Координаты ладьи
xl[1] := 1; yl[1] := 2;
xl[2] := 4; yl[2] := 6;
xl[3] := 5; yl[3] := 8;
//
r := false;
i := 1;
While (i <= n) and (not r) do
begin
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной прямой
r := true;
i:= i +1;
end;
if r then
writeln ('Король под ударом')
else
writeln ('Король живет)');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AMK525
19.05.2022 06:10
Могут ли элементами некоторого массива быть числа 1, 1.41, 1.73 и 2?...
bondarenkoadeli
18.03.2023 06:22
Выберите несколько из 4 вариантов ответа: 1) раздел - это часть текста. 2) уровней заголовков может быть большое количество и все они будут являться подразделами. 3)...
кефирка5623
21.11.2020 10:18
Втаблице запросы к поисковому серверу. для каждого запроса указан его код - соответствующая буква от а до г. расположите коды запросов слева направо в порядке убывания...
Lev1223
24.05.2022 07:39
решить задачу в MS Excel!При плане продаж 20 единиц в месяц оклад 30000 руб. Если продавец продал менее 20 единиц, то за каждую непроданную единицу до плана минус 200...
тиматимуша
24.05.2022 07:39
В таблицах приведены за к поисковому серверу. Расположите обозначения за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за А) разведение...
ПолинаТришинкова
13.08.2021 08:33
С ИНФОРМАТИКОЙ С ИНФОРМАТИКОЙ >...
Unknown2281
20.01.2021 22:37
Даны два действительных числа a, b. Возвести первое число в квадрат, если оно больше второго. Если это не так, возвести в квадрат второе число На паскале...
кор17
03.12.2021 14:58
Решите Определите значение переменной а после выполнения данного алгоритма:b := 8;a := 10;b := b + a * 2;a := 29 – a;Определите значение переменной b после выполнения...
12345578824828
19.01.2021 00:26
A) Unscramble the sports. 1. slarilibd2. usahqs -3. gmiwsimn4. eshsc-5. nisnet -...
stasison
15.04.2022 13:19
В каком из предложений нужна запятая? 1. На корабле мы ехали двое суток и это путешествие нам очень нравилось. 2. Девочки и мальчики весь день плавали в бассейне и загорали....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 3; //Кол-во фигур
var
i : integer;
xk,yk : integer;
xl,yl : array [1..n] of integer;
r : boolean;
begin
//Задание координат
//
xk := 2; yk := 2; // Координаты короля
//Координаты ладьи
xl[1] := 1; yl[1] := 2;
xl[2] := 4; yl[2] := 6;
xl[3] := 5; yl[3] := 8;
//
r := false;
i := 1;
While (i <= n) and (not r) do
begin
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной прямой
r := true;
i:= i +1;
end;
if r then
writeln ('Король под ударом')
else
writeln ('Король живет)');
end.