![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 15.02.2009
Сообщений: 6
|
![]()
дали такое задание - даётся входной файл, в первой строке - длина и количество строк массива. Далее - строки указанной длины, состоящие из единиц и нулей. Требуется найти квадрат, заполненый только единицами, максимальной площади. выходной файл - площадь. Написать на delphi
|
![]() |
![]() |
![]() |
#2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
![]()
От нас чего хочешь?
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 15.02.2009
Сообщений: 6
|
![]()
Подскажите, как сделать
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
![]()
Вот держи квадрат с единицами.Может он и не максимальный, но и не маленький.
![]() Нашел в Инете. Файл - http://s46.radikal.ru/i111/0902/56/7972647b7198.jpg Пожалуйста, поконкретней вопрос.Что требуется исполнить?
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 15.02.2009
Сообщений: 6
|
![]()
требуется написать программу по заданным условиям - найти в заданном файле квадрат, вроде того, что у DeKot
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
![]()
Наконец то дошло.В файле масив типа как на рис. и можно выделить несколько квадратов из едениц.Надо определить индексы большого квадрата и перевести в новый массив типа,выделенного самого большого
![]()
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 38
|
![]()
Прямой перебор:
Цикл для "размер" квадрата от макс_размер до 1 Цикл для "Координата_левого_верхнего_угл а_Х" от 1 до (макс_размер-"размер") Цикл для "Координата_левого_верхнего_угл а_У" от 1 до (макс_размер-"размер") Если ЭтоКвадрат( "Координата_левого_верхнего_угл а_Х" , "Координата_левого_верхнего_угла_Y" , "размер" ) То Конец. |
![]() |
![]() |
![]() |
#8 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]()
Задачка понравилась, хоть и ничего особо сложного в ней нет.
Функция getlen() возвращает длину наибольшего квадрата с заданными координатами левого верхнего угла. Т.к. пока в Делфи с файлами не работал, написал на паскале. Файл kvadr.txt: Код:
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] Последний раз редактировалось Sazary; 15.02.2009 в 19:40. Причина: добавил комменты |
![]() |
![]() |
![]() |
#9 |
Регистрация: 15.02.2009
Сообщений: 6
|
![]()
только проблема - я не работал с файлами в паскале. Можно переписать для дельфи, если можно, с комментариями?
Задаём переменную типа TStringList , затем в коде: X:=Tstringlist.create; загружаем из файла: x.loadfromfile('///'); и у нас теперь есть массив строк, поэлементно - x.strings[i]; Можешь переделать? |
![]() |
![]() |
![]() |
#10 |
Регистрация: 15.02.2009
Сообщений: 6
|
![]()
ну, или просто написать то-же, но с комментариями?
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск площади фигуры методом Монте - Карло | ChertYaGa | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 10.02.2017 20:10 |
Паскаль Вычисление площади | Unikummm | Помощь студентам | 16 | 04.02.2009 06:52 |
нарисовать окружность состоящую из 36 разноцветных квадратов | Invisible Hunter | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.05.2008 18:03 |
Нарисовать на координатной площади линию a*x+b*y+c=0 | НУБ!!! | Общие вопросы Delphi | 4 | 13.05.2008 22:48 |