Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2012, 17:32   #1
fisher94
 
Регистрация: 15.01.2012
Сообщений: 8
По умолчанию Множества(Паскаль)

Построить и распечатать множества из диапазона чисел от 1 до 80:
1)F - множество чисел, не содержащих цифры от 1 до 5.
2)E - множество чисел, кратных 10.
fisher94 вне форума Ответить с цитированием
Старый 28.02.2012, 18:58   #2
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

коль такой ленивый на наработки... то вводи все значения ручками...)
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 05.03.2012, 21:00   #3
fisher94
 
Регистрация: 15.01.2012
Сообщений: 8
По умолчанию

Я просто успешно эту тему проболел. Поэтому прошу помощи.
fisher94 вне форума Ответить с цитированием
Старый 05.03.2012, 21:11   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Вот вам для множества F разбирайтесь
Код:
var
    f: set of byte;
    i, j: byte;
begin
    for i := 0 to 8 do
        for j := 0 to 9 do
            if (not(i in [1..5]) and not(j in [1..5])) and ((i+j) <> 0) then
            f := f + [10*i + j];
    for i := 1 to 80 do
        if i in f then Write (i:3);
    Readln;
end.
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 05.03.2012 в 21:16.
Hacker19_90 вне форума Ответить с цитированием
Старый 05.03.2012, 21:14   #5
Лубышев
Участник клуба
 
Аватар для Лубышев
 
Регистрация: 23.07.2007
Сообщений: 1,054
По умолчанию

чоб создать массив
Код:
var F:array[0..80] of integer; {например}
что еще не проходил? циклы?
Код:
for i:=0 to 80 do
begin
...
end;
датчик случайных чисел?
Код:
random(твое_число); {например random(10)}
присвоение переменной значения?
Код:
F[порядковый_номер]:=твоя_функция(аргумент);
иль не знаешь как сделать числа кратные 10?

так это например так
Код:
random(999)*10;
иль чтобы любое выпавшее число было больше пяти?
Код:
random(40)+5;
Писано по д'Эльфийски
Лубышев вне форума Ответить с цитированием
Старый 05.03.2012, 21:15   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

2 Лубышев
Цитата:
чоб создать массив
Каким боком тут массивы?
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 05.03.2012, 21:20   #7
Лубышев
Участник клуба
 
Аватар для Лубышев
 
Регистрация: 23.07.2007
Сообщений: 1,054
По умолчанию

очитался) но какая разница)
Писано по д'Эльфийски
Лубышев вне форума Ответить с цитированием
Старый 10.03.2012, 13:58   #8
fisher94
 
Регистрация: 15.01.2012
Сообщений: 8
По умолчанию

Спасибо всем огромное)
fisher94 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Множества. Паскаль. Heming Фриланс 1 24.12.2011 09:22
Множества, Паскаль bwitcher Помощь студентам 1 15.03.2011 16:34
паскаль(множества) masterlomaster Помощь студентам 4 24.02.2011 00:28
Множества(Паскаль) Lord123 Помощь студентам 6 03.05.2010 16:43
Множества В Паскаль Стасссс Помощь студентам 1 03.04.2009 17:43