Принадлежит ли число интервалу Опции

[Lapochka]

Определить, пригнадлежит ли число интервалу [5...50]
Program lapochka;
uses crt;
var a:array[5..50] of integer;
f: integer;
begin
clrscr;
TextColor(Yellow);
write('Vvedite chislo'); readln(f);
f:=a;
writeln('TRUE')
else writeln('FALSE');
readln;
end.
Помогите привести её в божеский вид

[Sozialist]

Массив не нужен. Переменной типа int нельзя присваивать массив.

Program lapochka;
uses crt;

var 
f: integer;

begin
  clrscr;
  TextColor(Yellow);
  write('Vvedite chislo'); 
  readln(f); 
  if ( in [5..50]) then writeln('TRUE')
  else writeln('FALSE');
  readln; 
end. 

Сообщение отредактировано: Sozialist - 18.10.2007 22:24

[Гость]

...
write('Vvedite chislo'); readln(f);
writeln(f in [5 .. 50]);
...

[Tan]

Если смущает конструкция In можешь просто использовать оператор If :

If (n >= LowLimit) and (n <= HighLimit) then writeln ('Yes') else writeln ('No');

, где LowLimit - нижний рубеж интервала, а HighLimit - верхний, n - введёное число.

[Lapochka]

Sozialist ваша конструция с

if ( in [5..50]) then writeln('TRUE')

не запустилась, но всё остальное правильно
Tan с вашей запустилась
Всем бафое пасибо

[Tan]

Программу Cоциалиста исправил гость, обрати внимание (f in [5..50]) then writeln('TRUE')

Сообщение отредактировано: Tan - 18.10.2007 23:56

[volvo]

Tan, я не исправлял ничью программу: обрати внимание, у меня вообще нет If-а... Лишний он тут...

[Tan]

Ой if осталось с предыдущего сообщения, я исправил пост.

[Sozialist]

Lapochka
Ага, опечатался) все это очевидно

Сообщение отредактировано: Sozialist - 19.10.2007 16:27