Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

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

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

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

Честно я вообще не понимаю массивы
Qwerus76 вне форума   Ответить с цитированием
Старый 26.12.2017, 13:07   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,328
Репутация: 5274
По умолчанию

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

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

если кратко, то массивы - это просто набор обычных переменных, объединённых именем (это и есть имя массива).
а к любой переменной можно обратиться через её порядковый номер (в массивах этот номер называется индексом массива)
Код:

ИмяМассива[ ИндексНужнойПеременной ]

будут вопросы - приходите, спрашивайте.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 26.12.2017, 13:22   #5
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,702
Репутация: 1522

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 26.12.2017, 13:29   #6
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,939
Репутация: 6285
По умолчанию

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

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив. Вывести вначале все четные числа в порядке возрастания их индексов, затем - все нечетные в порядке убывания.( 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


03:29.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru