Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

turbo pascal. перевести дату по старояпонскому календарю

37K
31 марта 2008 года
max.pnz
1 / / 27.03.2008
Разработать программу которая по введённому году выводит его название по старояпонскому календарю. В этом календаре 60-летний цикл который состоит из 5 подциклов. Подциклы обозначаются цветами зелёный, красный, жёлтый, белый, чёрный. Внутри каждого подцикла годы называются: крыса, корова, тигр, заяц, дракон, змея, лошадь, коза, обезьяна, петух, собака, свинья. 1984-год зелёной крысы.
Помогите пожалуйста
30K
03 апреля 2008 года
МишаВорончук
23 / / 23.01.2008
Еще актуально?
6.8K
05 апреля 2008 года
bolt90
80 / / 25.01.2007
на всяк случай
Код:
program Project34;

uses
  crt;
var a,b:integer; m1:array [1..5] of string;
  m2:array [1..12] of string;

begin
clrscr;
m1[1]:='green';
m1[2]:='red';
m1[3]:='yellow';
m1[4]:='white';
m1[5]:='black';
m2[1]:='petyx';
m2[2]:='dog';
m2[3]:='pig';
m2[4]:='ret';
m2[5]:='cow';
m2[6]:='tiger';
m2[7]:='rebit';
m2[8]:='dragon';
m2[9]:='snake';
m2[10]:='horse';
m2[11]:='kaza';
m2[12]:='monkey';
write('year ');
readln(a);
b:=a-(a div 60)*60;
a:=b mod 12;
b:=b div 12;
write (m1[b+1], ' ', m2[a]);
readln;
end.
39K
27 апреля 2008 года
Lerka
1 / / 27.04.2008
:( год обезьяны не работает
30K
28 апреля 2008 года
МишаВорончук
23 / / 23.01.2008
Цитата: Lerka
:( год обезьяны не работает



Может там надо увеличить размерность массива до 13? ( [1...13])

89K
04 декабря 2013 года
програмер
2 / / 04.12.2013
program Project34;

uses
crt;
var a,b:integer;
m2:array [0..11] of string;

begin
m2[0]:='обезьяна';
m2[1]:='петух';
m2[2]:='собака';
m2[3]:='свинья';
m2[4]:='заяц';
m2[5]:='корова';
m2[6]:='тигр';
m2[7]:='кролик';
m2[8]:='дракон';
m2[9]:='змея';
m2[10]:='лошадь';
m2[11]:='коза';

write('год ');
readln(a);
b:=a-(a div 60)*60;
a:=b mod 12;
b:=b div 12;
write (m2[a]);
readln;
end.
89K
04 декабря 2013 года
програмер
2 / / 04.12.2013
Цитата: Lerka
:( год обезьяны не работает



Может там надо увеличить размерность массива до 13? ( [1...13])


уменьшить размер масива и поменять местами обезьяна не 12 год а 0 ну в общем код сверху

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог