
Форумы > Технологии > Технические вопросы (железо)

Кто может составить программу на Turbo Pascal

Список Тем | Поиск | Правила | Статистика |

Кто может составить программу на Turbo Pascal	^#12339	^наверх
Автор: Дмитрий [гость] Дата: 7 апреля 2003 12:21 Нужно сотвтить программу на Turbo Pascal. Тестовая программа по материнским платам. 20 вопросов. Из 20 случайных вопросов выбрать 10. Если 100% верно оценка 5, если 75% верно оценка 4, если 50% верно оценка 3, если меньше 50% то оценка 2. Если кто сможет составит свяжитесь со мной Dmitry_Korolev@net-burg.com, ICQ 303489727, пейджер 063 аб 402737. Зарание благодарен
0/0 \| \| Поделиться:

Re: Кто может составить программу на Turbo Pascal	^#12341	^наверх
Автор: 1 [гость] Дата: 7 апреля 2003 13:04 именно на паскале надо?
0/0 \| \| Поделиться:

В УПИ всё ещё лабают на саксофоне Кана???	^#12342	^наверх
Автор: Задний ум [гость] Дата: 7 апреля 2003 13:13 Именно по матьбордам?
0/0 \| \| Поделиться:

Re: В УПИ всё ещё лабают на саксофоне Кана???	^#12343	^наверх
Автор: Стармос [гость] Дата: 7 апреля 2003 13:56 данных маловато ... либо есть готовые варианты ответа как в "стань милионером": тогда один вариант если как в "кресле": другой вариант совсем ... просто супер ИИ должен быть у программы. думаю все же что первый тогда начало можно взять такое: pravilniy_otvetov_kolvo:=0; a[0]:='вопрос 1'; // вопросы a[1]:='вопрос 1'; .. .. b[0,0]:='гладиолус'; // варианты ответов на первый вопрос b[0,1]:='потому-что гладиолус'; ... c[0]=2; // номер правильного ответа на нулевой вопрос i:=10; while i<0 do begin repeat r:=random(20); until a[r]<>''; g:=printwopros(r); if g=c[r] then inc(pravilniy_otvetov_kolvo); end; case pravilniy_otvetov_kolvo of 10: ocenka:=5; 7,5 .. 9: ocenka:=4; ... end; print_ocenka(ocenka);
0/0 \| \| Поделиться:

Re: В УПИ всё ещё лабают на саксофоне Кана???	^#12344	^наверх
Автор: Стармос [гость] Дата: 7 апреля 2003 13:57 только осталось определиться что значит 75% от 10 вопросов :-)
0/0 \| \| Поделиться:

Re: В УПИ всё ещё лабают на саксофоне Кана???	^#12345	^наверх
Автор: Стармос [гость] Дата: 7 апреля 2003 13:59 забыл в цикле while nado вставить dec(i);
0/0 \| \| Поделиться:

Re: В УПИ всё ещё лабают на саксофоне Кана???	^#12347	^наверх
Автор: PSH [гость] Дата: 7 апреля 2003 14:20 Забыл, что наборы case оперируют только со счетными типами... "7,5 .. 9: ocenka:=4;"(С) - учите матчасть :-)
0/0 \| \| Поделиться:

Re: В УПИ всё ещё лабают на саксофоне Кана???	^#12348	^наверх
Автор: Стармос [гость] Дата: 7 апреля 2003 14:33 да это шутка насчет 75% :-)
0/0 \| \| Поделиться:

Матчасть послала на три буквы за подмогой	^#12349	^наверх
Автор: Задний ум [гость] Дата: 7 апреля 2003 14:39 Не со счётными, а с перечисляемыми (индексируемыми), которые могут быть детерминированно описаны в блоке типов до начала тела программы, т. е. со всеми типами, кроме списков.
0/0 \| \| Поделиться:

Re: Матчасть послала на три буквы за подмогой	^#12353	^наверх
Автор: PSH [гость] Дата: 7 апреля 2003 16:01 Воистину, ordinal переводится как перечисляемый :-)
0/0 \| \| Поделиться:

Список Тем | Поиск | Правила | Статистика |

Внимание! сейчас Вы не авторизованы и не можете подавать сообщения как зарегистрированный пользователь. Чтобы авторизоваться, нажмите на эту ссылку (после авторизации вы вернетесь на эту же страницу)