Блиц-опрос! Опции

[Atos]

Близко! Программист должен отвечать одним из двух вариантов:
1) Могу
2) Могу, но не знаю как.

[Altair]

Так, .... расслабились.
Сколько байт будет занимать в памяти переменная a?

Код

type
_A = record
     name: string;
     matrix: array[1..2] of array[1..2] of string[5];
     zopa: longint;
     lol: comp
    end
var
a:array[0..2] of _a

Кто первый даст ПРАВИЛЬНЫЙ ответ - хороший мальчик (хорошая девочка) :D

[Atos]

Сначала прикунул в уме, потом ламерски посмотрел сайзофом. Не угадал... Покрайней мере string оказалось для меня сюрпризом.

[AlaRic]

Почему админы не любят ездить в общественном транспорте?

[Altair]

... Покрайней мере string оказалось для меня сюрпризом.

Вот, вот. Ну и сколько же?

[APAL]

Код

type
_A = record
     name: string;
     matrix: array[1..2] of array[1..2] of string[5];
     zopa: longint;
     lol: comp
    end
var
a:array[0..2] of _a

3*(256+4*(5+1)+4+8)=3*292=876

Сообщение отредактировано: APAL - 13.04.2004 20:01

[Altair]

AlaRic:

Почему админы не любят ездить в общественном транспорте? 

Тогда он становится пользователем. Как все!

[UtaH]

Потому что если он поедет на общественном транспорте, то что-нибудь упадет. И придется возвращаться <_< :D

[APAL]

Oleg_Z
Так я прав в подсчете объема памяти под переменную или нет?

[AlaRic]

В общественном транспорте все толкаются, ругаются, а выкинуть или забанить никого нельзя

[Altair]

Так я прав в подсчете объема памяти под переменную или нет?

Ну конечно!
Этот тест на новичков расчитан, в нем они могут ошибисться с подсчетом размера строки и массива!

[Atos]

Кстати, интересно, а кто больше раз отрубал комп своими программками? (Тем, у кого XP, это, наверное, не относится).
У меня два раза совершенно случайно получалось написать проги, которые при выполнении подвешивали систему. Вернее, три, но та прога была на BorlandС++, и не совсем моя.

[Altair]

Я часто отрубал свой комп - когда эксперементировал на выполнениях прерываний.
Очень большая проблемма получилась с испытанием моей проги для форматирования (помните я исходники искал), так вот я что -то не то в регистры занес, и при перезагрузке, мой хард перестал определяться.
Даже при загрузке DOS с дискеты нортон, не определял диск.
Пришлось заходить в FDISС, удалять все разделы (DEL DISC ) и снова форматировать , уже стандартной прогой. Все данные с диска конечно ку- ку ... (не востанавливались)
---
Совет: прежде чем лезть в прерывание $13 - почитайте доки.

[Atos]

Сочувствую... А у меня в тех прогах прерываний и в помине не было. Насчёт одной я потом разобрался - я там, кажется, одним из полей записи был динамический массив, и я обращался к его элементу, забыв выделить память.

[SKVOZNJAK]

Тем, у кого XP, это, наверное, не относится

Попробуй зацикленную прогу с гото - вычисление корня из пи! Прикольно сравнивать, сколько экземпляров проги потянут разные версии виндоузов.

[HelpAusHeaven]

>Опять про сосиску вопрос.
Это не про сосиску, это про РНР! ;)(не, ну правда две буквы: Р и Н)

И ещё пожалуй добавлю: ADA

[Altair]

Что-то расслабились.
Что могло быть запущено следующей инструкцией?

Код

t1.t2

А такой:

Код

t1.t2.t3

Кто перечислит все возможный варианты, умник (умница )

[BlackShadow]

Если "запущено", то функция или процедура.
А вообще в первом случае идёт обращение к переменной/константе/функции/процедуре/типу какогото модуля (например System.Abs(x)) или же к элементу класса (возможно статическому)/записи/объекта.
Во втором случае тоже самое: обращение к элменту класса/переменной-записи/переменной-объекту из некоего модуля t1 либо обращение к структуре/классу/объекту в каком-либо структуре/классе/объекте.
Бредово звучит.
Я лучше на примерах.
1)

Код

x:=System.Abs(x); {Те же t1.t2, только буквы другие...}
------------------------------
Type
 r=Record
   t1:Integer;
 End;
Var
 t1:r;
Begin
 t1.t1:=1
End.
-------------------------------
Type
 r=Object
   t2:Integer;
 End;
Var
 t1:r;

Begin
 t1.t2:=1
End.
-------------------------
Type
 r=Object
   Procedure t2;
 End;
Var
 t1:r;

Begin
 t1.t2
End.
----------------------------
Type
 r=Class {Варианты с полем и методом демонстрировать не буду - аналогичны предыдущим}
   property t2:Intger ...;
 End;

var
 t1:r;
Begin
 t1:=r.Create;
 t1.t2:=1
End.
---------------------------------------------
{Либо так}
Type
 t1=Class
   class procedure t2;
 End;

Begin
 t1.t2
End.

2) А я уже над первым запарился...

Код

Unit t1;

Interface

type
 r = class
   procedure t3;{Аналогично для полей записей и методов объектов}
 End;

Var
 t2:t1;
....

Uses t1;
Begin
 t1.t2.t3
End;
-------------------------------------------------------
Unit t1;

Interface

type
 t2 = class
   class procedure t3;
 End;
.....

Uses t1;

Begin
 t1.t2.t3
End.
-----------------------------
{Теперь без модулей}
Type
 r=Record
   t3:Byte;{Аналогично, если r - класс/объект с public полем t3}
 End;
 rr=Record
   t2:r{См. выше - rr - что угодно, лишь бы t2 public}
 End;

Var
 t1:r;

Begin
 t1.t2.t3:=1
End.
------------------------------------------
А вот самый интригующий вариант:
Type
 r=class
   t3:Function:Integer;
 End;
 rr=class
   Function t2:r;
 End;

Var
 t1:rr;
 x:Integer;

Begin
 t1:=t1.Create;
 x:=t1.t2.t3
End.

Где моя конфетка???

[Altair]

Молодец!
Какая конфетка? ээ-ээ

[BlackShadow]

Олег, между нами, ты сам до последнего варианта додумался?