Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

Помогите с Паскалем   Найти похожие ветки 

 
regdown   (2006-10-30 13:49) [0]

Я сам пишу программы на Delphi, сегодня написал контрольную используя Delphi, а училка мне 2 поставила, сказала почему не на турбо паскале. Короче, ненормальная.
Помогите мне плиз с прогрой на турбо паскале.
Мне нужно следующее, у нас есть массив из n чисел (n как и сами числа надо вводить при запуске программы), нужно найти все числа равные нулю из этого массива и составить новый, элементы которого будут равны порядковым номерам всех нулей из первого (тоесть его координаты- номер строки номер столбца), а потом вывести этот новый массив на экран,
тоесть например:

Дан массив:
1 24 13 0
2 0  77 91

Получим новый массив:
1 4
2 2

Спасибо, если кто-то поможет, взамен могу помочь что-то написать на Delphi


 
palva ©   (2006-10-30 13:51) [1]

В Орешник. Пример социального инжиниринга.


 
TrainerOfDolphins ©   (2006-10-30 13:54) [2]


> Пример социального инжиниринга.

А что это? :)


 
Palladin ©   (2006-10-30 13:58) [3]


> regdown

так давай сюда то, что написал на Делфи, поможем перевести


 
regdown   (2006-10-30 13:58) [4]

Павла я не занимаюсь такой фигней, если хочешь проверить умею ли я писать на дельфи то давай мыло я тебе исходники пришлю или курсовые или проекты свои. А то ты пустослов!


 
regdown   (2006-10-30 13:59) [5]

Перевести? Ты мне скажи как на паскале вводить данные? инпут...


 
Percent   (2006-10-30 13:59) [6]

училка мне 2 поставила

Правильно сделала. Надо писать ответ на поставленный вопрос, а не отсебятину.

Помогите мне плиз с прогрой на турбо паскале.

Так ты перевести с Object Pascal на Turbo Pascal не можешь?
Показывай свое творение...

Спасибо, если кто-то поможет, взамен могу помочь что-то написать на Delphi

Если ты школьное задание выполнить не можешь, то что с тебя толку?


 
MikePetrichenko ©   (2006-10-30 14:03) [7]


> Помогите с Паскалем

Дык он же умер уже. Давно...


 
Palladin ©   (2006-10-30 14:03) [8]


> regdown   (30.10.06 13:59) [5]

ты мне покажи, что ты написал и расскажу, в чем будет не совместимость


> Ты мне скажи как на паскале вводить данные? инпут...

а это написано в справке делфи


 
regdown   (2006-10-30 14:04) [9]

вот некоторые мои коды, посмотрим какой толк, из программы редактр тестов, писал для универа:
or i2:=1 to (memo1.Lines.Count)  do
if i2 mod 7 = 0 then
begin
listbox1.Items.Add(memo1.Lines.Strings[i2-1]);
label13.Caption:=inttostr(strtoint(label13.Caption)+1);
end;
edit1.Text:= memo1.Lines.Strings[1];
edit2.Text:= memo1.Lines.Strings[2];
if (memo1.Lines.Strings[3]="") and (memo1.Lines.Strings[4]="")  then
begin
...
memo2.Clear;
for a:=-memo1.Lines.Count+1 to 0 do
begin
randomize;
memo2.Lines.Add(memo1.Lines.Strings[-a]);
memo2.Lines.Add(inttostr(random(10000))) ;
end;
memo2.Lines.SaveToFile(savedialog1.FileName+".rtst");
end;

А вообще что Вы мне мамы, чтоб перед Вами отчитываться, короче я уже 2 раз пишу и никто толком не может ничего сказать, первый раз про винапи писал ресоурсапдейт,ресоурсврайт, тоже никто не ответил и щас тоже все умных из себя строят и никто нехрена не знает.


 
MikePetrichenko ©   (2006-10-30 14:08) [10]


> короче я уже 2 раз пишу

Ты крут! Когда будешь писать 102-й раз, тогда и будешь возмушаться. Глядишь к тому времени научишься и вопросы отпадут. :)


 
MBo ©   (2006-10-30 14:08) [11]

автору особо рекомендуется верхняя ссылка на странице:
http://gtcgroup.com/joppa/The.Road.to.Joppa.html


 
Percent   (2006-10-30 14:09) [12]

вот некоторые мои коды, посмотрим какой толк, из программы редактр тестов, писал для универа:

Это ты написал на контрольной?
Я солидарен с твоей училкой.
Хотя, знаешь... она очень щедрая.

Ты мне скажи как на паскале вводить данные?

read(); readln();


 
regdown   (2006-10-30 14:10) [13]

какой контрольной, тупатня, это не контрольная, ты тут массивы видишь??? Мда это не мне а Вам надо учиться


 
MikePetrichenko ©   (2006-10-30 14:11) [14]


> вот некоторые мои коды, посмотрим какой толк, из программы
> редактр тестов, писал для универа:

А вот мои:
void BFBtIf::OnDiscoveryComplete (UINT16 nRecs,
         long  lResultCode)
{
m_bResult = (lResultCode == WBT_SUCCESS);

if (m_bResult) {
 CSdpDiscoveryRec pList[100];

 int iCnt = ReadDiscoveryRecords (m_Addr, 100, pList, NULL);
 
 if (iCnt) {
  m_ServiceList.dwCount = iCnt;
  for (int x=0;x<iCnt;x++) {
   for (int i=0;i<BT_MAX_SERVICE_NAME_LEN;i++) m_ServiceList.Services[x].Name[i] = pList[x].m_service_name[i];
   m_ServiceList.Services[x].Uuid.Data1 = pList[x].m_service_guid.Data1;
   m_ServiceList.Services[x].Uuid.Data2 = pList[x].m_service_guid.Data2;
   m_ServiceList.Services[x].Uuid.Data3 = pList[x].m_service_guid.Data3;
   for (i=0;i<8;i++) m_ServiceList.Services[x].Uuid.Data4[i] = pList[x].m_service_guid.Data4[i];
  }
 }
}

SetEvent (m_hEvent);
}


И что?


 
regdown   (2006-10-30 14:12) [15]

С та причем?


 
Gero ©   (2006-10-30 14:12) [16]

> [13] regdown   (30.10.06 14:10)

http://ln.com.ua/~openxs/articles/smart-questions-ru.html


 
Palladin ©   (2006-10-30 14:13) [17]

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

P.S.

> for a:=-memo1.Lines.Count+1 to 0 do

думаю существование конструкции for a:=memo1.lines.count-1 downto 0 do будет для тебя откровением


 
MikePetrichenko ©   (2006-10-30 14:13) [18]


> С та причем?

Как причем. У тебя код от фонаря и я вывали который первый попался.


 
Percent   (2006-10-30 14:14) [19]

[16] Gero ©  

+1

P.S. Я не рискнул. Он еще, судя по "базару", неполнолетний. Хотя... туда ему дорога!


 
regdown   (2006-10-30 14:15) [20]

что ты спрашиваешь что будет?
это шаг назад не вверх а взиз вместо то обычного


 
regdown   (2006-10-30 14:17) [21]

я просто пишу как мне удобнее, мне так удобней от этого ничего не изменится


 
regdown   (2006-10-30 14:19) [22]

от фонаря это что?


 
MikePetrichenko ©   (2006-10-30 14:20) [23]


> я просто пишу как мне удобнее, мне так удобней от этого
> ничего не изменится

Приходи, когда научишся писать как надо. А может и само тогда заработает.


 
MikePetrichenko ©   (2006-10-30 14:21) [24]


> от фонаря это что?

"В сад. Все в сад" (С)


 
Palladin ©   (2006-10-30 14:21) [25]

и что... а здесь куда?

for a:=-memo1.Lines.Count+1 to 0 do
begin
randomize;
memo2.Lines.Add(memo1.Lines.Strings[-a]);
memo2.Lines.Add(inttostr(random(10000))) ;
end;

не понятней было написать?

for a:=memo1.Lines.Count-1 downto 0 do
begin
randomize;
memo2.Lines.Add(memo1.Lines.Strings[a]);
memo2.Lines.Add(inttostr(random(10000))) ;
end;

к чему извращения с переменной цикла, или я чего то не понял в Великой смысле? и зачем вызывать randomize каждый раз? его достаточно вызвать один раз при инициализации программы.


 
Palladin ©   (2006-10-30 14:24) [26]

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


 
regdown   (2006-10-30 14:26) [27]

Рандомайз выводится каждый раз в цикле, потомучто существует вторая форма, во время цикла вызывается вторая форма, а почему то после ее закрытия если рандомайз написать в начале то числа генерируется в одинаковом порядке, как буд-то этой команды вообще нет.Рандом, это перед шифрованием текста через каждую строчку вставляется случайное число, чтобы расшифровка труднее шла. про доунту я говорил, что у каждого свои заковырки, мне легче так написать, я так не забываю где какая у меня переменная, я так привык уже.


 
regdown   (2006-10-30 14:27) [28]

можешь скинуть свое мыло я тебе текст по мылу пришлю?


 
regdown   (2006-10-30 14:27) [29]

все я нашел его, я тебе закину


 
Elen ©   (2006-10-30 14:31) [30]


> а училка мне 2 поставила, сказала почему не на турбо паскале

А чего б тебе не сесть с ней (за парту) и не доказать что сам писал!!!

> взамен могу помочь что-то написать на Delphi

Всех развеселил - это плюс, но сам не хочеш сделать - это минус (Такая задача на делфи - тот же паскаль)


 
Palladin ©   (2006-10-30 14:33) [31]

ты его не найдешь, в анкете кукла, мыло не дам, хочешь результата, пости здесь логику...


 
regdown   (2006-10-30 14:34) [32]

Удалено модератором


 
Сергей М. ©   (2006-10-30 14:36) [33]

Удалено модератором


 
Dmitrij_K   (2006-10-30 14:37) [34]

Удалено модератором


 
regdown   (2006-10-30 14:38) [35]

а я уже тебе письмо строчу, короче вот тип:
объявляем переменную а[1...N], затем вводим а[1]... Потом просто смотрим если например a[1]=0 тогда b[1]=11, тоесть координаты а, а потом просто выводим в мемо наш массив b


 
regdown   (2006-10-30 14:42) [36]

В дельфи ввод массива я делал так: через пробел в эдит1 писались числа, а потом приравнивались к массиву, используя пробел как разделитель, ну проверяем если пробел, то до пробела число его и добавляем


 
Percent   (2006-10-30 14:43) [37]

объявляем переменную а[1...N],

Неправильно.

Ты условие задачи сам себе сформулировать можешь?


 
Elen ©   (2006-10-30 14:44) [38]


>  если я не могу написать на паскале, то и не мог на Дельфи.

Судя по [0] так и есть... Лентяй... (не обижайся)


 
regdown   (2006-10-30 14:46) [39]

Себе могу, а почему неправильно??? если у нас массив из 10, то мы объявляем a:array[1...10] of integer;


 
regdown   (2006-10-30 14:47) [40]

Удалено модератором



Страницы: 1 2 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.56 MB
Время: 0.044 c
2-1162323188
daser
2006-10-31 22:33
2006.11.19
Как уменьшить высоту ComboBox a?


6-1149636249
Nostradamus
2006-06-07 03:24
2006.11.19
Indy и пересылка Stream


9-1139153587
VolanD666
2006-02-05 18:33
2006.11.19
Collision Detection


2-1162711192
HumanToString
2006-11-05 10:19
2006.11.19
Проверить значение первого символа


15-1162385746
davinchi
2006-11-01 15:55
2006.11.19
Подскажите где найти прогу для проектирования Visual UML 2.7.2