IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Масивы даных пересчетных типов
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Для каждой страны задать среднемесяную температуру за каждый месяц.

Задача простая, но почему то не могу понять как её правильно сделать масивы даных пересчетных типов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


const
n = 10; // кол-во стран
type
TRec = record
name : string; // название страны
T : array [1..12] of single; // температуры соответсвенно по месяцам
end;

TDataBase = array [1..n] of TRec;


и вперед ...

Будут вопросы, задавай.

Воспользуйся поиском, решено много задач на записи + FAQ : Записи - http://forum.pascal.net.ru/index.php?showtopic=9198

Сообщение отредактировано: volvo -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Desktop II,
что есть в твоем понимании "пересчетные" типы? Ибо Single (да и любой вещественный тип вообще) никак нельзя отнести к типам с конечным числом представляемых значений...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 29.03.2006 19:03) *

Desktop II,
что есть в твоем понимании "пересчетные" типы? Ибо Single (да и любой вещественный тип вообще) никак нельзя отнести к типам с конечным числом представляемых значений...


В моем понимание пересчетный тип это тип который созданый с индефикаторов путем йх обединение в список
например
type <имя типа>(<Значение 1>,<Значение 2>,...);
Тоесть задача я полагаю должна начинаться так:
program mes;
type misjac=(jan, fev, mart, apr, may, iun, iul, avg, sen, okt, noy, dek);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


uses crt;
const
n = 10;
type

TMonth = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, dec);

TCity = record
T : array [TMonth] of single;
name : string;
end;

TDataBase = array [1..n] of TCity;

var
c : TDataBase;
begin
c[1].name := 'Moscow';
c[1].T[jan] := -30;
end.


Сообщение отредактировано: volvo -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Error 116: Must be in 8087 mode to compile this.
Что это за ошибка при запуске ?
Строка c[1].T[jan] := -30;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


ПОИСК и еще раз поиск.

Поставь первой строкой {$N+}
или

Options->Compiler-> поставь галочку напротив 8087 mode.

Подключение математического сопроцессора.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


А программу мне в цикл поставить ?
for i:=1 to n do
begin
write('Vvesti Stranu');
readln(c[??].name);
Writeln('Vvesti temperaturu dlya Janvaray');
readln(c[??].T[jan]);
...
end;

Вот так делать ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Именно так, вместо вопросов i.

И сходи по ссылке которую я привел, много вопросов у тебя отпадет.

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.04.2017 15:19
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"