Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Проверить, являются ли числа в файле упорядоченными по возрастанию https://www.cyberforum.ru/ pascal/ thread1535623.html Здравствуйте. Задача : Пусть дан файл целых чисел (типизированный). Проверить , являются ли числа в файле упорядоченными по возрастанию. мое : uses crt; type input = integer; var f:...	Найти названия предметов, которые ведет преподаватель с фамилией Fam Pascal Есть вот это : program c; const n=5; type stroka = array of char; dayweek = ( mo, tu, we, th, fr, sa, su); time = record hour: 0..23; min: 0..59; end;
Pascal Найти первый из номеров последовательности чисел для которого выполняется условие. https://www.cyberforum.ru/ pascal/ thread1535561.html Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 1, A2 = 2, AN = (AN-2+ AN-1)/2, N = 3, 4, ... Найти первый из номеров K, для которых выполняется условие \|AK...	Pascal Составить программу для вычисления значения функции Y при заданном х https://www.cyberforum.ru/ pascal/ thread1535287.html Составить программу для вычисления значения функции Y при заданном х . y=sinx+x^3 при x=0.112;
Вычислить объем правильной четырехугольной пирамиды Pascal Составить программу для решения задачи . Набрать и наладить эту программу , а также подобрать входные данные. Дано высоту и сторону правильной четырехугольной пирамиды , вычислить ее объем.	Pascal Создать массив, содержащий действительные числа из текстового файла. https://www.cyberforum.ru/ pascal/ thread1535203.html Помогите!!! Очень срочно нужно!!! 4. Дан текстовый файл input.txt, содержащий действительные числа (количество чисел в файле не превышает 1000). Создать массив, содержащий компоненты этого файла....
Pascal Протабулировать функцию в паскале на задаными промежутке и с заданым шагом https://www.cyberforum.ru/ pascal/ thread1535139.html Как в паскале протабулировать функцию y = sin ( x ) на промежутке с шагом 0,1.Вивесты результат на экран с соответствующим пояснительной текстовой информацией.	Pascal Представить натуральное число в виде суммы простых натуральных чисел Здравствуйте. :) Прошу помощи в написании алгоритма для элементарной задачи.. Заранее спасибо.;) Дано натуральное число N. Представить его в виде суммы простых натуральных чисел так, чтобы...
Pascal Найти сумму и произведение элементов массива и выбрать из них наибольшее Дали задание а я не понимаю как делать. Дан массив X(15) найти сумму и произведение элементов и выбрать из них наибольшее https://www.cyberforum.ru/ pascal/ thread1535096.html	Pascal Найти сумму элементов и их количество до первой перемены знака в массиве В массиве найти сумму элементов и их количество до первой перемены знака. Буду благодарна за решение! https://www.cyberforum.ru/ pascal/ thread1535046.html
Решить неравенство Pascal решить неравенство A*X^2 <= B	Pascal Замена строк в текстовом файле без его перезаписи https://www.cyberforum.ru/ pascal/ thread1535019.html Товарищи, подскажите, каким образом можно менять содержимое текстового файла без его перезаписи? Задание выглядит так: требуется найти определенную строку в текстовом файле и заменить ее на другую...

Puporev

Почетный модератор

64288 / 47587 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

22.09.2015, 14:34

Может ли шахматный король попасть с первой клетки на вторую за один ход - Pascal - Ответ 8101635

22.09.2015, 14:34. Показов 4520. Ответов 2

Метки (Все метки)

Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal

const n=8;
var  v1,g1,v2,g2:integer;
begin
repeat
writeln('Введите координаты короля от 1 до 8');
readln(v1,g1);
until(v1 in [1..n])and(g1 in [1..n]);
repeat
writeln('Введите координаты поля от 1 до 8');
readln(v2,g2);
until(v2 in [1..n])and(g2 in [1..n])and((v1<>v2)or(g1<>g2));
if (abs(g2-g1)<2)and(abs(v2-v1)<2)
then write('может') else write('не может')
end.

Вернуться к обсуждению:
Может ли шахматный король попасть с первой клетки на вторую за один ход Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.09.2015, 14:34

Готовые ответы и решения:

Определите, может ли шахматный король попасть с первой клетки на вторую за один ход
Поле шахматной доски определяется парой чисел (a, b), каждое от 1 до 8, первое число задает номер...

Определить, может ли король попасть с первой заданной клетки на вторую одним ходом
Шахматный король ходит по горизонтали, вертикали и диагонали, но только на 1 клетку. Даны две...

Определить, может ли король попасть с первой заданной клетки на вторую одним ходом (шахматы)
Доброго времени суток. Начал интересоваться C++ и прохожу онлайн курс. Застопорился на условных...

Может ли шахматный ферзь за один ход перейти с клетки в клетку
Заданы координаты клетки шахматной доски (х; у) - целые числа. Выяснить, может ли шахматный ферзь...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.09.2015, 14:34

Помогаю со студенческими работами здесь

Выяснить, что шахматный король за один ход может переместиться с одного заданного поля на другое
Задание:Pascal ABS Для каждой задачи составить программу, выводящую значение TRUE, если указанное...

Может ли шахматный конь за один ход попасть из одного поля в другое?
Заданы координаты двух полей на шахматной доске: px1 py1 и px2 py2. Гарантируется (т.е. не надо...

Может ли шахматный конь за один ход попасть из одного поля в другое?
5.Заданы координаты двух полей на шахматной доске: px1 py1 и px2 py2. Гарантируется (т.е. не надо...

Найти поля, на которые может попасть шахматный конь за один прыжок из данной клетки
На пустой шахматной доске в одной из клеток стоит шахматный конь. Напишите программу, которая...

Вывести все возможные поля, на которые может попасть шахматный конь за один прыжок из данной клетки
Здравствуйте! Помогите решить задачку и написать программу на С++! Шахматный конь. Вася решил...

Может ли ферзь попасть с первой клетки на вторую одним ходом
Доброго времени суток! Условие задачи следующее:Шахматный ферзь ходит по диагонали, горизонтали...

Наверх