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

Тема в разделе "Pascal and Delphi", создана пользователем deniska92, 14 фев 2011.

  1. deniska92

    deniska92 Гость

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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Так дана последовательность чисел или число? или для каждого надо сделать.
    Вобщем поиск можно через строку сделать
    проверка на возрастание
    Код (Text):
    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 Гость

    ДАНО НАТУРАЛЬНОЕ ЧИСЛО!!!!!
     
  4. nayke

    nayke Well-Known Member

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

    Код (Text):
    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 Гость

    а попроще нельзя решить?тоесть как то это всё расписать подробнее????
     
Загрузка...
Похожие Темы - Задача целочисленной арифметики(очень
  1. Янчик
    Ответов:
    0
    Просмотров:
    481
  2. TrishaRay
    Ответов:
    1
    Просмотров:
    781
  3. elzim
    Ответов:
    0
    Просмотров:
    929
  4. ShaoKahn
    Ответов:
    1
    Просмотров:
    1.121
  5. eremin-sanek
    Ответов:
    3
    Просмотров:
    1.105

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