Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: ADMIN, Nextik  
помогите новичку!
maestrodanДата: Четверг, 10.12.2009, 23:17 | Сообщение # 16
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Люди, у меня, похоже, выбор пункта меню в одном меню переносится на следующее меню, и срабатывают 2 одновременно...
кто-нибудь, подскажите, как избежать этого
 
maestrodanДата: Пятница, 11.12.2009, 23:56 | Сообщение # 17
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Люди, я в шоке, в моей мабиле совсем не работает доступ к клавиатуре через функции getkeypressed и getkeyclicked...
 
12121Дата: Суббота, 12.12.2009, 11:04 | Сообщение # 18
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Они на формах не работают. Только команды.
 
maestrodanДата: Суббота, 12.12.2009, 12:31 | Сообщение # 19
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
ну а с тем, что выбор пункта меню переносится на следующее меню, как быть?
 
12121Дата: Суббота, 12.12.2009, 15:30 | Сообщение # 20
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Не видя проекта трудно сказать что ты там сделал. Выложи. А сейчас у меня еще и комп не работает. Могу только на телефоне глянуть в общих чертах.
 
maestrodanДата: Воскресенье, 13.12.2009, 14:11 | Сообщение # 21
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Вот проект
Кстати, почему-то ещё и удаление саписей по одной не работает...
Прикрепления: newprocphoneboo.zip (9.9 Kb)
 
maestrodanДата: Среда, 16.12.2009, 18:33 | Сообщение # 22
Непонятливый
Группа: Пользователи
Сообщений: 21
Награды: 0
Репутация: « 0 »
Статус: Offline
Я вот намудрил немного другой вариант меню, но почему-то не работает вот пример, гляньте, что не так

procedure lookp;
var num,mail:integer;
punkt:array[1..1000] of integer;
begin
repeat
showmenu('Записи',CH_IMPLICIT);
for i:=1 to k1 do
if readrecordstoreentry(r,i)<>'' then
punkt[i]:=menuappendstring(readrecordstoreentry(r,i));
c:= createCommand('Выбор', cm_ok, 1);
addCommand©;
c1:=createcommand('назад',cm_back,1);
addcommand(c1);
repeat
delay(100);
until (getclickedcommand=c) or (getclickedcommand=c1);
for i:=1 to k1 do
if (menugetselectedindex=punkt[i]) and (getclickedcommand=c) then
repeat
showmenu(readrecordstoreentry(r,i),CH_IMPLICIT);
num:=menuappendstring(readrecordstoreentry(r1,i));
mail:=menuappendstring(readrecordstoreentry(r2,i));
addCommand©;
addcommand(c1);
repeat
delay(100);
until (getclickedcommand=c) or (getclickedcommand=c1);
if (menugetselectedindex=num) and (getclickedcommand=c) then
p:=phone(readrecordstoreentry(r1,i));
if (menugetselectedindex=mail) and (getclickedcommand=c) then
email(readrecordstoreentry(r2,i));
until getclickedcommand=c1;
until getclickedcommand=c1;
end;

 
ichigoДата: Суббота, 09.01.2010, 13:09 | Сообщение # 23
Группа: Удаленные





ааа...помогите срочно,пожалуйста!тут такое дело паскаль изучаю не очень давно,да и вообще программирование!не могли бы помочь с школьными двумя задачками! если захотите помочь то вот они: 1. Найдите все трёхзначные числа,в которых сумма цифр равна квадрату последний цифры!Эту задачку знаю как решить ток математическим способом!а в паскале не в какую! и вот ещё одна!
Ученик записал n чисел (2<n<100),образуя возрастающию арифметическую прогрессию.Затем он вычеркнул одно число,а оставшиеся числа перемешал. опишите алгоритм восстановления пропущенного числа.
 
DiaBloFFДата: Суббота, 09.01.2010, 19:19 | Сообщение # 24
Новичок
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: « 1 »
Статус: Offline
По первой:
Не помню как в паскале эта функция называется,вроде case ,нада подставлять переменной ,скажем ,А значение от 1 до 9,для каждого значения А подставляем переменной Б значение от 0 до 9 , также с третьей цифрой В ,и для каждого значения В проверяем условие А+Б+В=В^2 , если да , то записываем куда нить А*100+Б*10+В
Второе без понятия,еще не учили,если даш как оно в математике ,мож чё придумаю


Сообщение отредактировал DiaBloFF - Суббота, 09.01.2010, 19:27
 
DiaBloFFДата: Воскресенье, 10.01.2010, 00:59 | Сообщение # 25
Новичок
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: « 1 »
Статус: Offline
Вот,добрался до компа,написал исходник
Прикрепления: NUMBERS.pas (0.2 Kb)
 
ichigoДата: Воскресенье, 10.01.2010, 14:41 | Сообщение # 26
Группа: Удаленные





спасибо большое,выручил с первой,а на счёт второй сам без понятия дали и толком не чего не объяснили!
 
ichigoДата: Воскресенье, 10.01.2010, 14:50 | Сообщение # 27
Группа: Удаленные





не поможешь ещё с одной?
 
ichigoДата: Воскресенье, 10.01.2010, 14:52 | Сообщение # 28
Группа: Удаленные





вот она:из цифр двух двухзначных натуральных чисел составить наибольшее возможное число и вывести его на печать!заранее спасибо!!!
 
ichigoДата: Понедельник, 11.01.2010, 15:34 | Сообщение # 29
Группа: Удаленные





придумал для той задачи математический вариант!a(n)=a1+(n-1)d
d=a2-a1
 
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: