Экзамен на Паскале :)

← →
Бугага © (2005-01-15 20:13) [0]

Вот, начал немного...

project Examen; type TStudent = object(TPerson); function Answer(Question: string): integer; //ответ на вопрос function Doctor: integer; //функция "лечки" private: NeedMark: integer; //нужная оценка Money: integer; //количество денег Knowledge: integer; //знание предмета WriteAbility: integer; //способность списать DoctorAbility: integer; //способность "лечить" end; TTeacher = object(TPerson); function Ask: string; //задавание вопроса private: Sell: integer; //продается? Angry: integer; //"злость" Loyality: integer; //лояльность Knowledge: integer; //знание предмета end; var Teacher: TTeacher; Student: TStudent; Mark: integer; //оценка за экзамен Q: string; //вопрос begin while (Mark<NeedMark) do begin Q:=Teacher.Ask; if Student.Answer(Q)=0 then Student.Doctor; end; end.

Что упустил? :)
Ну и прошу помощи в написании основного кода программы :)

← →
Ломброзо © (2005-01-15 20:21) [1]

var lopata: TLopata

← →
begin...end © (2005-01-15 20:23) [2]

> Бугага © (15.01.05 20:13)

> Ну и прошу помощи в написании основного кода программы

function TTeacher.Ask: String;
const
Questions: array [1..3] of String = ("Какой предмет сдаёте?",
"Какая у меня фамилия?",
"Какого цвета учебник?");
begin
Randomize;
Result := Questions[Low(Questions) + Random(Length(Questions))]
end.

← →
nikkie © (2005-01-15 20:23) [3]

TLopata = record
Cherenok: TDerevyshka;
Shtyk: TZhelezka;
end;

← →
Бугага © (2005-01-15 20:37) [4]

Эээ... А при чем здесь лопата?

← →
Kerk © (2005-01-15 20:41) [5]

При том, что не смешно без лопаты.

← →
Бугага © (2005-01-15 21:15) [6]

Ну не смешно, так не смешно :(

← →
aus (2005-01-15 21:38) [7]

Бугага © (15.01.05 20:13)
Что упустил? :)

TPerson упустил

← →
Kerk © (2005-01-15 21:53) [8]

судя по описанию классов, TPerson = TObject

← →
марсианин © (2005-01-15 22:58) [9]

> TLopata = record
> Cherenok: TDerevyshka;
> Shtyk: TZhelezka;
> end;

class CCherenok :public CDereviashka { }; class CShtyk :public CZheleziaka { }; class CLopata : public CCherenok, public CShtyk { }; class CRabotnik :public CLopata, public CPerson { }; typedef std::vector<CRabotnik> Brigada;
и тд

← →
jack128 © (2005-01-15 23:56) [10]

марсианин © (15.01.05 22:58) [9]
class CRabotnik :public CLopata, public CPerson
Не слишком ли жестоко по отнашению к персоне ? ;-) Скрещивать её с лотатой - это сильно..

← →
Zer0 © (2005-01-16 10:14) [11]

долго медитировал на строчку:
TTeacher = object(TPerson)

потом подумал что:
TPerson = object(TMonkey)

теперь сомневаюсь в правильности вот такой вот записи:
TStudent = object(TPerson)

=)))

зы блин, станно что народ про интерфейсы еще не вспомнил

---
k3wl

← →
Vaitek © (2005-01-16 13:30) [12]

забыл 8-)
TMonkey = object(TMlekopitauchee)

← →
Zer0 © (2005-01-17 01:48) [13]

тогда уж
TStudent = object(TAlkoDrinking,IBeer,IVodka,IRassol)

=)

---
k3wl

← →
Kerk © (2005-01-17 04:58) [14]

Zer0 © (17.01.05 1:48) [13]
это не TStudent, это TZer0 или TAlkoholic

← →
Zer0 © (2005-01-17 10:39) [15]

TZer0=class(TSolidStateVacuum,INan)

если бы это был C++ то можно было бы ввести клас Beer и сделать пергрузку операторов по выводу в поток:
типа
beer >> student;
=))))

---
k3wl

← →
Kerk © (2005-01-17 10:40) [16]

Мда.. алкоголизм налицо :(

На лицо оффтопик и переход на личности. Мы тут проги пишем а не выясняем среднесуточную дозу потребления спирта =)))

---
k3wl

Zer0 © (17.01.05 11:01) [17]
Мы тут проги пишем а не выясняем среднесуточную дозу потребления спирта =)))
дык про спирт ты вспомнил первый. я наооборот против был

гм, давайте тогда вообще писать программу политкорретно =) тоесть с учотом христианства, вегетарианства и проч.

тогда TPerson = class(TGod) =))

про интерфейсы молчу. делаю вид что не гусар.... =)

---
k3wl

> тогда TPerson = class(TGod) =))

эээ.. тут атеисты тоже есть.. :)))

слушаю твой вариант, TPerson = class не предлагать ;)

---
k3wl

TPerson = class (TMlekopitayushee)
:)

угу, а контейнер для хранения - TPersonList
а потом три глобальные переменные:
var reality,heaven,hell:TPersonList;
или может сразу матрицу (таблицу БД) замутим?

---
k3wl

Экзамен на Паскале :) Найти похожие ветки