Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 3 463

Раздел: Delphi » Общие вопросы по программированию
/ вопрос решён /

Приветствую, уважаемые эксперты!
Че ему тут не нравится? Пишет ошибку:[
Error] Project2.dpr(14): 'END' expected but 'ELSE' found
А так же компилятор возмущается:
[Warning] Project2.dpr(12): Variable 'f' might not have been initialized
[Warning] Project2.dpr(13): Variable 'k' might not have been initialized

Приложение:
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11. program Project2;
  12.  
  13. {$APPTYPE CONSOLE}
  14.  
  15. uses
  16. SysUtils;
  17. var
  18. y,m,d,k,f:integer;
  19. begin
  20. readln(y,m,d);
  21. if((y mod 4)=0) then if(m=2) then f:=29
  22. else f:=28; writeln(f);
  23. if(m=1) then k:=31-d; writeln(k)
  24. else if(m=2) then k:=f-d; writeln(k)
  25. else if(m=3) then k:=31-d; writeln(k)
  26. else if(m=4) then k:=30-d; writeln(k)
  27. else if(m=5) then k:=31-d; writeln(k)
  28. else if(m=6) then k:=30-d; writeln(k)
  29. else if(m=7) then k:=31-d; writeln(k)
  30. else if(m=8) then k:=31-d; writeln(k)
  31. else if(m=9) then k:=30-d; writeln(k)
  32. else if(m=10) then k:=31-d; writeln(k)
  33. else if(m=11) then k:=30-d; writeln(k)
  34. else if(m=12) then k:=31-d; writeln(k);
  35.  
  36. end.


prog-mer Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: prog-mer (статус: Посетитель)
Вопрос отправлен: 30 ноября 2009, 19:39
Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: unl0K

Здравствуйте, Кравец Олег Валерьевич!
Вы просто забыли о операторныx скобках, так как условный оператор выглядит так: if условие then действие else действие,а у вас два действия и их нужно взять в оп. скобки тобишь begin end.

Приложение:
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. var
  8. y,m,d,k,f:integer;
  9. begin
  10. readln(y,m,d);
  11. if((y mod 4)=0) then if(m=2) then f:=29
  12. else f:=28; writeln(f);
  13. if(m=1) then begin k:=31-d; writeln(k); end
  14. else if(m=2) then begin k:=f-d; writeln(k) end
  15. else if(m=3) then begin k:=31-d; writeln(k)end
  16. else if(m=4) then begin k:=30-d; writeln(k)end
  17. else if(m=5) then begin k:=31-d; writeln(k)end
  18. else if(m=6) then begin k:=30-d; writeln(k)end
  19. else if(m=7) then begin k:=31-d; writeln(k)end
  20. else if(m=8) then begin k:=31-d; writeln(k)end
  21. else if(m=9) then begin k:=30-d; writeln(k)end
  22. else if(m=10) then begin k:=31-d; writeln(k)end
  23. else if(m=11) then begin k:=30-d; writeln(k)end
  24. else if(m=12) then begin k:=31-d; writeln(k)end;
  25.  
  26. end.
  27.  


Ответ отправил: unl0K (статус: Посетитель)
Время отправки: 30 ноября 2009, 19:47
Оценка за ответ: 5

Ответ #2. Отвечает эксперт: monah

Здравствуйте, Кравец Олег Валерьевич!
Зачем такие сложности то?

Приложение:
  1. var
  2. d:real;
  3. d:=encodeDate(y, m, d);
  4. writeln(now-d);
  5.  


Ответ отправил: monah (статус: 1-ый класс)
Время отправки: 5 декабря 2009, 12:41
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 12; последнее сообщение — 30 ноября 2009, 22:18; участников в обсуждении: 2.
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 19:59 [#1]:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  y,m,d,k,f:integer;
begin
  write('Year=');readln(y);
  write('Month=');readln(m);
  write('Day=');readln(d);
 
if((y mod 4)=0) then f:=29 else f:=28;
 
if(m=1) then k:=31-d;
if(m=2) then k:=f-d;
if(m=3) then k:=31-d;
if(m=4) then k:=30-d;
if(m=5) then k:=31-d;
if(m=6) then k:=30-d;
if(m=7) then k:=31-d;
if(m=8) then k:=31-d;
if(m=9) then k:=30-d;
if(m=10) then k:=31-d;
if(m=11) then k:=30-d;
if(m=12) then k:=31-d;
writeln(k);readln;
end.
Не стОит проверять всё, это только затруднит работу...
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 20:03 [#2]:

P.S. программа для сервера
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 20:12 [#3]:

Для сервера?
Что Вы имеете ввиду?
CGI?
Какой-то вариант обёртки вокруг готовой программы?
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 20:18 [#4]:

Вариант обертки для программы.
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 20:21 [#5]:

Опишите пожалуйста, что нужно получит с входа, и что должно быть на выходе(включая переносы строк).
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 20:31 [#6]:

Входные данные
Натуральные числа Y, M, D(Год, Месяц, День, в который Добрыня Никитич встретил ведьму).
Выходные данные
Выведите одно целое число – минимальное количество дней, которое должен ждать Добрыня Никитич.
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 20:33 [#7]:

числа на входе вида
"2009 03 06"
или
"2009
03
06"?
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 20:55 [#8]:

первый вариант вариант
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 21:06 [#9]:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  y,m,d,k,f:integer;
begin
  read(y,m,d);
 
if((y mod 4)=0) then f:=29 else f:=28;
 
if(m=1) then k:=31-d;
if(m=2) then k:=f-d;
if(m=3) then k:=31-d;
if(m=4) then k:=30-d;
if(m=5) then k:=31-d;
if(m=6) then k:=30-d;
if(m=7) then k:=31-d;
if(m=8) then k:=31-d;
if(m=9) then k:=30-d;
if(m=10) then k:=31-d;
if(m=11) then k:=30-d;
if(m=12) then k:=31-d;
if((m<1)or(m>12)) then k:=-1000;
writeln(k);
end.
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 21:11 [#10]:

Спасибо!
prog-mer

prog-mer (статус: Посетитель), 30 ноября 2009, 21:15 [#11]:

А что значит этот символ & амперсанд?
Death_Master

Death_Master (статус: Посетитель), 30 ноября 2009, 22:18 [#12]:

это ошибка сервера...
было <(меньше)1
и
>(больше)12
Обычно захожу по ночам... (60-70%)
Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)...
P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!

31 января 2011, 19:36: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 12:00
Выполнено за 0.03 сек.