|
Основной форум Сюда все проблемы связанные с программированием. |
07.10.2011, 17:00
|
#1
|
AnyKey`щик
Регистрация: 07.10.2011
Сообщений: 2
Написано 0 полезных сообщений (для 0 пользователей)
|
Подскажите как можно реализовать
Уважаемые опытные и не очень программеры, подскажите как реализовать в Мидлет Паскале программу - тест, состоящую из пятнадцати шагов, по три варианта ответов в каждом и выдающую один из шестнадцати результатов теста согласно таблице признаков.
Сам я только начал программить и немного не врубаюсь как же это сделать, листаю хелпы, смотрю видео уроки, но голова не хочет рожать решение
Помогите!!!
|
(Offline)
|
|
07.10.2011, 17:45
|
#2
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Подскажите как можно реализовать
Делаешь массивы вопросов и ответов.
потом можно вопросы делать либо через формы, либо просто писать их на экран (что проще но хуже)
for i:=1 to 15 do
begin
задаём вопрос[i]
читаем ответ
либо сохраняем номер ответа (в массив [1..15] of integer)
либо сразу как-то его обрабатываем.
end;
выводим результат
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
07.10.2011, 18:18
|
#3
|
AnyKey`щик
Регистрация: 07.10.2011
Сообщений: 2
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Подскажите как можно реализовать
Спасибо за оперативный ответ!
В общем-то основная сложность возникает в обработке ответов. Каждый из 16 результатов имеет в результате опроса по 15 признаков (1 или 0 на каждый признак, третий ответ подразумевает неопределенность признака). В соответствии с этим необходимо реализовать вывод нескольких результатов со схожими известными признаками...
Голову сломал...
Последний раз редактировалось dictor, 07.10.2011 в 22:06.
Причина: Добавление примера
|
(Offline)
|
|
07.10.2011, 22:26
|
#4
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Подскажите как можно реализовать
Если я правильно понял, то нужно писать функцию, которая возвращает количество совпадений (или коэффициент) для каждого результата с тем что есть.
Прогоняем функцию для каждого результата, смотрим где наибольшее соответствие и выводим на экран.
P.S. В MidletPascal 2.02 можно создавать только квадратные массивы (n*n), в версии МР 3.3 - любые
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
09.10.2011, 16:39
|
#5
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Подскажите как можно реализовать
Сообщение от Igor
P.S. В MidletPascal 2.02 можно создавать только квадратные массивы (n*n)
|
Это распространяется на текстовые и графические массивы.
integer, boolean, real, char, recordstore и resource совершенно спокойно реагируют на "неквадратные" массивы
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
12.10.2011, 20:12
|
#6
|
Оператор ЭВМ
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Подскажите как можно реализовать
я чайник в мидлет паскале , но почти прекрасно знаю паскаль, ищу напарника - чтоб научил мидлету , всем тонкостям . кому не влом - научите меня . стучите в аську 574249249
|
(Offline)
|
|
12.10.2011, 20:31
|
#7
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Подскажите как можно реализовать
Сообщение от bormotan
кому не влом - научите меня .
|
Такое чувство, будто это 5 минут занимает.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
12.10.2011, 20:40
|
#8
|
Дэвелопер
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений (для 1,985 пользователей)
|
Ответ: Подскажите как можно реализовать
Читай литературу || Плати деньги
Просто так едва кто будет учить. Разве что приступ Мать_Терезы у кого будет, тогда тебе повезло
|
(Offline)
|
|
12.10.2011, 20:44
|
#9
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Ответ: Подскажите как можно реализовать
Учить никто не умеет. Всё что может другой - это подать на блюдечке инфу. А ученик, если не умеет учиться, то не научиться никак. Если умеет учиться, то пусть учиться, только нафига кому-то тратить время обучая тебя, если ты с тем же успехом можешь это сделать сам, лишь эксперементируя, читая документацию и штурмуя гугл?
Тем более способности необходимые для самообучения, в начинаниях важнее чем сами знания и способности программирования. Без первого не будет никакого успеха.
|
(Offline)
|
|
12.10.2011, 20:53
|
#10
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Подскажите как можно реализовать
Но пару советов можно и дать. Объяснить, на какие грабли не следует наступать. Что то похожее было в разделе F.A.Q
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
12.10.2011, 20:58
|
#11
|
Оператор ЭВМ
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Подскажите как можно реализовать
какого фига это чудо не работает ?????
procedure umnozh;
var a,b,c,c1:integer;
str:string;
ok:command;
begin
setcolor(255,255,255);
fillrect(0,0,getwidth,getheight);
setcolor(0,0,0);
drawtext('Принцип: даю два числа',2,2);
drawtext('от 0 до 100',2,12);
drawtext('Пишешь их произведение',2,22);
drawtext('Для выхода пишешь',2,32);
drawtext('любое простое число',2,42);
a:=random(101);
b:=random(101);
drawtext(integertostring(a)+'*'+integertostring(b) ,2,52);
repaint;
delay(2000);
showform;
ok:=createCommand('Проверить',CM_OK,1);
c1:=formAddTextField('Введите число','',3,TF_NUMERIC);
addCommand(ok);
c:=StringToInteger(formGetText(c1));
clearForm;
showcanvas;
if (a*b=c) then drawtext('Верно',2,62)
else
drawtext('Не верно',2,62);}
repaint;
end;
|
(Offline)
|
|
12.10.2011, 21:37
|
#12
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Подскажите как можно реализовать
В чем конкретно проблема? Виснет? Не компилится? Что-то не отображается? Неправильно считает?
Секунду, а почему стоит закрывающая фигурная скоба, а открывающей нет? Это очень нехорошо. Удаляй.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
12.10.2011, 21:58
|
#13
|
Оператор ЭВМ
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Подскажите как можно реализовать
со скобкой фигня . но чет сейчас заработало . кстати , почему КЭмулятор не встраивается в МИДЛЕТ паскаль ??? у кого нить получалось запускать мидлеты через КЭмулятор изнутри компилятора ???
|
(Offline)
|
|
12.10.2011, 22:16
|
#14
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Подскажите как можно реализовать
получалось запускать мидлеты через КЭмулятор изнутри компилятора ???
|
У меня не получалось
вот справка на русском, в ней описаны почти все отличия мидлет паскаля
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
12.10.2011, 22:19
|
#15
|
Оператор ЭВМ
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Подскажите как можно реализовать
ГОСПОДИ !! тебя расцеловать осталось за эту справку на русском . я с диктером переводил английскую и пытался понять смысл . и то он не всегда справлялся
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 00:43.
|