VPF::Центр помощи рулит - Форум программистов

almagnit

Дата 17.5.2008, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 3.4.2008

Вы заметили, подошло время зачетов и форумские медведи пробуждаются из спячки:

smile

ЗЫ:

KasMP

Дата 17.5.2008, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

нет не заметили... на мои темы никто почему-то не отвечает...

Samotnik

Дата 17.5.2008, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Super star !

Профиль
Группа: Awaiting Authorisation
Сообщений: 7192
Регистрация: 4.11.2006
Где: Минск City

ага жесть! вопрос невероятно много smile

Rodman

Дата 18.5.2008, 20:06 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

а что предлагаете?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

almagnit

Дата 18.5.2008, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 3.4.2008

Может подсобирать FAQ в раздел "Алгоритмы" ? На случай сессий и экзаменов smile

.

Добавлено через 1 минуту и 8 секунд
Или FAQ для "Центр помощи" ...

KasMP

Дата 18.5.2008, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(almagnit @ 18.5.2008, 21:03

)

Или FAQ для "Центр помощи" ...

Да-да-да!!! Дааааааа!
Особенно про многоугольники!!!!!!

ТоляМБА

Дата 19.5.2008, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Може в подпись сделать "Отматернённый ТоляМБОЙ сдает зачёты на ура" ? smile

Добавлено через 8 минут и 9 секунд
Или тему открыть "Отматерим качественно и недорого" ?

Alexeis

Дата 19.5.2008, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Цитата(KasMP @ 18.5.2008, 20:17

)

Да-да-да!!! Дааааааа!
Особенно про многоугольники!!!!!!

К сожалению им будут пользоваться очень немногие smile

. Это раздел где задают одни и те же вопросы по многу раз.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rodman

Дата 19.5.2008, 13:01 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(Alexeis @ 19.5.2008, 11:18

)

К сожалению им будут пользоваться очень немногие smile .

потому как туда приходят в основном молодежь, которой срочно надо написать программу.. а вопросом о возможном существовании подобной темы никто не задается!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 20.5.2008, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Alexeis @ 19.5.2008, 11:18

)

К сожалению им будут пользоваться очень немногие

Тогда можно рассказать о разнице между динамическим списком и динамическим массивом, привести примеры стандартных процедур и функций (добавление/удаление элемента, проверка на пустоту, очищение, т.п.). Многим было бы полезно - посмотрите, сколько вопросов на эти темы.

Цитата(Rodman @ 19.5.2008, 13:01

)

Неправда

:brush. Я иногда об этом задумываюсь.

Rodman

Дата 20.5.2008, 15:38 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(KasMP @ 20.5.2008, 15:31

)

Неправда smile :brush. Я иногда об этом задумываюсь.

значит хорошо прячешься, что я не замечаю!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 20.5.2008, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Rodman @ 20.5.2008, 15:38

)

значит хорошо прячешься, что я не замечаю!

Я действительно стараюсь писать кратко и содержательно smile

LSD

Дата 20.5.2008, 16:00 (ссылка)

(голосов:1)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Цитата(KasMP @ 17.5.2008, 14:28

)

нет не заметили... на мои темы никто почему-то не отвечает...

У тебя язык неправильный smile

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

Alexeis

Дата 20.5.2008, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Цитата(KasMP @ 20.5.2008, 14:31

)

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

--------------------

KasMP

Дата 20.5.2008, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(LSD @ 20.5.2008, 16:00

)

У тебя язык неправильный

В смысле

? Тебе не нравится Pascal smile

Цитата(Alexeis @ 20.5.2008, 16:04

)

Гм... У меня пока недоделанный Delphi (т.е. pascal) smile

Цитата(Alexeis @ 20.5.2008, 16:04

)

Тут решаются простые вопросы, и помогают в решении задач, но не решают их за участника.

Никогда не просила что-то за себя решать smile

!
(да и не позволила бы: я же все-таки хочу чего-то в будущем smile

)

Alexeis

Дата 20.5.2008, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Цитата(KasMP @ 20.5.2008, 15:19

)

Гм... У меня пока недоделанный Delphi (т.е. pascal)

Там рядом есть раздел по паскалю. Некоторые вещи можно и там обсуждать. ЦП перегружен простыми просьбами по решению дз, потому туда заходят мало народу.

--------------------

LSD

Дата 20.5.2008, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Цитата(KasMP @ 20.5.2008, 17:19)

В смысле

? Тебе не нравится Pascal smile

Не нравится smile

По Java вопросов меньше и отвечают на них охотней smile

--------------------

KasMP

Дата 20.5.2008, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Alexeis @ 20.5.2008, 17:12

)

Там рядом есть раздел по паскалю. Некоторые вещи можно и там обсуждать.

Буду иногда туда заглядывать smile

. Вдруг раскопаю что-нибудь интересненькое smile

Цитата(Alexeis @ 20.5.2008, 17:12

)

ЦП перегружен простыми просьбами по решению дз, потому туда заходят мало народу.

*затаила дыхание* Т.е. мои вопросы не совсем простые?!

Цитата(LSD @ 20.5.2008, 17:35

)

Не нравится smile По Java вопросов меньше и отвечают на них охотней

Например, вот это мало связано с конкретным языком, мой вопрос касается скорее самого алгоритма smile

.
(только я зачем-то в заголовке темы вместо [Алгоритм] написала [Pascal] smile

; не помню, о чем я в тот момент думала smile

...)

Добавлено через 8 минут

Цитата(KasMP @ 20.5.2008, 19:36

)

*затаила дыхание* Т.е. мои вопросы не совсем простые?!

Только не говорите, что я приняла желаемое за действительное smile

Alexeis

Дата 20.5.2008, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Цитата(KasMP @ 20.5.2008, 18:36

)

Например, вот это мало связано с конкретным языком, мой вопрос касается скорее самого алгоритма

На самом деле Akina очень точно ответил, задача состоит в том, чтобы посчитать количество упоминаний функции. Делается проход сверху вниз, находиться слово procedure/function после чего извлкается ее имя и дальше идет подсчет найденных повторений этого слова и так для каждой функции. Думаю тут для простоты стоит проигнорировать возможность опережающего описания forward.
На делфях такая задача решается в 2 счета, а вот на паскале, без всяких StringList ов и PosEx ов весьма неудобно.

--------------------

KasMP

Дата 20.5.2008, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Rodman @ 20.5.2008, 15:38

)

значит хорошо прячешься, что я не замечаю!

Ты там тоже был: "Это сообщение отредактировал(а) Rodman - 10.5.2008, 22:08".

Цитата(Alexeis @ 20.5.2008, 19:53

)

На самом деле Akina очень точно ответил, задача состоит в том, чтобы посчитать количество упоминаний функции.

Так и быть, вам вдвоем я поверю smile

Цитата(Alexeis @ 20.5.2008, 19:53

)

На делфях такая задача решается в 2 счета, а вот на паскале, без всяких StringList ов и PosEx ов весьма неудобно.

Почему неудобно?!
[много написала о том, почему должно быть просто; вспомнила, что здесь флейм; все стерла]

Добавлено через 5 минут и 43 секунды

Цитата(KasMP @ 20.5.2008, 20:08

)

Ты там тоже был: "Это сообщение отредактировал(а) Rodman - 10.5.2008, 22:08".

Кстати, я никаких изменений в своем сообщении не нашла smile

Mayk

Дата 20.5.2008, 20:19 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

Цитата(Alexeis @ 20.5.2008, 23:53

)

функции. Делается проход сверху вниз, находиться слово procedure/function после чего извлкается ее имя и дальше идет подсчет найденных повторений этого слова и так для каждой функции. Думаю тут для простоты стоит проигнорировать возможность опережающего описания forward.

Тут парсер использовать надо по-хорошему, ибо повторы подсчитают лишнее.

Код


procedure aaaa() ; {раз aaaa}
begin
end;

procedure bbb( ) ;
var aaaa : integer; {два aaaa}
    s : string;
begin
    aaaa := 11 {три aaaa}
    s := 'aaaa'; {четыре aaa}
end;

begin
end.

здесь aaaa не вызывается ни разу. fpc и gpc хавают.

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

Alexeis

Дата 20.5.2008, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Mayk, это школьная задача, а не реальная, если тут все учитывать то задача станет слишком сложной.

--------------------

v2v

Дата 20.5.2008, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1620
Регистрация: 20.9.2006
Где: Киев

в разделе Алгоритмы есть 2 темы 2х летней давности где на Сpp приведено кучка замечательных примитивных примеров, которые способны покрыть программы 1 - 2 курсов большинства вузов.

--------------------

java блох

Rodman

Дата 20.5.2008, 22:48 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(KasMP @ 20.5.2008, 20:08

)

Ты там тоже был: "Это сообщение отредактировал(а) Rodman - 10.5.2008, 22:08".

я даже не читал... времени щас нет решать...
я там не хорошее слово исправил!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 20.5.2008, 23:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Rodman @ 20.5.2008, 22:48

)

я там не хорошее слово исправил!

Ах да, я вспомнила! В PostScriptum вместо "фигня" было кое-что другое... Вообще "фигня" не выражает моего отношения к задачке-замене в полной мере!

Rodman

Дата 21.5.2008, 09:24 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(KasMP @ 20.5.2008, 23:01

)

Вообще "фигня" не выражает моего отношения к задачке-замене в полной мере!

ну ты ж понимаешь...
не что не совершенно!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 21.5.2008, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Цитата(Rodman @ 21.5.2008, 09:24

)

ну ты ж понимаешь...
не что не совершенно!

Теперь и эта фигня у меня не получается... (я думала, я с ней в два счета справлюсь, а она тоже сопротивляется...)
Надо просто сложить два длинных натуральных числа и при этом использовать динамические массивы.
Иногда программа работает правильно, а иногда берет из каких-то непонятных ячеек памяти какие-то непонятные числа и ставит их вместо нужных! Я не вижу в программе места, которое может такое позволить.

Код


const    ord00=2*ord('0');
    
type    M=array [1..1] of string[1];
    PointerM=^M;

var    a, b, c: PointerM; {a - массив для цифр первого числа, b - для второго, c - для результата}
    s1, s2: string; {s1 и s2 - числа, которые надо сложить}
    f: text;
    len1, len2, min, max: integer;
    size,sizeEl: integer;
    temp, tempDiv: integer;
    i: integer;

begin
assign(f, '...'); reset(f);
readln(s1); readln(s2);

{определяем нужное кол-во элементов массива}
len1:=length(s1); len2:=length(s2);
if len1>len2 then max:=len1 else max:=len2;

{выделяем память;
 позволяю себе упрощение и для одного из чисел, возможно, выделяю больше памяти, чем надо}
sizeEl:=sizeof(char); size:=max*sizeEl;
GetMem(a,size); GetMem(b,size); GetMem(c,size+sizeEl);

{переписываем цифры из s1 из s2 в массивы a и b в обратном порядке: при сложении столбиком нужен обратный порядок}
for i:=1 to len1 do a^[i]:=s1[len1-i+1];
for i:=1 to len2 do b^[i]:=s2[len2-i+1];

{опять же позволяю себе упрощение и просто тупо забиваю пустующие разряды (если они есть) нулями}
if max=len2 then
    for i:=len1+1 to max do a^[i]:='0'
  else
    for i:=len2+1 to max do b^[i]:='0';

{хочу посмотреть, как пустые разряды забились нулями;
 и вот тут-то мы и можем лицезреть самые невероятные вещи!}
for i:=1 to max do write(a^[i], ' '); writeln;
for i:=1 to max do write(b^[i], ' '); writeln;

{сложение столбиком: имхо довольно понятно}
tempDiv:=0;
for i:=1 to max do
    begin
    temp:=ord(a^[i][1])+ord(b^[i][1])-ord00;
    Str((temp+tempDiv) mod 10, c^[i]);
    tempDiv:=temp div 10;
    end;

{смотрим, а не образовался ли дополнительный разряд;
 если образовался, то он равен единице и надо увеличить max}
if tempDiv>0 then
    begin
    inc(max);
    c^[max]=1;
{выводим}
for i:=max downto 1 do write(c^[i]);

readln; writeln;
FreeMem(a,size); FreeMem(b,size); FreeMem(c,size+sizeEl);
end.

Rodman

Дата 21.5.2008, 10:39 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(KasMP @ 21.5.2008, 10:36

)

M=array [1..1] of string[1];

мочишь... я такого еше не видел!
а M: array of string[1] хуже звучит?
или раз уж на то пошло - M: array of char

Это сообщение отредактировал(а) Rodman - 21.5.2008, 10:40

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 21.5.2008, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Rodman, я так и знала, что ты это скажешь smile

Код

M: array of type;

Я пробовала так сделать в самом начале - не получается, требует или "[", или "(" после "array".
Тип char тоже не подходит, т.к. для процедуры str нужна переменная строкового типа (с символом не проходит!).

Добавлено через 1 минуту и 18 секунд
К тому же, такая способ организации динамического массива описан здесь.

Rodman

Дата 21.5.2008, 11:32 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Цитата(KasMP @ 21.5.2008, 11:26

)

Rodman, я так и знала, что ты это скажешь smile .

аааа... меня повяжут... кто то читает мои мысли!

Надо собирать монатки и в монастырь...

Женский

Добавлено через 39 секунд
ну а по сути - динамика всегда была моей "ахилесовой пятой"...

так что - звыняйте!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

ТоляМБА

Дата 21.5.2008, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Rodman, эвон тя как шпыняет - то в тундру, то в монастырь smile

Rodman

Дата 21.5.2008, 11:59 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

ты шо не видел монастыри в тундре?!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

KasMP

Дата 22.5.2008, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Ну и что

? На мою тему опять никто не отвечает smile

...

Добавлено через 1 минуту и 37 секунд
Вот, весь день почти никого нет...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Песочница \| Следующая тема »