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

← →
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]

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

← →
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],

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

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

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

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

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

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

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

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

← →
regdown (2006-10-30 14:48) [41]

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

← →
regdown (2006-10-30 14:50) [44]

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

Поговорили и будет.

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