Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
qwe
0 / 0 / 1
Регистрация: 30.10.2009
Сообщений: 19
1

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

11.04.2010, 15:25. Просмотров 376. Ответов 2
Метки нет (Все метки)

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

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2010, 15:25
Ответы с готовыми решениями:

Сократить дробь
Тема: Процедуры пользователя Сократить дробь вида a/b (a, b – вводимые...

Сократить обыкновенные дроби и найти наименьшую из них.
Ув. Люди помогите ... Извеняюсь за название темы, но сейчас у меня зачет ......

Pascal!? Как такую запись сократить оператор case, нужна формула?
case nx of 0: X:=310; 0.1: X:=312; 0.2: X:=314; 0.3: X:=316; 0.4: X:=318;...

Можно ли сократить код?
Программа выводит разноцветный график функции y=1-e^-x. Можно ли объединить...

Вывести номер автозаправки, которую можно сократить
Фирма «АйОйЛ» построила на скоростном шоссе Москва-Тверь N автозаправок. Каждая...

2
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,608
11.04.2010, 15:28 2
Цитата Сообщение от qwe Посмотреть сообщение
Определить какому множеству принадлежит введенный символ с клавиатуры.
Например я введу символ *, и что? А число 11 вообще не является символом и что?
1
qwe
0 / 0 / 1
Регистрация: 30.10.2009
Сообщений: 19
11.04.2010, 15:56  [ТС] 3
Извиняюсь там ошибочка была небольшая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.04.2010, 15:56

Сократить дробь
Сократить дробь вида a/b (a, b – вводимые натуральные числа), создав функцию...

Сократить код программы
Пожалуйста помогите сократить код программы: const n=5; var ...

Сократить код программы
Сократите код данной программы: const n=5; var i,m,j,x:integer; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru