Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
3-1158396759
urel
2006-09-16 12:52
2006.11.19
Связи в БД


2-1162292042
Делфи
2006-10-31 13:54
2006.11.19
Delphi3


2-1162465442
dima_shapkin
2006-11-02 14:04
2006.11.19
Tform


15-1162183263
Slider007
2006-10-30 07:41
2006.11.19
С днем рождения ! 29 октября


15-1161973724
DillerXX
2006-10-27 22:28
2006.11.19
Комментируете ли вы свои сорцы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский