Р
Привет народ
Size: a a a
2020 December 26
Р
Помогите как компилировать в Lazarus
Р
program project1;
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
Р
program project1;
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
Это верно
AS
Помогите как компилировать в Lazarus
Проблема в чём?
Р
program project1;
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
Это не работает
AS
program project1;
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
var
x,z:real ;
begin
write('x= '); readln(x);
if (Abs(x)>=0) and (abs(x)<1) then
z:=1-Abs(x)
else
if (Abs(x)>1) and (abs(x)<2) then
z:=1-Abs(x)
else
writeln('Не определено!!!');
writeln('Результат: ', z);
end.
Кто вам про
real рассказывает? 🤦♂AS
Это не работает
Что такое "не работает"?
AS
Не, голосовых сообщений не надо. Их "никто не слушает"
AS
Это задание. Так. А выше - твой код.
Что не работает?
Что не работает?
Р
Аха мой преподаватель сказал это неверно. Где здесь ошибка?
Р
Это задание. Так. А выше - твой код.
Что не работает?
Что не работает?
Как компилировать
AS
Аха мой преподаватель сказал это неверно. Где здесь ошибка?
У тебя в задании в первом предложении что написано? Что сделать надо?
AM
Аха мой преподаватель сказал это неверно. Где здесь ошибка?
ты не умеешь читать задания
AM
возьми x = 0.25 и посчитай
DB
читай задание, именно первое предложение, до понимания что требуется