Нужно написать программу в Delphi7...

[Кроток]

Мне задали написать на Delphi7 восточный календарь... Задание звучит так Годы внутри цикла носят название животных: крыса, корова, тигр, заяц, дракон, змея лошадь, овца, обезьяна, петух, собака, свинья. Нужно написать программу, которая по номеру года определяет его название. Если известно, что 1996 год был голом крысы.
Мне посоветовали написать программу в паскале, чтобы было легче составить программу, я написал, легче не стало.
Вот собственно программа в паскале :

program goroscop;
var Year:integer;
l:string;
begin
writeln('Введите год');
readln(Year);
case year mod 12 of
0: L:='Год обезьяны';
1: L:='Год петуха';
2: L:='год собаки';
3: L:='Год свиньи';
4: L:='Год крысы';
5: L:='Год коровы';
6: L:='Год тигра';
7: L:='Год зайца';
8: L:='Год дракона';
9: L:='Год змеи';
10: L:='Год лошади';
11: L:='Год овцы';
end;
writeln(l);
end.

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

[Grag]

Нужно запустить Delphi и создать форму с компонентами по вводу данных и выводу результатов... Потом сохранить проект, скомпилировать его и получить готовую программу...

[ArtInt]

Вот исходник на Дельфи 7
Если формула известна и есть код на Паскале, то вроде бы ничего сложного.

[Кроток]

Понимаете... у меня нет никакой подготовке, мы всё делали по методичкам... То есть было так, вот тебе методичка делай по ней и сдавай... А тут во те раз задали на дом.. то есть у меня почти нулевой уровень подготовки, а сдать нужно после завтра... Можете написать программу такого типа... Ввел год тыкнул вывести, тебе написали какой год...

[ArtInt]

Вроде бы исходник выложил, там через DateTimePicker1.
Но можете кинуть просто компонент Edit1, потом просто переводите его в численное значение
Вот например, что будет тогда в коде кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
 MyIntDate: integer;
begin

MyIntDate:=strtoint(Edit1.text);

case MyIntDate mod 12 of
0: Label4.caption:='Год обезьяны';
1: Label4.caption:='Год петуха';
2: Label4.caption:='год собаки';
3: Label4.caption:='Год свиньи';
4: Label4.caption:='Год крысы';
5: Label4.caption:='Год коровы';
6: Label4.caption:='Год тигра';
7: Label4.caption:='Год зайца';
8: Label4.caption:='Год дракона';
9: Label4.caption:='Год змеи';
10: Label4.caption:='Год лошади';
11: Label4.caption:='Год овцы';
end;

end; {Button1}

[Кроток]

MyIntDate:=strtoint(Edit1.text); что значит эта строчка?
И если честно на самом деле я не понял ничего из того что вы мне написали

что такое MyIntDate ?

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

[ArtInt]

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

и это удовлетворяет?

Ввел год тыкнул вывести, тебе написали какой год...

Задача выполнена, как я понял?

Что значит, что такое MyIntDate?

MyIntDate - это переменная в которой будет находится численное значение из Edit1.text, описанная в var

Edit1- компонент на форме, Text - его свойство выводит текст (string).

А переменную MyIntDate вводим для того чтобы потом выяснить остаток от деления на 12

MyIntDate mod 12

Ведь мы не можем текстовое значение делить на число в Дельфи.
В языке VBA например можем, но мы же в Дельфи.

////////////

MyIntDate:=strtoint(Edit1.text);

strtoint() - это зарезервированная функция, которая из строки делает целочисленное число, вообщем "приведение" типов, string to integer.

[Кроток]

ну мне хотелось бы чтобы ещё были 12 картинок и в соответствии с годом выдавалась определённая картинка, например год петуха, выдавалась бы картинка с петухом, такое можно сделать??

[ArtInt]

В папке где лежит программа создаем 12 картинок.
На форму кидаем компонент Image1.

Потом, где идет выбор, обрамляем каждый выбор операторными скобками (begin .. end).
Вот например:

case MyIntDate mod 12 of
0: 
  begin   
    Label4.caption:='Год обезьяны';
    Image1.Picture.LoadFromFile('obezana.bmp');
  end;
1: 
  begin 
     Label4.caption:='Год петуха';
     Image1.Picture.LoadFromFile('petuh.bmp');
  end;
{и так далее для всех остальных по аналогии}

[Кроток]

Вот как бы написал, но программа не запускается! в чем ошибка??