Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread1744529.html помогите, пожалуйста, написать программу	Заполнить двумерный массив по схеме Pascal ABC Помогите, пожалуйста, написать программу: Даны числа А1,...,А16. Получить матрицу из данных элементов, расположив их по схеме:
Pascal ABC Изменить матрицу так, чтобы на первом месте стояла строка с максимальной суммой элементов https://www.cyberforum.ru/ pascalabc/ thread1744473.html Изменить заданную прямоугольную матрицу так,чтобы на первом месте стояла строка с максимальной,а на последнем месте строка с минимальной суммой элементов,сохранив все элементы исходной матрицы Эту...	Pascal ABC Вычислить сумму ряда Не рублю. Даже примеров нет. Помогите.(за надписью написано-при x= 0.4 для 15-ти элементов). https://www.cyberforum.ru/ pascalabc/ thread1744438.html
Pascal ABC Вывести только те слова из предложения в которых есть буквосочетание 'ни' Вводится произвольное предложение , слова разделены пробелами после последнего точка. Вывести только те слова из этого предложения в которых есть буквосочетание 'ни'. Исправьте пожалуйста: var ...	Pascal ABC Вывести фамилии сотрудников, номера телефонов, которые начинаются с цифр 361,362 или 273 https://www.cyberforum.ru/ pascalabc/ thread1744319.html Сведения состоят из фамилий сотрудников и их телефонов. Вывести фамилии сотрудников, номера телефонов, которые начинаются с цифр 361,362 или 273.
Pascal ABC Сформировать структуру данных очередь, элементы которой содержат сведения о времени пребывания i-го покупателя У прилавка в магазине выстроилась очередь из покупателей (максимальное количество 30). Время обслуживания продавцом i-го покупателя задано случайно, и изменяется в диапазоне от 5 до 15 минут.... https://www.cyberforum.ru/ pascalabc/ thread1744318.html	Удалить из стека все элементы, кратные 5 Pascal ABC Создать динамическую структуру – стек, содержащий максимально 50 случайных целочисленных элементов. Упорядочить элементы стека по убыванию. Удалить из стека все элементы, кратные 5. Затем оставшиеся...
Pascal ABC Переставить местами первую и последнюю цифры этого числа https://www.cyberforum.ru/ pascalabc/ thread1744313.html Дано натурально число n. Переставить местами первую и последнюю цифры этого числа. В программе использовать любой цикл	Pascal ABC Найти сумму первой и последней цифры числа Дано натуральное число n. Найти сумму первой и последней цифры этого числа. В программе использовать case https://www.cyberforum.ru/ pascalabc/ thread1744312.html
Pascal ABC Заменить в файле все элементы, равные lit, на пробел Люди добрые помогите пожалуйста) Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел. есть кое-какие наработки, ...	Pascal ABC Операция 'and' не применима к типу KeyValuePair<real,integer> Показывает ошибку "Операция 'and' не применима к типу KeyValuePair<real,integer>" VAR X, X1, Y1, Y : REAL; begin WRITELN ( ‘ВВЕДИ X:’); READLN (X); Y:= EXP ((-X+1)LN (3) ) SIN (X); WRITELN... https://www.cyberforum.ru/ pascalabc/ thread1744082.html

Peoples

1623 / 953 / 782

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

Сообщений: 2,449

Записей в блоге: 30

25.05.2016, 17:55

На ввод номера клетки вывести номера всех клеток, имеющих с ней общую сторону - Pascal ABC - Ответ 9188511

25.05.2016, 17:55. Показов 3252. Ответов 2

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

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

Решение

Pascal

program pr;
var
  sh, i, j, m, n: integer;
  a: array [1..8, 1..8] of integer;
begin
  m := 1;
  n := 1;
  for i := 8 downto 1 do
    for j := 1 to 8  do
    begin
      a[i, j] := n * m;
      m := m + 1;
    end;
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
      write(a[i, j]:3);
    writeln;
  end;
  writeln('Введите номер клетки');
  readln(sh);
  writeln('Соседние клетки');
  for i := 1 to 8 do
    for j := 1 to 8 do
      if a[i, j] = sh then
      begin
        writeln(a[i - 1, j]);
        writeln(a[i, j - 1]);
        writeln(a[i + 1, j]);
        writeln(a[i, j + 1]);
      end;
end.

Добавлено через 15 минут
Не, не правильное решение. Так крайние клетки не выведутся

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.05.2016, 17:55

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.05.2016, 17:55

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

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

Вывести на экран номера всех элементов массива, у которых значение больше номера
Заполнить массив из 20 элементов целыми случайными числами от 1 до 20, вывести его на экран....

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

Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.
Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.

Наверх