Простая программа на Pascal, помогите исправить ошибки

Без имени, 272 просмотра

Program Time;
var T: real;
begin
writeln('Сколько сейчас время?');
write(' Cейчас ');
readln(T);
if(T>=6)and(T<=10)
then begin
writeln('Доброе утро!')
end;
if(T>=21)and(T<=24)
then begin
writeln('Доброе ночи!')
end
else begin
writeln('Доброе день!');
end;
readln;
end.
Программа работает, но при "утренних" значениях Т сразу два результата" Доброе утро!" и "Добрый день"

Ответы:

Без имени

Зачем для единственного действия begin писать? он для группы операций. Как вариант вот так может быть
Program Time;
var T: real;
begin
writeln('Сколько сейчас время?');
write(' Cейчас ');
readln(T);
if(T>=6)and(T<=10) then writeln('Доброе утро!')
else
if(T>=21)and(T<=24) then writeln('Доброй ночи!')
else
writeln('Добрый день!');
readln;
end.

думаю как-то так...

if(T>=21)and(T<=24)
then begin
writeln('Доброе ночи!')
end
else begin
if(T>=6)and(T<=10)
then begin
writeln('Доброе утро!')
else begin
writeln('Доброе день!');
end;
end;

JILeXanDR

Рабочий вариант, только правильные значения подставь. Так как в Pascal нету опрератора else if, применил такую конструкцию. Сам только недавно начал изучать паскаль, но вроде все верно

Без имени

Как нету оператора else if? Плохо изучаешь, раз так думаешь. http://pas1.ru/ifelseif

Алексей Балакир

Знаю что не идеальный вариант, но почему бы просто не поставить третий if вместо else? А вообще задача школы 10 класса информатики...

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.