1230

Посетитель
  • Публикации

    168
  • Зарегистрирован

  • Посещение

Репутация

0 Neutral

О 1230

  • Звание
    Местный
  • День рождения 30.12.1987

Contact Methods

  • AIM
    В душе не..у
  • MSN
    А ну а это я незнаю
  • Website URL
    http://
  • ICQ
    212050639
  • Yahoo
    темболее не е..у

Profile Information

  • Откуда
    БИРЮЛЕВО Рядом с к\т КЕРЧЬ
  • Интересы
    СПОРТ, МУЗЫКА,СЕКС( вот только не надо думать что я озабоченный)
  1. Подскажите кто-нибудь, нужна процедура, которая будет сортировать слова в тексте по убыванию, на паскале....
  2. 1230

    За жизнь

    Что-то не то для КМС при весе до 90 кг. нужно общую сумму 500 кг., так было пол года назад и врятли сейчас так сильно подняли...
  3. 1230

    За жизнь

    в таком случае дружок у тебя минимум должен быть КМС по ПАУЭРЛИФТИНГУ, хотя нет вру почти мастер спорта..
  4. 1230

    Обсуждение фоток форумчан

    HELLEN, просто опупеть, вот энто я понимаю... Просто гипер круто, такой плечевой пояс... Респект....
  5. вот закончил програмульку почти, не подскажите процедуру которая удаляет все отрицательные значения пременительно к моей програмульке program lab5; uses crt; var a:array[1..20] of byte; i,j,bufer:byte; f:text; procedure VivodArray; begin for i:=1 to 20 do write(A:4); end; procedure SortArray(logical:boolean); begin for i:=1 to 19 do for j:=i+1 to 20 do if (logical and (A>A[j])) or (not logical and (A<A[j])) then begin bufer:=A; A:=A[j]; A[j]:=bufer; end; end; procedure Sohran; begin assign(f,'1.txt'); rewrite(f); writeln(f,a); close(f); end; begin ClrScr; Randomize; for i:=1 to 20 do A:=Random(100); writeln('¬ ббЁў ¤® б®авЁа®ўЄЁ:'); Sohran; VivodArray; SortArray(true); writeln('¬ ббЁў ®вб®авЁа®ў ­­л© Ї® ў®§а бв ­Ёо:'); VivodArray; SortArray(false); writeln ('¬ ббЁў ®вб®авЁа®ў ­­л© Ї® гЎлў ­Ёо:'); VivodArray; readkey; end.
  6. Господа! Вот чем меня озадачили в инсте... "Дана последовательность действительных чисел. Последовательность сохранить в файле. Последовательность упорядочить по убыванию значений. Удалить из упорядоченной последовательности все отрицательные числа. Вывести на экран исходную и все варианты преобразованных последовательностей."(pascal)..
  7. вот такую вот задачку мне задали: "Задана двумерная таблица. Процедура вычисляет количество нулей в каждой строке таблицы. Вывести результат вычислений вместе с номером той строки, для которой выводится найденное количество нулей." кому не трудно подскажите варианты решения.... заранее спасибо...
  8. а вот мой способ решения задачки вроде бы работает, спасибо за помощь... ............................................................................................................................................................. program lab3; uses crt; var a:string; b:char; begin clrscr; write('введите строку А '); readln(a); while Length(a)>0 do begin b:=a[1]; while (pos(b,a)>0) do begin delete(a,pos(b,a),1); end; writeln(; end; readkey; end.
  9. Подскажите как решить институтскую задачку на тему "строки"..... "Дана строка символов А. Удалить из строки повторяющиеся символы, вывести исходную строку и результат работы." Вроде бы задачка элементарная, но я почему то не всасываю как её зделать...
  10. 1230

    Обсуждение фоток форумчан

    Настоящий POWER MEN не станет хвастаться красотой своего тела, для него важнее веса которые он поднимает, это только "метросексуалы " которые качаются чтобы на себя в зеркале любоваться постоянно хвастаются своей фигурой, а силовые у них никакие...
  11. 1230

    За жизнь

    Полностью согласен, чувак совсем заврался, такое невозможно, хотя может он мастер спорта международного класса... Врятли конечно просто пофантазировать наверное решил..
  12. 1230

    За жизнь

    Да нет просто вы постоянно выясняете отношения с "Чешуйчатым".... У вас похоже это вопрос чести у обоих... Хотя наверное это помогает полностью раскрыть любой вопрос, поскольку каждый старается выложить информации "чем больше, тем лучше"... Елси честно в моей голове сейчас такая каша, после всей информации, которую черпаю из этого форума и из той литературы которую я начал читать... А модер отличный, действительно МОДЕР с большой буквы...
  13. 1230

    Обсуждение фоток форумчан

    Все равно скромность не позволят это зделать, к тому же боюсь всеобщего осуждения...
  14. 1230

    Обсуждение фоток форумчан

    А я например стесняюсь выстовлять свои фотки чтоб все на меня глазели,хоть у меня и неплохое тело(не засушенный геракл явно)... Но все равно это было бы как то не скромно...