Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.01.24;
Скачать: [xml.tar.bz2];

Вниз

Класс human - помогите пожалуйста доработать   Найти похожие ветки 

 
Nostalgia ©   (2009-12-04 22:38) [0]

нужно описать класс human, который используется для хранения фамилии, года рождения человека, и содержит методы получения значения года рождения, вычисления возраста. Вызовите 3 метода(включая конструктор).

вот что получилось:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }

human=class
familia:string;
god_rozhdenia:1970..2009;
Constructor Create;
function GetGod_rozhdenia:1970..2009;
 end;
var
 Form1: TForm1;

implementation

{$R *.dfm}

end.


Подскажите пожалуйста как найти год рождения и возраст? Как это реализовать в процедуры и функции? Может быть у кого то когда то было похожее задание? Напишите пример если есть.


 
Сергей М. ©   (2009-12-04 22:46) [1]

Ты этот код откуда взяла ?


 
KilkennyCat ©   (2009-12-04 22:49) [2]

Похоже, опять сезон сессий и дипломов?
Nostalgia, я решу твою задачу, если пообещаешь никогда не работать программистом.


 
Palladin ©   (2009-12-04 22:59) [3]

Спасение утопающих - дело рук (глаз и серого вещества в полости черепа) самих утопающих.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.004 c
2-1259845543
Wind001
2009-12-03 16:05
2010.01.24
Передать массив как параметр


15-1258373073
RGV
2009-11-16 15:04
2010.01.24
Мастера подскажите где скачать простой и хороший пакер для exe


15-1258742459
POOP
2009-11-20 21:40
2010.01.24
Djvu просмоторщик для мобильника?


4-1227602398
Lamer6666
2008-11-25 11:39
2010.01.24
Как отправить AT команду модему?


15-1258759928
POOP
2009-11-21 02:32
2010.01.24
sis формат





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский