Задача на Паскаль

[WitaliG]

Здравствуйте! Решаю задачи по Programming Taskbook М. Э. Абрамяна. Предыдущие две темы мне дались без особых затруднений, а вот первую задачу новой темы никак не могу сообразить как написать в Паскале код. Спросить мне некого, вся надежда на вас братцы!
С уважением Виталий.
Boolean1°. Дано целое число A. Проверить истинность высказывания: «Чис¬ло A является положительным».

[Don Karleone]

if A > 0 then // высказывание истинно

[Базиля]

Чтобы вам было понятней, решил изложить код к этому заданию таким образом:

program bool;
var f:boolean;
a:integer;
begin
writeln('введите a');
readln(a);
if a>=0 then f:=true
else f:=false;
If f then writeln('оно положительное')
else writeln('оно отрицательное');
end.

[Sam Gold]

Если я правильно понял, то если А положительно, то некоторая логическая переменная равна TRUE, то можно так:

program bool;
var A:integer;
IsAPos:boolean;
begin

readln(A);

if  ( A<=0) then IsAPos:=false    else IsAPos:=true   ;

if  IsAPos = true  then writeln('positive') else writeln('not positive');
end.

[WitaliG]

Cпасибо братцы, что откликнулись.
Я только учусь, но мне кажется, что задачу надо решать каким-то иным способом без применения условного оператора. Этому свидетельствует тот факт, что тема(40 задач) «Условный оператор» следующая за темой «Логические выражения».
Хотя я могу и ошибаться…
С уважением Виталий.

[Базиля]

WitaliG
Здесь не в этом суть) Без условного оператора ты не обойдешься. Просто здесь суть в том, чтобы ты понял как используются переменные логического типа в задачах.

[sergey.d]

Господа! Усли уж вы взялись писать код, можно делать это по человечески?
Вот это

if  ( A<=0) then IsAPos:=false    else IsAPos:=true   ;

не лучше ли сделать так:

IsAPos := A > 0;

???
А это

if  IsAPos = true  then writeln('positive') else writeln('not positive');

так:

if  IsAPos  then writeln('positive') else writeln('not positive');

???

И почему кое-кто считает, что 0 -- положительное число?

[Базиля]

sergey.d

И почему все кодописатели считают, что 0 -- положительное число?

а что оно по вашему отрицательное? Если человек введет 0 то программа выведет что оно отрицательное, судя по вашей логики.

Господа! Усли уж вы взялись писать код, можно делать это по человечески?

Конечно хотелось бы высказать свое мнение по этому высказыванию, но воздержусь

[WitaliG]

Братцы, простите меня за настойчивость, но я только что написал код:
var
a :integer;
rez :boolean;
begin
write(a);
readln(a);
rez:=(a>0) or (a<0);
writeln('Результат : ',rez);
readln
end.
Тут если ввожу положительное число, программа пишет True, но если ввожу -5, то по ее мнению все-равно True/
Вопрос: насколько корректно я написал код, и почему в случае с отрицательным числом True/

[Базиля]

замени на:

a :integer;
rez :boolean;
begin
write(a);
readln(a);
rez:=(a>0); 
writeln('Результат : ',rez);
readln
end.

просто у тебя в обоих случаях условие будет истинно Поэтому и выводит что и при -5 true что и при 5 true