Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
04.05.2008, 18:49
|
|
Новичок
Регистрация: 26.04.2008
Сообщений: 12
Провел на форуме:
7573
Репутация:
2
|
|
Сообщение от krypt3r
Catsy, первая задача
Условие второй как-то не совсем понял  первая не правельно работает
она ищет не делители, а множители
пример:
диапозон от 5 до 20
у 20 получается 2 2 5 это явно не делители
должно быть если диапозон от 5 до 20 выдать 2 числа 18 и 20 т.к. у этих 2 чисел наибольшее кол-во делителей одинакого т.е.
у 18 это 2 3 6 и 9
у 20 это 2 4 5 и 10
поидеи не обязательно расписывать все числа нуна такого плана
вводим диапозон и сразу выводит числа с наибольшим кол-во делителей
а то если все расписывать, бред получается если диапозо от 2 до 100 ><
исправьте пожалуйста
по второй задаче:
полный квадрат это которые извлекаются нацело ( ну как я понела)т.е. вводим отрезок а1...аn и надо определить какие числа из этого отрезка извлекаются нацело(полный квадрат), а какие нет, через функции
вроде так, хотя если чесно сама не очень понимаю
|
|
|
05.05.2008, 06:48
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
criz( http://forum.antichat.ru/showpost.php?p=674939&postcount=478), память под структуру выделил? На какой строке спотыкается?
она ищет не делители, а множители
Ыть, если так, то сорри, перепутал - и в том и в другом случае число на делители/множители делится нацело ). Переделать код - раз плюнуть.
должно быть если диапозон от 5 до 20 выдать 2 числа 18 и 20 т.к. у этих 2 чисел наибольшее кол-во делителей одинакого т.е.
у 18 это 2 3 6 и 9
у 20 это 2 4 5 и 10
А 12? 12 - 2 3 4 6, также 4 делителя.
Вывод делителей для каждого числа - это сделано для отладки. Сей код можно закомментировать.
Код в самом деле переделать легко - потратилось 5 сек =) Весь приводить не буду, изменения касаются только процедуры GetCount
Код:
procedure GetCount (x : integer; var count : integer);
{Подсчет кол-ва делителей для каждого числа}
var
i, j : integer;
begin
i := 2;
count := 0;
j := x div 2;
while (i <= j) do begin
if x mod i = 0 then begin
write (i, ' ');
inc (count);
end;
inc (i);
end;
writeln;
end;
Последний раз редактировалось De-visible; 05.05.2008 в 11:19..
|
|
|
|
05.05.2008, 10:29
|
|
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме:
39192
Репутация:
2
|
|
Сообщение от Myst
Ну тогда попробуй так:
спасибо, сдал, всё отлично
новую дали теперь по типизированым файлам:
Дан типизированный файл символов. Все символы цифр записать в конец файла.
De-visible:Уточни задание!
Последний раз редактировалось De-visible; 05.05.2008 в 10:58..
|
|
|
|
05.05.2008, 11:34
|
|
Познающий
Регистрация: 14.04.2008
Сообщений: 42
Провел на форуме:
400417
Репутация:
27
|
|
Народ, попросили скинуть сюда задания... Просит решить задания, сам помочь не могу за неимением времени...
2 курс, Delphi
<<<<
1) Объединить два упорядоченных списка в 1 упорядоченный (линейные динамические структура стр 284// Record)
2) Для заданного текстового файла получить частотный словарь представленный в виде дерева (290 деревья)
3) Дано предложение из N слов, каждое слово имеет M значений. Получить все варианты предложения (тема рекурсивный метод стр 179)
4) Дано слово длиной L символов. Найти все возможные подслова которые можно составить из букв исходного слова. Для отсеивания бессмысленных сочетаний символов можно использовать файл «нормальных» слов 196
5) «Перестановка мебели». Задана исходная расстановка мебели-см рисунок.
Составить программу, которая осуществляет расстановку мебели.
Например, из исходной расстановки
___________________
|Диван|Шкаф| Стол |
------------------------------
|Комод| |Кровать|
___________________
Получить следующую:
___________________
|Шкаф |Стол |Диван |
|Комод | |Кровать|
--------------------------------
Двигать мебель можно только по правилам игры 15, т.е. на свободное рядом с предметом место. Если перестановка невозможна программа должна вывести сообщение об этом.
(стр.203 тема «перебор состояний»
>>>>
PS Нужно сделать как можно скорее, за скорость могу немножко отблагодарить за денежку...
|
|
|
|
05.05.2008, 13:22
|
|
Новичок
Регистрация: 26.04.2008
Сообщений: 12
Провел на форуме:
7573
Репутация:
2
|
|
krypt3r,
спасибо, с первой все отлично теперь
по второй задаче:
Код:
Дано: натуральное n, целые неотрицательные a1, …, an.
Рассмотреть отрезки последовательности a1, …, an (подпоследовательности идущих подряд членов), состоящей полных квадратов.
Для проверки использовать функцию primer(a), описанную таким образом, что
..........1, если a – полный квадрат,
primer=
..........0, в противном случае.
расшифровка: )
дано число n, ну то есть его вводят, потом дано некоторое число, ск которого начинается проверка, таким образом получаем некоторую последовательно чисел
то есть например, вводишь 100, и вводишь число, с которого начинается последовательность, например 233, получается в результате массив из целых чисел, начиная от 233, заканчивая 333
из них, нужно найти те числа, из которых можно извлечь корень
например от 1 до 10, должно вывести 4 9
з.ы. через функции
Последний раз редактировалось Catsy; 05.05.2008 в 13:43..
|
|
|
|
05.05.2008, 13:38
|
|
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме:
39192
Репутация:
2
|
|
Сообщение от WinTREI
спасибо, сдал, всё отлично
новую дали теперь по типизированым файлам:
Дан типизированный файл символов. Все символы цифр записать в конец файла.
De-visible:Уточни задание!
Уточняя задание:
дан файл с символов, нужно найти среди символов - символы чисел и вывести их в конец файла.
|
|
|
|
05.05.2008, 13:46
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме:
811764
Репутация:
119
|
|
da_ff & krypt3r, спасибо. Проблема решена..частично 
Теперь нужно выделить память для всего пакета, чтоб его отрпавить. А я не знаю какой должен быть размер. Где про это почитать можно?
|
|
|
|
05.05.2008, 13:56
|
|
Banned
Регистрация: 08.04.2005
Сообщений: 446
Провел на форуме:
2187381
Репутация:
518
|
|
2 criz
поскольку поле данных в tcp отсутствует для пакета с RST флагом то учитывая то что для ip только tcp-заголовок является данными
total_length=sizeof(ip_header)+sizeof(tcp_header) ;
где ip_header и tcp_header структуры обьявленные ранее!
а почитать об этом лучше всего в РФС(rfc) переводные лежат на citforum, если ты уже понимаешь то что один протокол вкладывается в другой как матрешка (инкапсуляция)
Последний раз редактировалось Delimiter; 05.05.2008 в 14:00..
|
|
|
|
05.05.2008, 15:52
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
Управлюющие биты (тобишь флаги) не могут не содержать поле данных, находясь в (tcp-сегменте) самом поле данных (и RST и SYN и PSH и ACK -флаги).
|
|
|
|
05.05.2008, 15:58
|
|
Banned
Регистрация: 08.04.2005
Сообщений: 446
Провел на форуме:
2187381
Репутация:
518
|
|
вот tcp заголовок
Код:
typedef struct _TCPHeader
{
unsigned short SourcePort;
unsigned short DestinationPort;
unsigned int SequenceNumber;
unsigned int AcknowledgeNumber;
unsigned char DataOffset; // СМОТРЕТЬ СЮДА
unsigned char Flags; // И ОСОБЕННО СЮДА
unsigned short Windows;
unsigned short Checksum;
unsigned short UrgentPointer;
} TCPHeader;
стандартный пакт с RST флагом.... только что "испек"
15:55:37.642215 len:54 192.168.1.166:2452 -> 64.12.164.247:80 (TCP)--R-U
__________________________________________________ _________________
IP: IP-Version:4
Prioruty:normal
TTL: 128
Protocol: TCP
TCP: ACK Number: 4180767391
SEQ Number: 4035339790
Window: 0
__________________________________________________ _________________
00 13 49 B3 1E E2 00 16 36 A7 CB 0A 08 00 45 00 | .I³ â.6§Ë...E.
00 28 0C 20 40 00 80 06 47 5E C0 A8 01 A6 40 0C | .(. @.?.G^À¨.¦@.
A4 F7 09 94 00 50 0E 66 86 F0 9F 72 31 F9 50 14 | ¤÷.”.P.F†ðŸR1ùP
00 00 97 D8 00 00 | ..—Ø..
Последний раз редактировалось Delimiter; 05.05.2008 в 16:18..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
