Перечисляемый тип данных. Определить какой месяц и на каком острове самый холодный

@nosofast1 · Регистрация: 19.12.2013

Студворк — интернет-сервис помощи студентам

Условие:
Даны следующие типы данных:
type
island= (barbados, gaiti, grenada, kuba, martinika, jamaika);
month= (jan,feb,march,apr,may,june,july,aug,sep ,okt,nov,dec);
var
t:array[island,month] of real;
i:island;
m:month;
Элемент t[x,y] означает среднемесячную температуру на острове x в месяце y. Определить, какой месяц (m) и на каком острове (i) самый холодный.

Ну так вот, я написал половину, если даже не больше и не могу понять как заставить работать последний case

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
uses
    crt;
const
     x=34;
type
    island = (Barbados,  Gaiti, Grenada, Kuba, Martinika, Jamaika);
    Month = (Jan, Feb, March, Apr, May, June, July, Aug, Sep, Oct, Nov, Dec);
var
   t:array[island,month] of real;
   i:island;
   m:month;
   y:integer;
   min:real;
begin
     for i:=Barbados to Jamaika do
         begin
              y:=1;
              clrscr;
              begin
                   case i of
                        barbados : writeln('Введите температуру Барбадоса за: ');
                        Gaiti : writeln('Введите температуру Гаити за: ');
                        Grenada : writeln('Введите температуру Гренады за: ');
                        Kuba :  writeln('Введите температуру Кубы за: ');
                        Martinika : writeln('Введите температуру Мартиники за: ');
                        Jamaika : writeln('Введите температуру Ямайки за: ');
                   end;
                       for m:= jan to dec do
                           begin
                                y:=y+1;
                                gotoxy (x,y);
                                case m of
                                       jan:write('Январь:  ');
                                       feb:write('Февраль: ');
                                       march:write('Март:    ');
                                       apr:write('Апрель:  ');
                                       may:write('Май:     ');
                                       June:write('Июнь:    ');
                                       july:write('Июль:    ');
                                       aug:write('Август:  ');
                                       sep:write('Сентябрь:');
                                       oct:write('Октябрь: ');
                                       Nov:write('Ноябрь:  ');
                                       dec:write('Декабрь: ');
                                end;
                                read(t[i,m]);
                           end;
              end;
         end;
         begin
              clrscr;
              writeln('Помесячная температура за год на островах: ');
              for i:= barbados to jamaika do
                  begin
                       for m:= jan to dec do
                           begin
                                write(t[i,m]:6:1);
                           end;
                       writeln;
                  end;
         end;
         begin
              min:=t[barbados,jan];
              for i:= barbados to jamaika do
                  begin
                       for m:= jan to dec do
                           begin
                                if min>t[i,m] then min:=t[i,m];
                           end;
                  end;
              write(min);
         end;
         begin
              for i:= Barbados to Jamaika do
                  if t[i,m]=min then
                     begin
                          case i of
                               barbados : writeln('Барбадос ');
                               Gaiti : writeln('Гаити');
                               Grenada : writeln('Гренада');
                               Kuba :  writeln('Куба');
                               Martinika : writeln('Мартиника');
                               Jamaika : writeln('Ямайка');
                          end;
                              for m:= Jan to Dec do
                                  if t[i,m]=min then
                                     case m of
                                            jan:write('Январь');
                                            feb:write('Февраль');
                                            march:write('Март');
                                            apr:write('Апрель');
                                            may:write('Май');
                                            June:write('Июнь');
                                            july:write('Июль');
                                            aug:write('Август');
                                            sep:write('Сентябрь');
                                            oct:write('Октябрь');
                                            Nov:write('Ноябрь');
                                            dec:write('Декабрь');
                                     end;
                     end;
                          
         end;
 
end.

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

@Puporev · 19.12.2013, 07:32

Вот как-то писал такое, только вместо островов, страны

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
type strana=(a,d,pr,k,y,pl);
     mesyac=(jn,f,mr,ap,mj,yn,yl,av,s,o,n,dc);
const st:array[strana] of string[6]=
('Англия','Дания','Перу','Кения','Япония','Польша');
var temp:array[strana,mesyac] of real;
    i,imn:strana;
    j:mesyac;
    mn,sr:real;
begin
clrscr;
temp[a,jn]:=-2.3;temp[a,f]:=-0.3;temp[a,mr]:=5.6;temp[a,ap]:=14.3;
temp[a,mj]:=16.3;temp[a,yn]:=20.3;temp[a,yl]:=22.3;temp[a,av]:=22.3;
temp[a,s]:=11.3;temp[a,o]:=10.3;temp[a,n]:=0.3;temp[a,dc]:=-10.5;
temp[d,jn]:=-3.3;temp[d,f]:=-2.3;temp[d,mr]:=4.6;temp[d,ap]:=13.3;
temp[d,mj]:=15.3;temp[d,yn]:=18.3;temp[d,yl]:=20.3;temp[d,av]:=20.3;
temp[d,s]:=10.3;temp[d,o]:=9.3;temp[d,n]:=-1.3;temp[d,dc]:=-12.5;
temp[pr,jn]:=23.3;temp[pr,f]:=12.3;temp[pr,mr]:=14.6;temp[pr,ap]:=13.3;
temp[pr,mj]:=5.3;temp[pr,yn]:=8.3;temp[pr,yl]:=0.3;temp[pr,av]:=0.3;
temp[pr,s]:=2.3;temp[pr,o]:=9.3;temp[pr,n]:=11.3;temp[pr,dc]:=22.5;
temp[k,jn]:=23.3;temp[k,f]:=32.3;temp[k,mr]:=24.6;temp[k,ap]:=33.3;
temp[k,mj]:=25.3;temp[k,yn]:=28.3;temp[k,yl]:=30.3;temp[k,av]:=30.3;
temp[k,s]:=20.3;temp[k,o]:=19.3;temp[k,n]:=11.3;temp[k,dc]:=22.5;
temp[y,yn]:=-3.3;temp[y,f]:=-2.3;temp[y,mr]:=4.6;temp[y,ap]:=13.3;
temp[y,mj]:=25.3;temp[y,yn]:=28.3;temp[y,yl]:=22.3;temp[y,av]:=20.3;
temp[y,s]:=10.3;temp[y,o]:=9.3;temp[y,n]:=-1.3;temp[y,dc]:=-12.5;
temp[pl,yn]:=-8.3;temp[pl,f]:=-6.3;temp[pl,mr]:=1.6;temp[pl,ap]:=13.3;
temp[pl,mj]:=15.3;temp[pl,yn]:=21.3;temp[pl,yl]:=24.3;temp[pl,av]:=20.3;
temp[pl,s]:=10.3;temp[pl,o]:=9.3;temp[pl,n]:=-1.3;temp[pl,dc]:=-12.5;
sr:=0;
for j:=jn to dc do
sr:=sr+temp[a,j];
mn:=sr/12;
imn:=a;
for i:=a to pl do
 begin
  sr:=0;
  for j:=jn to dc do
  sr:=sr+temp[i,j];
  if sr/12<mn then
   begin
    mn:=sr/12;
    imn:=i;
   end;
 end;
writeln('Tablica temperatyr:');
for i:=a to pl do
 begin
  write(st[i]:6);
  for j:=jn to dc do
  write(temp[i,j]:6:1);
  writeln;
 end;
writeln;
write('Samaya nizkaya temperatura v ',st[imn]);
readln
end.

@nosofast1 · 19.12.2013, 07:36 **[ТС]**

Классный вариант, но у меня преподаватель именно с использованием case просит. У меня уже все работает, и выводит самый холодный месяц, но остров никак не хочет... не знаю что делать

@Puporev · 19.12.2013, 07:43

Сообщение от nosofast1

с использованием case просит

Не понимаю зачем это, если данные в двухмерном массиве... Просто найти минимум и координаты в таблице.

@nosofast1 · 19.12.2013, 07:45 **[ТС]**

Извините, ответ придумал =) перечитывал и понял что не там поставил цикл
вот окончательный результат (вдруг у кого будет такая же проблема):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
uses
    crt;
const
     x=34;
type
    island = (Barbados,  Gaiti, Grenada, Kuba, Martinika, Jamaika);
    Month = (Jan, Feb, March, Apr, May, June, July, Aug, Sep, Oct, Nov, Dec);
var
   t:array[island,month] of real;
   i:island;
   m:month;
   y:integer;
   min:real;
begin
     for i:=Barbados to Jamaika do
         begin
              y:=1;
              clrscr;
              begin
                   case i of
                        barbados : writeln('Введите температуру Барбадоса за: ');
                        Gaiti : writeln('Введите температуру Гаити за: ');
                        Grenada : writeln('Введите температуру Гренады за: ');
                        Kuba :  writeln('Введите температуру Кубы за: ');
                        Martinika : writeln('Введите температуру Мартиники за: ');
                        Jamaika : writeln('Введите температуру Ямайки за: ');
                   end;
                       for m:= jan to dec do
                           begin
                                y:=y+1;
                                gotoxy (x,y);
                                case m of
                                       jan:write('Январь:  ');
                                       feb:write('Февраль: ');
                                       march:write('Март:    ');
                                       apr:write('Апрель:  ');
                                       may:write('Май:     ');
                                       June:write('Июнь:    ');
                                       july:write('Июль:    ');
                                       aug:write('Август:  ');
                                       sep:write('Сентябрь:');
                                       oct:write('Октябрь: ');
                                       Nov:write('Ноябрь:  ');
                                       dec:write('Декабрь: ');
                                end;
                                read(t[i,m]);
                           end;
              end;
         end;
         begin
              clrscr;
              writeln('Помесячная температура за год на островах: ');
              for i:= barbados to jamaika do
                  begin
                       for m:= jan to dec do
                           begin
                                write(t[i,m]:6:1);
                           end;
                       writeln;
                  end;
         end;
         begin
              min:=t[barbados,jan];
              for i:= barbados to jamaika do
                  begin
                       for m:= jan to dec do
                           begin
                                if min>t[i,m] then min:=t[i,m];
                           end;
                  end;
         end;
          begin
              for i:= Barbados to Jamaika do
                     begin
                          for m:= Jan to Dec do
                              begin
                          if t[i,m]=min then
                          case i of
                               barbados : writeln('Барбадос');
                               Gaiti : writeln('Гаити');
                               Grenada : writeln('Гренада');
                               Kuba :  writeln('Куба');
                               Martinika : writeln('Мартиника');
                               Jamaika : writeln('Ямайка');
                               end;
                                  begin
                                  if t[i,m]=min then
                                     case m of
                                          jan:write('Январь');
                                          feb:write('Февраль');
                                          march:write('Март');
                                          apr:write('Апрель');
                                          may:write('Май');
                                          June:write('Июнь');
                                          july:write('Июль');
                                          aug:write('Август');
                                          sep:write('Сентябрь');
                                          oct:write('Октябрь');
                                          Nov:write('Ноябрь');
                                          dec:write('Декабрь');
                                     end;
                                  end;
                     end;
                     end;
         end;
End.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@nosofast1 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 3
	19.12.2013, 07:36 [ТС]
	Классный вариант, но у меня преподаватель именно с использованием case просит. У меня уже все работает, и выводит самый холодный месяц, но остров никак не хочет... не знаю что делать 0