| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с Паскалем
regdown © (2006-10-30 13:49:00)Я сам пишу программы на Delphi, сегодня написал контрольную используя Delphi, а училка мне 2 поставила, сказала почему не на турбо паскале. Короче, ненормальная.
Помогите мне плиз с прогрой на турбо паскале.
Мне нужно следующее, у нас есть массив из n чисел (n как и сами числа надо вводить при запуске программы), нужно найти все числа равные нулю из этого массива и составить новый, элементы которого будут равны порядковым номерам всех нулей из первого (тоесть его координаты- номер строки номер столбца), а потом вывести этот новый массив на экран,
тоесть например:
Дан массив:
1 24 13 0
2 0 77 91
Получим новый массив:
1 4
2 2
Спасибо, если кто-то поможет, взамен могу помочь что-то написать на Delphi
Palladin (2006-10-30 14:24:00) [21]ладно, это все пустяки, если сможешь отделить логику (которая существует у тебя для решения поставленной задачи) и закинуть ее сюда, я тебе ее наращу вызовами нативных процедур ввода вывода паскаля абсолютно безвозмездно...
MikePetrichenko (2006-10-30 14:21:00) [22]
> от фонаря это что?
"В сад. Все в сад" (С)
Palladin (2006-10-30 14:21:00) [23]и что... а здесь куда?
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 каждый раз? его достаточно вызвать один раз при инициализации программы.
MikePetrichenko (2006-10-30 14:20:00) [24]
> я просто пишу как мне удобнее, мне так удобней от этого
> ничего не изменится
Приходи, когда научишся писать как надо. А может и само тогда заработает.
regdown (2006-10-30 14:19:00) [25]от фонаря это что?
regdown (2006-10-30 14:17:00) [26]я просто пишу как мне удобнее, мне так удобней от этого ничего не изменится
regdown (2006-10-30 14:15:00) [27]что ты спрашиваешь что будет?
это шаг назад не вверх а взиз вместо то обычного
Percent (2006-10-30 14:14:00) [28][16] Gero ©
+1
P.S. Я не рискнул. Он еще, судя по "базару", неполнолетний. Хотя... туда ему дорога!
MikePetrichenko (2006-10-30 14:13:00) [29]
> С та причем?
Как причем. У тебя код от фонаря и я вывали который первый попался.
Palladin (2006-10-30 14:13:00) [30]во первых дареному коню в зубы не смотрят и в прочие места тоже, если спрашивают значит нужно, мне например нужно было узнать, халявщик ты или действительно что то написал, в приведенном коде не вижу ничего похожего на решение задачи описанной в вопросе, где сама суть решения, на кой мне работа с интерфейсом?
P.S.
> for a:=-memo1.Lines.Count+1 to 0 do
думаю существование конструкции for a:=memo1.lines.count-1 downto 0 do будет для тебя откровением
Gero (2006-10-30 14:12:00) [31]> [13] regdown (30.10.06 14:10)
http://ln.com.ua/~openxs/articles/smart-questions-ru.html
regdown (2006-10-30 14:12:00) [32]С та причем?
MikePetrichenko (2006-10-30 14:11:00) [33]
> вот некоторые мои коды, посмотрим какой толк, из программы
> редактр тестов, писал для универа:
А вот мои:
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:10:00) [34]какой контрольной, тупатня, это не контрольная, ты тут массивы видишь??? Мда это не мне а Вам надо учиться
Percent (2006-10-30 14:09:00) [35]вот некоторые мои коды, посмотрим какой толк, из программы редактр тестов, писал для универа:
Это ты написал на контрольной?
Я солидарен с твоей училкой.
Хотя, знаешь... она очень щедрая.
Ты мне скажи как на паскале вводить данные?
read(); readln();
MBo (2006-10-30 14:08:00) [36]автору особо рекомендуется верхняя ссылка на странице:
http://gtcgroup.com/joppa/The.Road.to.Joppa.html
MikePetrichenko (2006-10-30 14:08:00) [37]
> короче я уже 2 раз пишу
Ты крут! Когда будешь писать102-й раз, тогда и будешь возмушаться. Глядишь к тому времени научишься и вопросы отпадут. :)
regdown (2006-10-30 14:04:00) [38]вот некоторые мои коды, посмотрим какой толк, из программы редактр тестов, писал для универа:
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 раз пишу и никто толком не может ничего сказать, первый раз про винапи писал ресоурсапдейт,ресоурсврайт, тоже никто не ответил и щас тоже все умных из себя строят и никто нехрена не знает.
Palladin (2006-10-30 14:03:00) [39]
> regdown (30.10.06 13:59) [5]
ты мне покажи, что ты написал и расскажу, в чем будет не совместимость
> Ты мне скажи как на паскале вводить данные? инпут...
а это написано в справке делфи
MikePetrichenko (2006-10-30 14:03:00) [40]
> Помогите с Паскалем
Дык он же умер уже. Давно...
| |
Страницы: 