В какой системе программирования вы пишите?

(a!=b)=(a<>b)

Модератор: Cerberus

В какой СП вы пишете?

Visual C++
4
13%
C++ Builder
4
13%
Delphi
8
25%
Visual Basic
2
6%
QBasic 4.5
0
Голосов нет
TC++ 3.01
0
Голосов нет
TP 7.0
0
Голосов нет
MASM 8.0
1
3%
В первый раз о таких слышу
0
Голосов нет
Я не программист
13
41%
 
Всего голосов: 32

...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

Да это то я сам знаю. А мне нужно что-то вроде
(p+n)^:=...
p - указатель
n - целое число
Say yes. At least say hello.
...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

Кстати, Вирт сам признал, что его творение (Паскаль) чересчур "придирчив" и неполноценен, извинился так сказать(сам слышал).
Насчёт 0xb800 - Вообще-то это ДОСовский адрес, а доступ к ним маздай не ограничивает, иначе бы ДОС(в смысле проги под него) вообще перестал работать.
[quote]
если этот адрес лежит за пределами сегмента данных адресного пространства приложения.
[\quote]
Что такое сегмент данных приложения??? Вообще-то маздай
.model flat
и никаких сегментов там нет.
Say yes. At least say hello.
maXx
Обитатель
Сообщения: 39
Зарегистрирован: Ср авг 03, 2005 22:41
Откуда: Выкса

Непрочитанное сообщение maXx »

qwerty писал(а):...мне нужно что-то вроде
(p+n)^:=...
p - указатель
n - целое число
type arr=packed array of char;
var p: ^arr;
begin
p:=Ptr($b800);
p^[0]:=...;
p^[10]:=...;
p^[...]:=...;
end.
qwerty писал(а):Насчёт 0xb800 - Вообще-то это ДОСовский адрес, а доступ к ним маздай не ограничивает, иначе бы ДОС(в смысле проги под него) вообще перестал работать.
Досовские программы работают под виртуальной машиной. Вся память, а также порты и устройства - виртуальные, и перенаправление данных производит уже сама винда.
qwerty писал(а):.model flat и никаких сегментов там нет.
В стандартном понятии сегментов, конечно, нет. Но есть области памяти с различными правами доступа: PAGE_EXECUTE, PAGE_NOACCESS, PAGE_READONLY, PAGE_READWRITE... См. хэлп по функции VirtualProtectEx (еть в MSDN).
Всё вышенаписанное не претендует на общепринятую истину и является чистым ИМХО
...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

Ну что в ДОСе всё виртуальное это понятно. Иначе б 2 паскаля или ещё чего нибудь ты никак не запустил бы.
А шляпа эта не работает
pt^[0]:=...
Invalid qualifer...

И packed array тоже, поскольку Паскаль не мыслит array без []
Say yes. At least say hello.
maXx
Обитатель
Сообщения: 39
Зарегистрирован: Ср авг 03, 2005 22:41
Откуда: Выкса

Непрочитанное сообщение maXx »

Под Delphi у меня так работало. А ты под DOSовским Turbo Pascal пишешь?
Всё вышенаписанное не претендует на общепринятую истину и является чистым ИМХО
...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

Конечно. Иначе я б писал не Паскаль а Дельфи. Это вещи разные, Дельфи подемократичнее будет.... А Паскаль - лажа. Вирт - ....... и .....
ЗЫ: Кстати, ты как с прогой-то(тест на скорость...)??? Не писал?? Я тут ещё интересный вариант нашёл - ПРОСТЫЕ ЧИСЛА. У кого быстрее, скажем до 100 000 000 посчитает....
Say yes. At least say hello.
maXx
Обитатель
Сообщения: 39
Зарегистрирован: Ср авг 03, 2005 22:41
Откуда: Выкса

Непрочитанное сообщение maXx »

qwerty писал(а): ЗЫ: Кстати, ты как с прогой-то(тест на скорость...)??? Не писал?? Я тут ещё интересный вариант нашёл - ПРОСТЫЕ ЧИСЛА. У кого быстрее, скажем до 100 000 000 посчитает....
Не писал... =((
По тому что не было времени (а может и способности) разработать такой алгоритм. Да и что бы за сравнение языков получилось, если бы мой/твой алгоритм оказался менее эффективным? В таких случаях нужно именно "слизывать" чужой код, переписывая на другой язык и смотреть что будет.
И тем более: мы тут не в решении олимпиадных задачек соревнуемся, а обсуждаем языки и компиляторы.
По поводу простых чисел... Можно.... Алгоритм нужен. И 1E8 долго будет IMHO. Лучше взять поменьше, чтобыв пределах минуты было.
Всё вышенаписанное не претендует на общепринятую истину и является чистым ИМХО
...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

Ну не знаю долго-не долго, но 1е7 у меня за 8 секунд считает. Занимает 4,5кб....
Say yes. At least say hello.
...just uno
Истинный Wыксунец
Сообщения: 1082
Зарегистрирован: Чт июл 07, 2005 12:20
Пол: мужской
Откуда: World Ownage Organization

Непрочитанное сообщение ...just uno »

На 1400 Celeron...
Say yes. At least say hello.
Дыбра
Добрый Админ
Сообщения: 5434
Зарегистрирован: Чт мар 31, 2005 16:54
Пол: мужской
Откуда: Выкса
Благодарил (а): 2 раза
Поблагодарили: 6 раз

Непрочитанное сообщение Дыбра »

Ребята, фигней занимаетесь. Сравнивать нужно на одном и том же компе. При одинаковой загрузке памяти. Иначе оно бессмысленно. Да и какой смысл вообще приводить в пример Паскаль, если он уже давно стал учебным языком и в деле не используется.
Администратор сайта "Виртуальная Выкса"

Вернуться в «Программирование»