Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выбор времени года, операция Case 
:(
    Опции темы
Paha1992
Дата 1.4.2012, 15:46 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Program Project28_3;
var
a: real;
w: boolean;
begin
write('Vvedite nomer misyacya: ');
readln(a);
case w of
12,1,2: w:='Zima';
3,4,5: w:='Vesna';
6,7,8: w:='Leto';
9,10,11: w:='Osen`';
else w:='-------';
end;

end
end.

Ошибка:
incompatible types: 'boolean' and 'integer' не понимаю в чем дело, я пробовал присвоить
переменной w тип integer, но все равно та же ошибка(, скажите пожалуста, что я делаю не так?

Добавлено через 11 минут и 45 секунд
скрин окна с кодом

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  Безымянный.png 39,13 Kb
PM MAIL   Вверх
northener
Дата 1.4.2012, 16:53 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Paha1992 @  1.4.2012,  15:46 Найти цитируемый пост)
скажите пожалуста, что я делаю не так?

Коротко говоря всё не так. Зачем в данном коде вообще нужна переменная типа boolean? Почему номер месяца записывается в переменную a, а проверяется в case переменная w? Почему в числе переменных нет переменной типа string? Почему для номера месяца используется переменная вещественного типа?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Akella
Дата 1.4.2012, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
Цитата(Paha1992 @  1.4.2012,  15:46 Найти цитируемый пост)
incompatible types: 'boolean' and 'integer' не понимаю в чем дело


Рыба или мясо - не понимаешь?

Добавлено через 2 минуты и 24 секунды
Такого бреда я ещё не видел

Объявил, как boolean
Цитата(Paha1992 @  1.4.2012,  15:46 Найти цитируемый пост)
w: boolean;


берёшь оттуда значения типа integer
Цитата(Paha1992 @  1.4.2012,  15:46 Найти цитируемый пост)
case w of


и присваиваешь строковое значение
Цитата(Paha1992 @  1.4.2012,  15:46 Найти цитируемый пост)
 w:='Zima';



мдаааа, такие вопросы нужно в "мем`ы" сохранять  smile 
PM MAIL   Вверх
northener
Дата 2.4.2012, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Akella @  1.4.2012,  20:15 Найти цитируемый пост)
мдаааа, такие вопросы нужно в "мем`ы" сохранять

Места не хватит! smile


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Данкинг
Дата 2.4.2012, 01:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Paha1992 @  1.4.2012,  16:46 Найти цитируемый пост)
я пробовал присвоить
переменной w тип integer

И затем, судя по коду, присваивал ей строковое значение?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Paha1992
Дата 2.4.2012, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Я по видимому.. ПОЧТИ все исправил, теперь ошибка заключается в том, что при компиляции одна из строк подсвечивается синим цветом, и выскакивает ошибка, на форумах свотрел но пока что без успешно.
СКРИН

Присоединённый файл ( Кол-во скачиваний: 17 )
Присоединённый файл  Безымянный.jpg 71,32 Kb
PM MAIL   Вверх
Чучмек
Дата 2.4.2012, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
 {$APPTYPE CONSOLE}
File->New->Other->Console Аpplication
Код

program Project28_3;
 {$APPTYPE CONSOLE}
uses
...




--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Данкинг
Дата 2.4.2012, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Не понял: а до того WRITE нормально проходился, что ли? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Qu1nt
Дата 2.4.2012, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
Данкинг, очевидно, что до этого проект не компилировался.
PM MAIL   Вверх
Paha1992
Дата 2.4.2012, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ребят, я понимаю, что мои посты пахнут идиотизмом НО программа показывает 1 ошибку, я уже и не знаю что делать, забить и удалить - обидно, ведь почти готово подскажите пожалуста какую постоянную он просит??
Код

Program Project28_3;
 {$APPTYPE CONSOLE}
uses
  SysUtils;
var
a:char;
w: string;

begin
write('Vvedite nomer mesyacya:');
readln(a);
case a of
'1':w:='Zima';
'2':w:='Vesna';
'3':w:='Leto';
'4':w:='osen`';
writeln(w);  /// эта строка подсвечена красным
else                                             
writeln('Недопустимый символ')
end;
end.


Ошибка:
Constant expression expected

Это сообщение отредактировал(а) Paha1992 - 2.4.2012, 12:31
PM MAIL   Вверх
Delvish
Дата 2.4.2012, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


oO
*


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

Репутация: нет
Всего: 4
Цитата(Paha1992 @  2.4.2012,  13:29 Найти цитируемый пост)
case a of
'1':w:='Zima';
'2':w:='Vesna';
'3':w:='Leto';
'4':w:='osen`';
writeln(w);  /// эта строка подсвечена красным
else                                             
writeln('Недопустимый символ')
end;


жесть какая-то... ты хочешь при выборе 1-4 присвоить переменной w значение и тут же его вывести на экран? тогда каждую строку в begin..end и в каждой пропиши вывод на экран
PM MAIL   Вверх
Paha1992
Дата 2.4.2012, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Прописал, теперь у переменной W не тот тип. т.е. ошибок стало больше
PM MAIL   Вверх
Paha1992
Дата 2.4.2012, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ВСЕМ ОГРОМНЕЙШЕЕ СПАСИБО! ошибки исправил, все работает, все прекрасно! 
PM MAIL   Вверх
Чучмек
Дата 2.4.2012, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Код

case a of
'1':w:='Zima';
'2':w:='Vesna';
'3':w:='Leto';
'4':w:='osen`';
else w:='Недопустимый символ';
end;
writeln(w);


Это сообщение отредактировал(а) Чучмек - 2.4.2012, 13:57


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Akella
Дата 7.4.2012, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
http://forum.vingrad.ru/forum/topic-237714.html
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0730 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.