Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal В прямоугольной матрице удалить строки, в которых есть минимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread676561.html В прямоугольной матрице удалить строки, в которых есть минимальный элемент.	Одномерный массив. Вывод Turbo Pascal Необходимо вывести одномерный массив из 31 элемента в виде таблицы с количеством столбцов не более 5 и минимальным количеством строк - определяется программно. Вот здесь набросала код, вроде...
Turbo Pascal Вывести на экран элементы главной диаганали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread676533.html Вывести на экран элементы главной диаганали двумерного массива 5x5 элементы массива вводятся с клавиатуры.	Turbo Pascal Найти произведение натуральных чисел от 3 до В https://www.cyberforum.ru/ turbo-pascal/ thread676517.html Написать программу выводящую на экран произведение натуральных чисел от 3 до В включая и 3, и В :) Желательно с блок-схемой..
квадратная матрица Turbo Pascal Дана квадратная матрица, упорядочить строки алгоритмом простого включения по возростанию сумм элементов строки!	Turbo Pascal Найти произведение в массиве Найти произведение сумм \Sigma Xk k=1,2,...n-1 и \Sigma Xk k=2,4,6...,n https://www.cyberforum.ru/ turbo-pascal/ thread676494.html
Turbo Pascal В векторе Х подсчитать число нулей и заменить отрицательные элементы их абсолютными велечинами https://www.cyberforum.ru/ turbo-pascal/ thread676485.html В векторе Х подсчитать число нулей и заменить отрицательные элементы их абсолютными велечинами	Дан текст, за которым следует точка Turbo Pascal Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст. Добавлено через 1 минуту нужен текст...
Turbo Pascal Прокомментировать строки программы https://www.cyberforum.ru/ turbo-pascal/ thread676479.html Помогите пожалуйста закоментировать 2 программы. Вот задачи:Первая program New; var c,x:integer; begin writeln ('Vvedite x- '); readln (x); if x>0 then c:=8+5 else c:=x+6;	Turbo Pascal Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой.Требуется: Найти количество слов, начинающихся на букву «а». https://www.cyberforum.ru/ turbo-pascal/ thread676474.html
Turbo Pascal Определить минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы Дана целочисленная квадратная матрица:задается с экрана либо генерируется в пределах от -20 до 20 Определить минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.	Turbo Pascal Определить, делится ли число на 95 https://www.cyberforum.ru/ turbo-pascal/ thread676469.html 20-значное число задано массивом цифр от 1 до 20.Определить делится ли оно на 95.

~~MansMI~~

Заблокирован

21.10.2012, 17:07

По заданному номеру клетки найти номера всех клеток, имеющих с ней общую сторону - Turbo Pascal - Ответ 3589154

21.10.2012, 17:07. Показов 2182. Ответов 2

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

Сообщение было отмечено iDem как решение

Решение

Сообщение от iDem

использованием оператора варианта

интересно как тут можно вывести 4-х соседей, а без этого:

Pascal

uses crt;
var n: integer;
 
begin
 
  write('Номер клетки:');
  readln(n);
  if (n-1)mod 8<>0 then writeln('Сосед:',n-1);
  if (n-1)div 8>0 then writeln('Сосед:',n-8);
  if (n-1)mod 8<>7 then writeln('Сосед:',n+1);
  if (n-1)div 8<>7 then writeln('Сосед:',n+8);
 
  readkey;
end.

Вернуться к обсуждению:
По заданному номеру клетки найти номера всех клеток, имеющих с ней общую сторону Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.10.2012, 17:07

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

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева напрпаво и снизу вверх.По...

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева направо и снизу вверх.По...

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

Напишите пожалуста программу :которая по заданному номеру клетки даст номер всех клеток,имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строчкам, слева на право и снизу вверх.Написать...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.10.2012, 17:07

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

На ввод номера клетки вывести номера всех клеток, имеющих с ней общую сторону
Все клетки шахматной доски пронумерованы от 1 до 64 так, что первая строка клеток имеет номера от 1...

Найдите максимальную красоту среди красот всех клеток и количество клеток, имеющих такую красоту
Помогите с Олимпиадой задачкой. Проходит не все тесты: Видимость звездочек (упрощенная версия) ...

Список всех клеток, на которые может попасть конь с указанной клетки за один ход
Вам дана строка, содержащая координату клетки на шахматном поле (например, “A2”). Напишите функцию...

Вывести в файл описания всех клеток, целиком лежащих внутри круга, в порядке возрастания расстояния от клетки до центра
Пытался по разному подходить к решению этой задачи, но в итоге все без толку. Условие полностью:...

Наверх