Страница 1 из 1
Принадлежат ли числа промежутку
Добавлено: 12 ноя 2009, 11:23
Irenna
Даны три действительных числа.Выбрать те из них,каторые принадлежит отрезку [1;3].
Re: Помогите пожалуста решить зада4у b Turbo.exe
Добавлено: 12 ноя 2009, 12:51
DexterUa
Для того чтобы принадлежал достаточно чтобы обе точки были внутри отрезка.
Код: Выделить всё
uses Crt;
var
a,b:real;
begin
write('Enter a=');
readln(a);
write('Enter b=');
readln(b);
if (a>-1)and(a<1)and(b>-1)and(b<1) then
begin
write ('Prenadlezat');
end
else
write ('Ne prenadlejat');
ReadKey;
end.
Re: Помогите пожалуста решить зада4у b Turbo.exe
Добавлено: 12 ноя 2009, 13:47
Хыиуду
Много лишнего
Код: Выделить всё
var a, b: integer;
begin
writeln('Vvedite a,b'); readln(a,b);
if (a<1) and (a>-1) then write ('a prinadlejit, ') else write('a ne prinadlejit, ');
if (b<1) and (b>-1) then write ('b prinadlejit.') else write('b ne prinadlejit.');
end.
В смысле, ввод можно сделать одним оператором, а begin и end не нужны, если между ними только один оператор
.
Добавлено: 12 ноя 2009, 16:03
BBB
Хыиуду писал(а):В смысле, ввод можно сделать одним оператором, а begin и end не нужны, если между ними только один оператор
Не нужны, но их наличие a) не ошибка b) даже лучше в плане культуры написания текста программы (для возможной дальнейшей модификации текста).
Re: Принадлежат ли числа промежутку
Добавлено: 12 ноя 2009, 17:22
Хыиуду
В плане культуры написания текста блок операторов лучше сносить вправо табуляцией, как в Питоне (увы, форум это не позволяет)
'Помогите пожалуста решить зада4у b Turbo.exe'
Добавлено: 14 ноя 2009, 19:29
Irenna
Зада4а_№1
Даны три действительных числа.Выбрать те из них,каторые принадлежит отрезку [1;3].
Зада4а_№2
Даны два действительных числа.Меньшее из них заменить полусумой этих чисел,а большее их произведением.
Зада4а_№3
Если данное число x меньше нуля,то z присвоить значение большего из из двух чисел x и y,в противном случае присвоить z значение полусумы этих чисел.