:: Архив конференции по VFP до 2005 года
И за что я фокс люблю ???!!!!!!
Gliph
Автор

Сообщений: 554
Откуда: Сумы - Украина
Дата регистрации: 31.10.2002
Попробуйте код -
*/*
Store 0 to nSum
For a = 1 to 9
For b = 0 to 9
For c = 0 to 9
For d = 0 to 9
For e = 0 to 9
For f = 0 to 9
For g = 0 to 9
For h = 0 to 9
nSum = nSum + 1
endfor
endfor
endfor
endfor
endfor
endfor
endfor
endfor
MessageBox(Str(nSum))
*/* Занимает около 15 секунд !(на железо смотреть не будем)

Он же на Паскале (Дельфи)
For a := 1 to 9 do
For b := 0 to 9 do
For c := 0 to 9 do
For d := 0 to 9 do
For e := 0 to 9 do
For f := 0 to 9 do
For g := 0 to 9 do
For h := 0 to 9 do inc(nSum);
ShowMessage(IntToStr(nSum));

Занимает максимум - пол секунды !

И за что я фокс так люблю ?!!
Ratings: 0 negative/0 positive
RE: И за что я фокс люблю ???!!!!!!
Анатолий Широков

Сообщений: 4565
Откуда: Санкт-Петербург
Дата регистрации: 21.01.2002
Да, а с какого перепоя вы сравниваете интерпретатор с компилятором?

Надеюсь, у вас не вызывает сомнения тот факт, что на то они и машинные инструкции, чтобы выжать из процессора все на что он способен?
Ratings: 0 negative/0 positive
Совершенно логично.
Gliph
Автор

Сообщений: 554
Откуда: Сумы - Украина
Дата регистрации: 31.10.2002
Согласен, но все же.......
"Конечному пользователю не важно на чем написана программа........"
Это какое - то значение должно же иметь, или обьяснять им ?...........
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Анатолий Широков

Сообщений: 4565
Откуда: Санкт-Петербург
Дата регистрации: 21.01.2002
Есть разумный компромис - писать критические ко времени участки на С/C++.
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Valera
Так а кто Вам запрещает писать паскале, Вас же никто не обязывает...
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Gliph
Автор

Сообщений: 554
Откуда: Сумы - Украина
Дата регистрации: 31.10.2002
Писал 2 года, перешел на VFP
Однако, с чувством юмора у вас.........(єто насчет писать работу с БД на паскале........)
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Aijik

Сообщений: 2145
Откуда: Ростов-на-Дону
Дата регистрации: 08.01.2002
> Писал 2 года, перешел на VFP

Что заставило перейти? Юзеры жаловались, что всё слишком быстро - ничего заметить не успевают? ;))
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Равиль

Сообщений: 6555
Откуда: Уфа
Дата регистрации: 01.08.2003
"Медлительность" Фокса и толкает к поиску и открытию оптимальных алгоритмов

В вашем примере фоксист отреагирует адекватно, типа:

Store 0 to nSum
For a = 1 to 9
For b = 0 to 9
For c = 0 to 9
For d = 0 to 9
For e = 0 to 9
For f = 0 to 9
For g = 0 to 9
For h = 0 to 9
*** nSum = nSum + 1
endfor
endfor
endfor
endfor
endfor
endfor
endfor
endfor
**********
nSum=nSum+a*(b+1)*(c+1)*(d+1)*(e+1)*(f+1)*(g+1)*(h+1) && Честно скажу не тестировал, но должно работать быстрее
**********
MessageBox(Str(nSum))

а дельфийцу - до фени

Мое мнение - мы любим не Фокс, а себя в Фоксе
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Вадим Ермолаев

Сообщений: 633
Дата регистрации: 16.01.2003
Дык шапка-то по Сеньке должна быть... От задачи зависит, наверное. Если надо 1000000000 раз единицу к переменной добавлять - так тут фокс на хрен не нужен. И никто не спорит. Я не стал бы на нем писать OpenGL-дела и четвертый квэйк . Вот 20 записей из пары-тройки миллионов выбрать - это вроде ничего... не так уж долго.
Ratings: 0 negative/0 positive
RE: Совершенно логично.
Gliph
Автор

Сообщений: 554
Откуда: Сумы - Украина
Дата регистрации: 31.10.2002
Нет, неудобство Паскалевского синтаксиса и скудность по работе с таблицами
Ratings: 0 negative/0 positive


Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 7 (Гостей: 7)

© 2000-2024 Fox Club 
Яндекс.Метрика