Можно ли сократить?

@qwe · Регистрация: 30.10.2009

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

И если несложно проверте правильно ли работает а то у меня сомнения вот задание

Множество 1 заполнено цифрами в интервале от 1 до 10, множество 2 – в интервале от 11-21, а множество 3 заполнено произведением этих двух множеств.
Определить какому множеству принадлежит введенный символ с клавиатуры.
Сравнить первое множество с третьим применив операции: =, <>, < и >. Результат получить в виде типа Boolean (False, True)

Pascal

Program L29;
Uses Crt;
Var a,b,c: Set of 1..21;
    n,i: Integer;
Begin
    Clrscr;
    a:=[1,2,3,4,5,6,7,8,9,10];
    b:=[11,12,13,14,15,16,17,18,19,20,21];
    c:=a*b;
    Write('A= ');
    For i:=1 To 21 Do
     If i in a Then Write(' ',i);
    Writeln;
    Write('B= ');
    For i:=1 To 21 Do
     If i in b Then Write(' ',i);
    Writeln;
    Write('C= ');
    For i:=1 To 21 Do
     If i in c Then Write(' ',i);
    Writeln;
    Write('BBoD EJIeMeHTa - ');
    Readln(n);
    If n in a Then
     Writeln('EJIEMEHT B MHo}I{ECTBE A')
              Else
     If n in b Then
      Writeln('EJIEMEHT B MHo}I{ECTBE B')
               Else
      If n in c Then
       Writeln('EJIEMEHT B MHo}I{ECTBE C')
                Else
        Writeln('EJIEMEHT B MHo}I{ECTBAX A,B,C *Ґв');
    If a=c Then
     Writeln('a=c tru')
           Else
     Writeln('a=c False');
    If a<>c Then
     Writeln('a<>c tru')
           Else
     Writeln('a<>c False');
    If a>=c Then
     Writeln('a>=c tru')
           Else
     Writeln('a>=c False');
    If a<=c Then
        Writeln('a<=c tru')
           Else
     Writeln('a<=c False');
    Readkey;
End.

@Puporev · 11.04.2010, 15:28

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

Определить какому множеству принадлежит введенный символ с клавиатуры.

Например я введу символ *, и что? А число 11 вообще не является символом и что?

@qwe · 11.04.2010, 15:56 **[ТС]**

Извиняюсь там ошибочка была небольшая

Pascal

Program L29;
Uses Crt;
Var a,b,c: Set of 1..21;
    n,i: Integer;
Begin
    Clrscr;
    a:=[1,2,3,4,5,6,7,8,9,10];
    b:=[11,12,13,14,15,16,17,18,19,20,21];
    c:=a*b;
    Write('A= ');
    For i:=1 To 21 Do
     If i in a Then Write(' ',i);
    Writeln;
    Write('B= ');
    For i:=1 To 21 Do
     If i in b Then Write(' ',i);
    Writeln;
    Write('C= ');
    For i:=1 To 21 Do
     If i in c Then Write(' ',i);
    Writeln;
    Write('BBoD EJIeMeHTa - ');
    Readln(n);
    If n in a Then
     Writeln('EJIEMEHT B MHo}I{ECTBE A')
              Else
     If n in b Then
      Writeln('EJIEMEHT B MHo}I{ECTBE B')
               Else
      If n in c Then
       Writeln('EJIEMEHT B MHo}I{ECTBE C')
                Else
        Writeln('EJIEMEHT B MHo}I{ECTBAX A,B,C HET');
    If a=c Then
     Writeln('a=c tru')
           Else
     Writeln('a=c False');
    If a<>c Then
     Writeln('a<>c tru')
           Else
     Writeln('a<>c False');
    If a>=c Then
     Writeln('a>=c tru')
           Else
     Writeln('a>=c False');
    If a<=c Then
        Writeln('a<=c tru')
           Else
     Writeln('a<=c False');
    Readkey;
End.

Новые блоги и статьи
Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .	Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .	Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	11.04.2010, 15:28	2
	Сообщение от qwe Определить какому множеству принадлежит введенный символ с клавиатуры. Например я введу символ *, и что? А число 11 вообще не является символом и что? 1

	11.04.2010, 15:56

Опции темы