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

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

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

 
 Ответить  Открыть новую тему 
> типы данных определяемые пользователем, как к задаче приплести эти гребаные типы?
сообщение
Сообщение #1


Гость






тема лабораторной: типы данных определяемые пользователем

задача: по введенному сезону определить месяц (тупая, но она такая)
решить ее не проблема без этих типов
а как их реально задействовать здесь, я хз... туплюсь : blink.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ну, так приведи решение БЕЗ типов, чтобы хотя бы стало понятно, какие входные данные, а какие выходные, добавим в нее типы пользователя...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


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

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

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


Цитата
по введенному сезону определить месяц (тупая, но она такая)


Может по введенному месяцу определить сезон ? Типа вводишь Февраль, программа выдает ответ Зима.


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


Гость






uses
crt;

var
season: string;

begin
clrScr;
write ('введите сезон года: ');
readln (season);
if season = 'зима' then write ('декабрь, январь, февраль')
else if season = 'весна' then write ('март, апрель, май')
else if season = 'лето' then write ('июнь, июль, август')
else if season = 'осень' then write ('сентябрь, октябрь, ноябрь')
{или можно создать массив месяцев и брать их от туда}
end.



Если бы можно было вводить с консоли
"типы данных определяемые пользователем", было бы конечно же хорошо

Если посмотреть на эту задачу шире... то по введенному диапазону,
вывести все его значения
У меня были мысли создать тип "месяца", надтипы типа "месяца" -- "сезоны",
но что то все равно...



 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(klem4 @ 18.03.2007 11:32) *

Может по введенному месяцу определить сезон ? Типа вводишь Февраль, программа выдает ответ Зима.

нет... к сожалению именно такое условие -- по сезону месяц (слово месяц почему то в ед. числе, скорее всего все месяца сезона надо вывести)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





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

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


вот какое решение я придумал:)

program laba_666;

uses
crt;

type
month = (
des, jan, fab, mar, apr, may, jun, jul, aug, sep, oct, nov
);

const
month_arr: array[month] of string = (
'декабрь', 'январь', 'февраль', 'март', 'апрель', 'май',
'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь'
);

var
season: string;
i, first, last, a: month;

begin

clrScr;

write('Введите название сезона года: '); readln(season);

if season = 'зима' then first:= des
else if season = 'весна' then first:= mar
else if season = 'лето' then first:= jun
else if season = 'осень' then first:= sep;

a:= first;
inc(a,2);
last:= a;

for i:= first to last do writeln(month_arr[i]);

end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 23.09.2020 17:56
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name