Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Принадлежит ли число интервалу

Автор: Lapochka 18.10.2007 22:05

Определить, пригнадлежит ли число интервалу [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.
Помогите привести её в божеский вид wub.gif

Автор: Sozialist 18.10.2007 22:22

Массив не нужен. Переменной типа 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.

Автор: Гость 18.10.2007 22:23


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

Автор: Tan 18.10.2007 22:52

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

If (n >= LowLimit) and (n <= HighLimit) then writeln ('Yes') else writeln ('No');
, где LowLimit - нижний рубеж интервала, а HighLimit - верхний, n - введёное число.

Автор: Lapochka 18.10.2007 23:39

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

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

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

Автор: Tan 18.10.2007 23:47

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

Автор: volvo 18.10.2007 23:49

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

Автор: Tan 18.10.2007 23:57

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

Автор: Sozialist 19.10.2007 16:25

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