создание программы обработки без IF. Очень надо!!!!

@Gessi · Регистрация: 13.09.2009

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

Помогите!!!!!!!!!!! хотим разобраться с задачкой

"Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать).
1. введенные символы C1, C2 образуют число кратное 3, но не кратное 9
2. введенные символы А,В,С образуют выражение вида А+С или А-С, где А, С - цифры;"

МЫ знаем что это надо с таблицей ASCII, но КАК???????????
очень надо!!!!!!!!!!!! :'(

@Puporev · 13.09.2009, 12:06

Вот первая, вторую, для закрепления материала, напишите сами.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const cf=['0'..'9'];//цифры
var c1,c2:char;//символы
    n:byte;//число
begin
clrscr;
writeln('Введите 2 символа:');
readln(c1,c2);
if (c1 in cf)and(c2 in cf)then//если это цифры
 begin
  n:=10*(ord(c1)-48)+ord(c2)-48;//считаем число
  write((n mod 3=0)and(n mod 9<>0));//если соотношение выполняется, выведет TRUE
 end
else
  begin
   write('Это не число!');
   readln;
   exit;
  end;
readln
end.

@Nikita2009 · 13.09.2009, 12:08

Попробуй с помощью getopt()....

@Puporev · 13.09.2009, 12:15

Попробуй с помощью getopt()....

Запусти Паскаль и сам попробуй.

@Gessi · 13.09.2009, 14:29 **[ТС]**

Спасибо!!!!!!!!!!!!!!!!!!!!!

:rose :

Добавлено через 14 минут
А как сделать чтобы таблица выводилась(рисовалась) на экране с какими либо значениями

@Puporev · 13.09.2009, 14:31

Какая таблица и какое это имеет отношение к этой теме? Если есть вопрос, создайте новую тему и толково изложите суть задачи.

@Gessi · 13.09.2009, 16:28 **[ТС]**

А вы не могли бы нам написать код выполнения второй задачи

А то у нас не получается)))))))))))))))))))))))))))))) ))))))))))))

@Puporev · 13.09.2009, 16:31

Я не понял, вы там учитесь, или пиво пьете? Вторая еще проще. Напишите свой вариант, я поправлю.

@Gessi · 13.09.2009, 16:35 **[ТС]**

Нет,мы там учимся)))))))))))))))))))))))))))))))Про сто это мы нигогда не делали!!!!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Project1;
 
{$APPTYPE CONSOLE}
 const s=['0'..'9'];
var a,c:char;
    b,n:byte;
begin
 
writeln('vvedite A');
readln(A);
writeln('vvedite B');
readln(B);   
writeln('vvedite C');
readln(C) ;
b:=ord(b);
if (a in s)and(c in s)then
 begin
   writeln((ord(b)=43)or(ord(b)=45));
   if (ord(b)=43)or(ord(b)=45) then writeln((ord(a)-48), (chr(ord(b))),(ord(c)-48));
 end
else   write('Ne pravilno vvedeno chislo!');
 readln ;
end.

СПАСИБО ВАМ БОЛЬШОЕ)))))))))))))))))))))))))))))))

@Puporev · 13.09.2009, 16:42

Да, если такое не написать, что дальше будет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
const cf=['0'..'9'];
      zn=['+','-'];
var a,b,c:char;
begin
clrscr;
writeln('Введите 3 символа:');
readln(a,b,c);
write((a in cf)and(b in zn)and(c in cf));
readln
end.

И не надо цитировать мои предыдущие сообщения, заняться больше нечем, я и так их могу прочитать, если понадобится.

Добавлено через 1 минуту

'Ne pravilno vvedeno chislo!')

Вы задание вообще читали? Вам что надо вывести? true или false, а не текст Вашего гимна.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Gessi 0 / 0 / 0 Регистрация: 13.09.2009 Сообщений: 28

	создание программы обработки без IF. Очень надо!!!! 13.09.2009, 11:55. Показов 2769. Ответов 9 Метки нет (Все метки) Помогите!!!!!!!!!!! хотим разобраться с задачкой "Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать). 1. введенные символы C1, C2 образуют число кратное 3, но не кратное 9 2. введенные символы А,В,С образуют выражение вида А+С или А-С, где А, С - цифры;" МЫ знаем что это надо с таблицей ASCII, но КАК??????????? очень надо!!!!!!!!!!!! :'( 0

@Nikita2009 105 / 104 / 9 Регистрация: 12.09.2009 Сообщений: 452
	13.09.2009, 12:08
	Попробуй с помощью getopt().... 0

@Gessi 0 / 0 / 0 Регистрация: 13.09.2009 Сообщений: 28
	13.09.2009, 14:29 [ТС]
	Спасибо!!!!!!!!!!!!!!!!!!!!!:rose : Добавлено через 14 минут А как сделать чтобы таблица выводилась(рисовалась) на экране с какими либо значениями 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.09.2009, 14:31
	Какая таблица и какое это имеет отношение к этой теме? Если есть вопрос, создайте новую тему и толково изложите суть задачи. 0

@Gessi 0 / 0 / 0 Регистрация: 13.09.2009 Сообщений: 28
	13.09.2009, 16:28 [ТС]
	А вы не могли бы нам написать код выполнения второй задачиА то у нас не получается)))))))))))))))))))))))))))))) )))))))))))) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.09.2009, 16:31
	Я не понял, вы там учитесь, или пиво пьете? Вторая еще проще. Напишите свой вариант, я поправлю. 0