Как можно сделать без условных операторов?

@dencil · Регистрация: 23.09.2013

Author24 — интернет-сервис помощи студентам

Проверить утверждения для введенной переменной Х. Программа должна
вывести утверждения:
1 Переменная Х целое число
2 Переменная Х целое двузначное число
3 Переменная Х является буквой латинского алфавита
4 Переменная Х является полным квадратом
Пользователь может выбрать любое утверждение и получить ответ об истинности
утверждения (true или false).
Заметим:
при составлении процедур для оценки утверждений составить выражения типа
Boolean. Использование условных операторов при решении задачи не
допускается.
Вот тут подсказка:
Например, var f, r: Boolean; … f:= trunc(x)=x; … r:=(x>9) and (x<100); …
Для определения буквы латинского алфавита вспомнить операцию in

Добавлено через 4 минуты
не обязательно делать все 4, хотя бы 1. А дальше я сам сделаю.

@cotseec · 03.02.2014, 21:43

Не по теме:

в очередной раз очередное задание и все, а для чего это тут, мил человек? чего хочется? в сообщении как-то неразборчиво написано

@dencil · 03.02.2014, 21:59 **[ТС]**

Я, конечно, не смог вникнуть в смысл вашего высказывания, но по теме должна создаваться форма на которой будет edit, и допустим radiobutton с названием "переменная-целое число", в edit мы записываем любую переменную(в данном случае число) и как только мы жмем на radiobutton должно вывести сообщение, если число действительно целое, то True, если нет, то False. Но вся суть в том, что в коде не должно присутствовать условных операторов.
P.S. Я бы сам сделал, но не понял как без помощи условия сделать.

@FIL · 03.02.2014, 22:14

Сообщение от dencil

Я бы сам сделал, но не понял как без помощи условия сделать.

Используй логические переменные.
Например:

Delphi

1	Result := Frac(X) = 0; // проверка на целое число

@dencil · 03.02.2014, 22:18 **[ТС]**

Сейчас попробуем

@TAZAQ · 03.02.2014, 22:21

Если не условия значит Case.
К примеру, судя по пункту №2, первый пункт задается как целое однозначное:

Delphi

case (x) of
'0'..'9':showmessage('Целое число');
'10'..'99':showmessage('Целое 2значное число');
end;

Главное помнить, что case работает со значениями от 0 до 255.

На счет букв латинского алфавита, у каждой буквы есть свой код, поищите информацию на этот счет.

С полным квадратом, подсказать ничего не могу.

@FIL · 03.02.2014, 22:39

Сообщение от TAZAQ

Если не условия значит Case.

Case - условный оператор.

Сообщение от TAZAQ

Главное помнить, что case работает со значениями от 0 до 255.

Бред.

@dencil · 03.02.2014, 22:40 **[ТС]**

То есть вы это имели в виду?

Delphi

Result:=Frac(x)=0=True;
Result:=Frac(x)<>0=False;
case Result of
True:showmessage('True');
False:showmessage('False');
end;

03.02.2014, 22:44

Delphi

  Result := Frac(x) = 0;
  case Result of
    True : showmessage('True');
  else
    showmessage('False');
  end;

@dencil · 03.02.2014, 22:49 **[ТС]**

А разве оператор "case" не оператор выбора?

@FIL · 03.02.2014, 22:54

Сообщение от dencil

А разве оператор "case" не оператор выбора?

А разве выбор не подразумевает некое условие?
Да и не нужен он тут.

@dencil · 03.02.2014, 23:12 **[ТС]**

Ну хорошо, предложите свое решение.

@FIL · 03.02.2014, 23:17

Сообщение от dencil

Ну хорошо, предложите свое решение.

Предлагаю:

@Cyborg Drone · 04.02.2014, 13:24

Как-то так, если без подробностей...

Delphi

//...
var n: real;
    c: string;
    b: boolean;
//...
b := frac(n) = 0; //1 Переменная Х целое число
b := (frac(n) = 0) and (round(n) >= 10) and (round(n) <= 99); //2 Переменная Х целое двузначное число
b := (length(c) = 1) and (c[1] in ['a'..'z', 'A'..'Z']); //3 Переменная Х является буквой латинского алфавита
b := frac(sqrt(n)) = 0; //4 Переменная Х является полным квадратом
//...

Добавлено через 20 минут
И ещё. Если вывод результата тоже без условных операторов, то можно так:

Delphi

//...
const noyes: array [boolean] of string = ('Нет', 'Да');
//...
label1.Caption := noyes[b];
//...

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	03.02.2014, 22:54	11
	Сообщение от dencil А разве оператор "case" не оператор выбора? А разве выбор не подразумевает некое условие? Да и не нужен он тут. 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
		1
	Как можно сделать без условных операторов? 03.02.2014, 21:39. Показов 2302. Ответов 13 Метки нет (Все метки) Проверить утверждения для введенной переменной Х. Программа должна вывести утверждения: 1 Переменная Х целое число 2 Переменная Х целое двузначное число 3 Переменная Х является буквой латинского алфавита 4 Переменная Х является полным квадратом Пользователь может выбрать любое утверждение и получить ответ об истинности утверждения (true или false). Заметим: при составлении процедур для оценки утверждений составить выражения типа Boolean. Использование условных операторов при решении задачи не допускается. Вот тут подсказка: Например, var f, r: Boolean; … f:= trunc(x)=x; … r:=(x>9) and (x<100); … Для определения буквы латинского алфавита вспомнить операцию in Добавлено через 4 минуты не обязательно делать все 4, хотя бы 1. А дальше я сам сделаю. 0

@cotseec
	03.02.2014, 21:43 #2
	Не по теме: в очередной раз очередное задание и все, а для чего это тут, мил человек? чего хочется? в сообщении как-то неразборчиво написано 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
	03.02.2014, 21:59 [ТС]	3
	Я, конечно, не смог вникнуть в смысл вашего высказывания, но по теме должна создаваться форма на которой будет edit, и допустим radiobutton с названием "переменная-целое число", в edit мы записываем любую переменную(в данном случае число) и как только мы жмем на radiobutton должно вывести сообщение, если число действительно целое, то True, если нет, то False. Но вся суть в том, что в коде не должно присутствовать условных операторов. P.S. Я бы сам сделал, но не понял как без помощи условия сделать. 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
	03.02.2014, 22:18 [ТС]	5
	Сейчас попробуем 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	03.02.2014, 22:39	7
	Сообщение от TAZAQ Если не условия значит Case. Case - условный оператор. Сообщение от TAZAQ Главное помнить, что case работает со значениями от 0 до 255. Бред. 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
	03.02.2014, 22:49 [ТС]	10
	А разве оператор "case" не оператор выбора? 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
	03.02.2014, 23:12 [ТС]	12
	Ну хорошо, предложите свое решение. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	03.02.2014, 23:17	13
	Сообщение от dencil Ну хорошо, предложите свое решение. Предлагаю: Миниатюры 1

	04.02.2014, 13:24