Форум: "Потрепаться";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
ВнизЭкзамен на Паскале :) Найти похожие ветки
← →
Бугага © (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]Мда.. алкоголизм налицо :(
← →
Zer0 © (2005-01-17 11:01) [17]На лицо оффтопик и переход на личности. Мы тут проги пишем а не выясняем среднесуточную дозу потребления спирта =)))
---
k3wl
← →
Kerk © (2005-01-17 11:18) [18]Zer0 © (17.01.05 11:01) [17]
Мы тут проги пишем а не выясняем среднесуточную дозу потребления спирта =)))
дык про спирт ты вспомнил первый. я наооборот против был
← →
Zer0 © (2005-01-17 16:05) [19]гм, давайте тогда вообще писать программу политкорретно =) тоесть с учотом христианства, вегетарианства и проч.
тогда TPerson = class(TGod) =))
про интерфейсы молчу. делаю вид что не гусар.... =)
---
k3wl
← →
Kerk © (2005-01-17 16:05) [20]
> тогда TPerson = class(TGod) =))
эээ.. тут атеисты тоже есть.. :)))
← →
Zer0 © (2005-01-17 16:43) [21]слушаю твой вариант, TPerson = class не предлагать ;)
---
k3wl
← →
Kerk © (2005-01-17 16:46) [22]TPerson = class (TMlekopitayushee)
:)
← →
Zer0 © (2005-01-17 16:52) [23]угу, а контейнер для хранения - TPersonList
а потом три глобальные переменные:
var reality,heaven,hell:TPersonList;
или может сразу матрицу (таблицу БД) замутим?
---
k3wl
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.031 c