Из константы переделать в ввод с клавиатуры

@vadiprog · Регистрация: 06.11.2011

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

Delphi
1
2
3
4
const
  _group: group = ([volodya, misha],[vasya, lida, ira, misha],
                         [misha, vasya, marina],[misha, vasya, ira],
                         [volodya],[vasya, ira]);

Сделайте так чтобы вместо этой константы, данные считывались с клавиатуры. Таких скобок - [] - должно быть 6 штук.

Комментарий модератора

Используйте специальные теги форматирования!

@Dostik · 13.12.2011, 01:18

Какие данные ? что должна выполнять программа ? если тебе нужно вводить имена, то каким путем ? графический дизайн или командная строка ?

если графически то создай 6 полей ввода edit
если командная строка то Write ('введите имя')

тоесть опишите полностью своё задание !

@vadiprog · 13.12.2011, 01:45 **[ТС]**

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

Какие данные ? что должна выполнять программа ? если тебе нужно вводить имена, то каким путем ? графический дизайн или командная строка ?

если графически то создай 6 полей ввода edit
если командная строка то Write ('введите имя')

тоесть опишите полностью своё задание !

Delphi
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
type
    name = (vasya, volodya, ira, lida, marina, misha);
    guests = set of name;
    group = array[name] of guests;
 
const
    _group: group = ([volodya, misha],[vasya, lida, ira, misha],
       [misha, vasya, marina],[misha, vasya, ira],[volodya],[vasya, ira]);
function vezde(gr: group): boolean;
var
    i, j: name;
    res: boolean;
    was: set of name;
 begin
    res := false;
    for i := low(name) to high(name) do begin
        was := [];
        for j := low(name) to high(name) do
            if (i in gr[j]) then was := was + [j];
        res := res or ((was + [i]) = [low(name) .. high(name)])
    end;
    vezde := res
 end;
begin
    writeln(vezde(_group))
end.

Вот весь код.... надо чтобы вместо константы данные вводились с клавиатуры.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Dostik 38 / 38 / 4 Регистрация: 31.05.2011 Сообщений: 580
	13.12.2011, 01:18
	Какие данные ? что должна выполнять программа ? если тебе нужно вводить имена, то каким путем ? графический дизайн или командная строка ? если графически то создай 6 полей ввода edit если командная строка то Write ('введите имя') тоесть опишите полностью своё задание ! 0