Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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
14-1105981791
www.Vlad.uk
2005-01-17 20:09
2005.02.06
Скоро на нашей планете всё время будет ночь!


3-1104315782
ceval
2004-12-29 13:23
2005.02.06
В свое время задовал вопрос если правельно будет


3-1104390038
Russko
2004-12-30 10:00
2005.02.06
Ипользование pFIBDataSet


1-1106489931
saNat
2005-01-23 17:18
2005.02.06
Пишу свой класс. Прошу рекомендации, замечания


6-1101216490
Knight
2004-11-23 16:28
2005.02.06
Передача данных по сети...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский