1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

Задача целочисленной арифметики(очень надо)

Тема в разделе "Вопросы новичков и не только", создана пользователем deniska92, 14 фев 2011.

  1. deniska92

    deniska92 Гость

    Репутация:
    0
    СДЕЛАТЬ В ПАСКАЛЕ.
    Дана последовательность натуральных чисел.Выяснить,образуют ли цифры данного натурального числа убывающую(возрастающую) последовательность.
    Замечания:
    1.не использовать массивы
    2.вывести реультаты в нормальном читабельном виде
     
  2. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Так дана последовательность чисел или число? или для каждого надо сделать.
    Вобщем поиск можно через строку сделать
    проверка на возрастание
    Код:
    Val(s[1],CurNum,code)
    for i:=2 to Length(s) do
    begin
    Val(s[i],Num,code)
    if CurNum<Num then CurNum:=Num
    else begin Vozr:=false;break;end;
    end;
    еще можно через div и mod цифры находить и проверять
     
  3. deniska92

    deniska92 Гость

    Репутация:
    0
    ДАНО НАТУРАЛЬНОЕ ЧИСЛО!!!!!
     
  4. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    ты считываешь число с клавиатуры или как константу в коде. А потом переводишь в строку. Если это допустимо то это проще всего.
    Если нет используй div 10 и mod 10 для получения цифр числа.

    Код:
    prevCifra=Chislo mod 10
    while Chislo div 10<>0 do
    begin
    Chislo:=Chislo div 10;
    curCifra=Chislo mod 10
    if prevCifra>curCifra then curCifra:=prevCifra
    else begin Vozr:=false;break;end;
    end;
    что-то вроде этого..
     
  5. deniska92

    deniska92 Гость

    Репутация:
    0
    а попроще нельзя решить?тоесть как то это всё расписать подробнее????
     
Загрузка...
Похожие Темы - Задача целочисленной арифметики(очень
  1. petiablack
    Ответов:
    0
    Просмотров:
    94
  2. disub
    Ответов:
    1
    Просмотров:
    203
  3. Kazua
    Ответов:
    1
    Просмотров:
    222
  4. Rina
    Ответов:
    0
    Просмотров:
    161
  5. School_Information
    Ответов:
    2
    Просмотров:
    283

Поделиться этой страницей