Масивы даных пересчетных типов |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Масивы даных пересчетных типов |
Desktop II |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
Для каждой страны задать среднемесяную температуру за каждый месяц.
Задача простая, но почему то не могу понять как её правильно сделать масивы даных пересчетных типов. |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
const и вперед ... Будут вопросы, задавай. Воспользуйся поиском, решено много задач на записи + FAQ : Записи - http://forum.pascal.net.ru/index.php?showtopic=9198 Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#3
|
Гость |
Desktop II,
что есть в твоем понимании "пересчетные" типы? Ибо Single (да и любой вещественный тип вообще) никак нельзя отнести к типам с конечным числом представляемых значений... |
Desktop II |
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
Desktop II, что есть в твоем понимании "пересчетные" типы? Ибо Single (да и любой вещественный тип вообще) никак нельзя отнести к типам с конечным числом представляемых значений... В моем понимание пересчетный тип это тип который созданый с индефикаторов путем йх обединение в список например type <имя типа>(<Значение 1>,<Значение 2>,...); Тоесть задача я полагаю должна начинаться так: program mes; type misjac=(jan, fev, mart, apr, may, iun, iul, avg, sen, okt, noy, dek); |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
uses crt; Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Desktop II |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
Error 116: Must be in 8087 mode to compile this.
Что это за ошибка при запуске ? Строка c[1].T[jan] := -30; |
klem4 |
Сообщение
#7
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
ПОИСК и еще раз поиск.
Поставь первой строкой {$N+} или Options->Compiler-> поставь галочку напротив 8087 mode. Подключение математического сопроцессора. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Desktop II |
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
А программу мне в цикл поставить ?
for i:=1 to n do Вот так делать ? |
klem4 |
Сообщение
#9
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Именно так, вместо вопросов i.
И сходи по ссылке которую я привел, много вопросов у тебя отпадет. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 4.10.2024 12:36 |