Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Процедура delete https://www.cyberforum.ru/ pascalabc/ thread2335161.html
Есть записи , есть 2 файла я должен ввести имя товара и сначала нужно перекинуть товар в файл g , а потом вернуть f . Procedure delete(var f:base,g:base,s:srring); Writeln('Название товара'); readln(s); ... Как это осуществить ?
Глюк в генераторе СЧ Pascal ABC
Работаю с программой, ищущей глобальный минимум среди миллионов минимумов локальных. Программа формирует случайный вектор и шагает им из текущего минимума. Заметил странный ляп. Программа находит с десяток минимумов, а потом ничего не находит долгое время. Между тем, если её остановить и запустить заново, то новые минимумы тут же находятся. Применял randomize, программно закрывал и вновь...
Pascal ABC Односвязный список: удалить k-й элемент и вставить m элементов в конец Необходимо создать односвязный список с полями ФИО, дата рождения, ЗП удалить к-й элемент и вставить м элементов в конец. https://www.cyberforum.ru/ pascalabc/ thread2334888.html Pascal ABC Вычислить сумму и количество положительных элементов массива https://www.cyberforum.ru/ pascalabc/ thread2334867.html
Вычислить сумму и количество положительных элементов массива X(n), где 1<=n<=100 Буду очень признателен
Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите их количество Pascal ABC
1. Задача . Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите их количество. В тетради : блок - схема , программа, ответ- количество
Pascal ABC Написать программу, которая распечатывает все буквы, которых нет в введенной строке Помогите, если можете https://www.cyberforum.ru/ pascalabc/ thread2334392.html
Pascal ABC Необычное уравнение https://www.cyberforum.ru/ pascalabc/ thread2334373.html
Помогите решить уравнение (№16), буду очень благодарен!
Найти в массиве наиболее повторяющийся элемент и подсчитать количество его повторений Pascal ABC
Задача звучит так. Введите массив символов из 11 элементов. Определить самый часто встречающийся символ и количество его повторений. program lab6_z2;{$APPTYPE CONSOLE} uses System,Windows,Math; const n=11; Var A:array of char; i:integer; begin
Pascal ABC Возведение в степень Возведение в степень По трем натуральным числам a, b и m вычислить значение a в степени b mod m. Входные данные Три натуральных числа a, b, m (1 ≤ a, m ≤ 109, 2 ≤ b ≤ 107). Выходные данные Вывести ab mod m.  https://www.cyberforum.ru/ pascalabc/ thread2334214.html Pascal ABC Вывести по номеру цеха фамилию и зарплату https://www.cyberforum.ru/ pascalabc/ thread2333975.html
Нужно при вводе номера цеха с клавиатуры, вывести фамилию человека и его зарплату, не могу понять как сделать вывод const num=3; type rec=record fam,ceh:string; zar,otp:real; end; mas=array of rec;
Быстрое возведение в степень Pascal ABC
Вычислите AB mod M (A,B,M ≤ 1018).
Pascal ABC Программа по удалению 1-й буквы в каждом слове что в type и Var не так ввёл? вроде всё верно, а он зараза при запуске ошибку выдаёт, что-то не нравится ему при сравнении длины исходной строки с единицей, const R=20; type Lenght=1..R; Var st_isx,st_rez,slovo:String; i,k:Byte; begin Write('введите текст 20 символов:'); https://www.cyberforum.ru/ pascalabc/ thread2333520.html
0 / 0 / 0
Регистрация: 16.10.2018
Сообщений: 1
0

Подсчитать кол-во квадратных зданий на карте, если известно, что никакие два здания не касаются - Pascal ABC - Ответ 12975482

16.10.2018, 17:02. Показов 862. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
Дана карта местности, на которой изображены задания. Карта разбита на клетки. Массив клеток состоит из N строк и M столбцов. если клетка принадлежит зданию, то в исходном массиве ей соответствует 1, иначе 0. Все здания прямоугольной формы со сторонами, параллельными сторонам карты. Подсчитать кол-во квадратных зданий на карте, если известно, что никакие два здания не касаются (нет общих точек), и никакое здание не касается границы карты. Здания из 1-й клетки считать квадратными. 3<=N<=1000, 3<=M<=1000
Формат входных данных
N M Размер карты
x11 x12 ... x1M массив клеток со зданиями
...
xN1 xN2 ... xNM
Формат выходных данных
K Количество зданий

Пример входных и выводных данных
Входные данные
6 8
00000000 3
01101010
01100000
01100110
01100110
00000000

Выходные данные
3

Вернуться к обсуждению:
Подсчитать кол-во квадратных зданий на карте, если известно, что никакие два здания не касаются Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2018, 17:02
Готовые ответы и решения:

Известно, что никакие два участника не набрали одинаковое количество баллов. По информации о результатах первого тура по
Одна Очень Престижная Олимпиада, как и все престижные олимпиады в последнее время, состоит из двух...

Известно, что среди элементов матрицы два и только два равны между собой: найти их
Задан двумерный целочисленный массив. Известно, что среди его эле-ментов два и только два равны...

Известно, что среди элементов массива два и только два равны между собой. Напечатать их индексы
Дан одномерный целочисленный массив A(N). Известно, что среди его элементов два и только два равны...

Известно, что среди элементов массива два и только два равны между собой. Напечатать их индексы
Дан двумерный целочисленный массив А(2, N). Известно, что среди его элементов два и только два...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2018, 17:02
Помогаю со студенческими работами здесь

Известно, что среди элементов массива два и только два равны между собой. Напечатать их индексы
Дан массив А. Известно, что среди его элементов два и только два равны между собой. Напечатать их...

Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы
привет всем)) плиз помогите решить задачу Дан массив А. Известно, что среди его элементов два и...

Известно, что среди элементов массива два и только два равны между собой. Напечатать их индексы
Помогите, пожалуйста, решить задачу. Дан двухмерный целочисленный массив А размером nхm....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru