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.
turbo pascal. перевести дату по старояпонскому календарю
Разработать программу которая по введённому году выводит его название по старояпонскому календарю. В этом календаре 60-летний цикл который состоит из 5 подциклов. Подциклы обозначаются цветами зелёный, красный, жёлтый, белый, чёрный. Внутри каждого подцикла годы называются: крыса, корова, тигр, заяц, дракон, змея, лошадь, коза, обезьяна, петух, собака, свинья. 1984-год зелёной крысы.
Помогите пожалуйста
Помогите пожалуйста
Еще актуально?
:( год обезьяны не работает
Цитата: Lerka
:( год обезьяны не работает
Может там надо увеличить размерность массива до 13? ( [1...13])
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.
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.
Цитата: МишаВорончук
Цитата: Lerka
:( год обезьяны не работает
Может там надо увеличить размерность массива до 13? ( [1...13])
уменьшить размер масива и поменять местами обезьяна не 12 год а 0 ну в общем код сверху