VPF::[Алгоритм] Сравнение чисел - Форум программистов

Vicipi

Дата 18.2.2008, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 13.2.2008

Репутация: нет
Всего: нет

Необходимо написать программу, выполняющую сравнение двух целых чисел, не превышающих по модулю 101000.
Входные данные: В первой строке ввода содержится первое число. Во второй строке ввода содержится одна из шести допустимых операций сравнения (>,<,=,<>,<=,>=). В третьей строке содержится второе число.
Выходные данные: Вывести одну строку – результат сравнения (TRUE или FALSE). TRUE – если записанное во вводе выражение верно, и FALSE в противном случае.

Пример входных данных №1:
356
>
248
Пример выходных данных №1:
TRUE
Пример входных данных №2:
-35
>=
5
Пример выходных данных №2:
FALSE

Как считать знак сравнения? >= а если введено два знака?Помогите.
Есть еще аналогичная задача, но с арифметическими действиями (+, -, *, /)

SoWa

Дата 18.2.2008, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 3
Всего: 74

Задача на кодинг, а не на алгоритм. Условный перебор сразу в коде.
Т.е. код вида:

Код


если знак > то сравним по нему
если знак < то сравним по нему
...

--------------------

Всем добра smile

Hang

Дата 19.2.2008, 01:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Код


var a,b: Integer;
    sim: String[2];
begin
  Readln(a);
  Readln(sim);
  Readln(b);

  if sim='>' then
    if a>b then Write('True') Else Write('False');
  //2
  if sim='<' then
    if a<b then Write('True') Else Write('False');
  //3
  if sim='=' then
    if a=b then Write('True') Else Write('False');
  //4
  if sim='<>' then
    if a<>b then Write('True') Else Write('False');
  //5
  if sim='<=' then
    if a<=b then Write('True') Else Write('False');
  //6
  if sim='>=' then
    if a>=b then Write('True') Else Write('False');
  Readln;
end.

Только здесь проверки числа по модулю (abs(a)) нет

Это сообщение отредактировал(а) Hang - 19.2.2008, 01:47

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »