+ Ответить в теме
Показано с 1 по 2 из 2

Тема: Решение задач на Паскале!

  1. #1
    mixern is on a distinguished road
    Регистрация
    24.12.2009
    Возраст
    27
    Сообщений
    1
    Вес репутации
    0

    Arrow Решение задач на Паскале!


    Очень нужна ваша помощь!
    Напишите 2 функции и 6 программ на Паскале, желательно до понедельника
    Огромное спасибо!

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    Хыиуду has a spectacular aura about Хыиуду has a spectacular aura about
    Регистрация
    06.03.2005
    Адрес
    Москва
    Сообщений
    2,388
    Вес репутации
    19

    По умолчанию Re: Решение задач на Паскале!

    1. Число перевести в строку, строку представить как массив символов и упорядочить по убыванию
    2. То же по возрастанию, если первый символ - 0, поменять его местами с первым ненулевым.
    1. Упорядочить по возрастанию.
    2. Смотрим соседние темы, было такое.
    3. В цикле if B[i]=B[i+1] then есть.
    4. nums: array[0..255] of string; for i:=1 to N do nums[A[i]]:=nums[A[i]]+' '+inttostr(i);
    Количество непустых строк в nums - число элементов. Каждая строка - список номеров одинаковых элементов, равных i.
    5. for i:=2 to n do
    if A[i]=A[i-1] then inc(counter)
    else begin if counter>max then max:=counter; counter:=1; end;
    6.
    Код :
    1. var nums: array[0..9] of integer;
    2. for i:=1 to n do begin
    3.    x:=i;
    4.    while x>0 do begin
    5.      inc(nums[x mod 10]);
    6.      x:=x div 10;
    7.    end;
    8. end;

    Все элементарно.
    Искусство программирования - заставить компьютер делать все то, что вам делать лень.
    Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

+ Ответить в теме

Похожие темы

  1. Решение типовых задач
    Перед тем, как задать вопрос типа "разбиение строки на слова" просьба убедиться, что решение не присутствует на сайте "Snippets":...
    от DeeJayC в разделе Алгоритмы
  2. Нужна скорая помощь по решению задач на паскале
    1. Пусть даны три слова. Необходимо определить буквы, которые встречаются (для нахождения множества символов, образующих слово, используйте...
    от Лучик в разделе задачи на Паскале и Delphi
  3. Delphi Линейное программирование: решение задач графическим методом
    Нужно написать программу в Delphi "Линейное программирование: решение задач графическим методом". За основу брал материал ...
    от Perf в разделе задачи на Паскале и Delphi
  4. 7 Задач на Паскале
    №1 Дано натуральное число N. Можно ли представить его в виде суммы двух квадратов натуральных чисел? Если можно то: а)указать пару...
    от Иванов_Иванов в разделе задачи на Паскале и Delphi

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения