Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизПомогите с Паскалем Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.041 c