Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.134.78.106] |
|
Страницы: (3) 1 2 [3] все ( Перейти к последнему сообщению ) |
Сообщ.
#31
,
|
|
|
Цитата Булат Шакиров @ Счас поковыряюсь Добавлено 27 минут назад program gr; uses crt; type s=(basik, paskal, prolog, cu, logo); names=array [s] of string[20]; x=set of s; yaz=array[1..5] of x; const NamesStr : Names =('basik', 'paskal', 'prolog', 'cu', 'logo'); var i:s; m:yaz; g,t,t1,t2,t3,t4:x; k,j:integer; begin clrscr; writeln('1 basic'); writeln('2 paskal'); writeln('3 prolog'); writeln('4 cu'); writeln('5 logo'); writeln('любая клавиша следущий вуз'); for j:=1 to 3 do begin t:=[]; write('введите номера для ',j,'-го вуза '); repeat read(k); case k of 1:include(t,basik); 2:include(t,paskal); 3:include(t,prolog); 4:include(t,cu); 5:include(t,logo) else break; end; until false; m[j]:=t; опять выводит неверный результат, либо его вообще не выводит.. не понимаю почему( |
Сообщ.
#32
,
|
|
|
Напишите, какие данные вы вводили.
|
Сообщ.
#33
,
|
|
|
Цитата Булат Шакиров @ Напишите, какие данные вы вводили. ну просто ввожу номера языков для каждого вуза, к примеру: 123 234 514 пробовал как слитно писать, так и через пробел |
Сообщ.
#34
,
|
|
|
Число ентер, число ентер, выход другой символ кроме 1..5
Вот так у меня отработало Прикреплённый файл____________________.png (61,22 Кбайт, скачиваний: 383) |
Сообщ.
#35
,
|
|
|
Цитата Булат Шакиров @ Число ентер, число ентер, выход другой символ кроме 1..5 Вот так у меня отработало ну вроде так работает) спасибо большое) |