Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2017, 10:56   #1
Qwerus76
Новичок
Джуниор
 
Регистрация: 26.12.2017
Сообщений: 2
По умолчанию Ввести массив строк, состоящих из цифр и символов. Вывести строки в порядке убывания количества в них цифр.

Ввести массив строк, состоящих из цифр и символов. Вывести строки в порядке убывания количества в них цифр.
Qwerus76 вне форума Ответить с цитированием
Старый 26.12.2017, 11:05   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

несложно.
нужно
1) написать простенькую функцию для подсчёта цифр в строке
2) отсортировать массив (хоть теми же простыми обменами) по этой функции.
3) вывести полученный массив.

какой из пунктов не получается?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.12.2017, 11:46   #3
Qwerus76
Новичок
Джуниор
 
Регистрация: 26.12.2017
Сообщений: 2
По умолчанию

Честно я вообще не понимаю массивы
Qwerus76 вне форума Ответить с цитированием
Старый 26.12.2017, 12:07   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Qwerus76 Посмотреть сообщение
Честно я вообще не понимаю массивы
сочувствую.

Тогда почитайте, что это - http://www.delphibasics.ru/Array.php

если кратко, то массивы - это просто набор обычных переменных, объединённых именем (это и есть имя массива).
а к любой переменной можно обратиться через её порядковый номер (в массивах этот номер называется индексом массива)
Код:
ИмяМассива[ ИндексНужнойПеременной ]
будут вопросы - приходите, спрашивайте.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.12.2017, 12:22   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array of string;
    c:array of integer;
    i,k,len:integer;
    s:string;
    d:boolean;
begin
   len:=0;
   Repeat
      Write('Stroka #',len+1,' = '); Readln(s);
      If s='' then
         Break;
      len:=len+1;
      SetLength(p,len);
      SetLength(c,len);
      p[len-1]:=s;
      k:=0;
      For i:=1 to Length(s) do
         If (s[i]>='0') and (s[i]<='9') then
            k:=k+1;
      c[len-1]:=k;
   Until false;
   Repeat
      d:=true;
      For i:=0 to len-2 do
         If c[i]<c[i+1] then
         begin
            d:=false;
            k:=c[i];
            c[i]:=c[i+1];
            c[i+1]:=k;
            s:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=s;
         end;
   Until d;
   For i:=0 to len-1 do
      Writeln(p[i]);
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 26.12.2017, 12:29   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Особенно если турбо паскаль, то подойдет со всей силы )) с обратным эффектом
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив. Вывести вначале все четные числа в порядке возрастания их индексов, затем - все нечетные в порядке убывания.( Delphi ) simonte Помощь студентам 9 07.12.2013 06:54
Задача делфи! Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами.Вывести четные числа строки ethic Помощь студентам 0 17.04.2013 22:08
Паскаль вывод цифр в порядке убывания. Escada Помощь студентам 7 10.12.2012 22:49
Строки в Delphi: строка символов, состоящая из десятичных цифр, разделенных пробелами. Вывести числа в возрастающем порядке Dashylia Помощь студентам 2 18.03.2012 14:03
программа нахождения всех чисел Армстронга, состоящих из трех цифр Татьана Помощь студентам 3 17.09.2011 14:23