VPF::Upgrade программы на Delphi - Форум программистов

Chapaev

Дата 22.12.2005, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 4.12.2005

Репутация: нет
Всего: нет

Надо проапгрейдить программу. Массив Years заменить на тип-диапазон а Monthes на множество. Задать могу, а вот работать с ними не получается(

Код


program Temperature;

{ Дана таблица, содержащяя сведения о среднемесечной температуре за последние
  5 лет. Найти зимний месяц с наименьшей температурой и летний с наибольшей.  }

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

const
  a = 5;    // Годы
  b = 12;    // Месяцы

type
  MonthesTemp = array [1..b] of integer;
  YearsTemp = array [1..a] of MonthesTemp;
  Monthes = array [1..b] of string;
  Years = array [1..a] of word;

var
  Y: Years;    // Таблица температур
  M: Monthes;    // Названия месяцов
  T: YearsTemp;   // Годы
  h,i,j,   // Переменные цикла
  winter_month,   // Самый холодный зимний месяц
  winter_year,   // Самый холодный зимний год
  summer_month,   // Самый тёплый летний месяц
  summer_year: Word;   // Самый тёплый летний год
  winter_min,   // Минимальная зимняя температура
  summer_max: Integer;   // Максимальная летняя температура

begin
  M[1] := 'Jan';
  M[2] := 'Feb';
  M[3] := 'Mar';
  M[4] := 'Apr';
  M[5] := 'May';
  M[6] := 'Jun';
  M[7] := 'Jul';
  M[8] := 'Aug';
  M[9] := 'Sep';
  M[10] := 'Oct';
  M[11] := 'Nov';
  M[12] := 'Dec';

  Y[1] := 2001;
  Y[2] := 2002;
  Y[3] := 2003;
  Y[4] := 2004;
  Y[5] := 2005;


  winter_min := 5;
  winter_month := 0;
  winter_year := 0;
  summer_month := 5;
  summer_year := 0;
  summer_max := 0;

  WriteLn('Table of temperature for 10 years: ');
  WriteLn;
  Write('Year');
  for h:=1 to b do Write(' | ', M[h]);
  WriteLn;
  Randomize;
  for i:=1 to a do
    begin
      Write(Y[i], ' ');
      for j:=1 to b do
        begin
          if (j = 12) or (j = 1) or (j = 2) then
            begin
              T[i,j] := RandomRange(-30, 5);
              if (T[i,j] <= winter_min) then
                begin
                  winter_min := T[i,j];
                  winter_year := i;
                  winter_month := j;
                end;
            end
          else if (j = 3) or (j = 0) or (j = 25) then
            T[i,j] := RandomRange(0, 5)
          else if (j = 6) or (j = 7) or (j = 8) then
            begin
              T[i,j] := RandomRange(5, 30);
              if (T[i,j] >= summer_max) then
                begin
                  summer_max := T[i,j];
                  summer_year := i;
                  summer_month := j;
                end;
            end
          else
            T[i,j] := RandomRange(-10, 20);

          if (T[i,j] >= 0) and (T[i,j] < 10) then
            Write('|  ', T[i,j], '  ')
          else if ((T[i,j] < 0) and (T[i,j] > -10)) or (T[i,j] >=10) then
            Write('|  ', T[i,j], ' ')
          else
            Write('| ', T[i,j], ' ');
        end;
      WriteLn;
    end;

  WriteLn;
  WriteLn('The hottest summer day(', summer_max, ') was in ', M[summer_month], ' ', Y[summer_year], '!');
  WriteLn('The coldest winter day(', winter_min, ') was in ', M[winter_month], ' ', Y[winter_year], '!');
  ReadLn;
end.

Chapaev

Дата 22.12.2005, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 4.12.2005

Репутация: нет
Всего: нет

Тип-диапазон сделал. А вот с множеством беда. Выручайте.

Zero

Дата 22.12.2005, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Цитата(Chapaev @ 22.12.2005, 23:54)

А вот с множеством беда. Выручайте.

А оно у тебя ни где не используется, не считая вывод, и поэтому менять в нём нечего. Или у тебя есть предложения, потому, как бы ты хотел это видеть??

Это сообщение отредактировал(а) Zero - 22.12.2005, 23:16

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »