Массив строк

[afdotya]

Создать массив из 10 строк, Упорядочит строки по длине .Вывести на экран. Определить , в каких строках содержаться десятичные дроби. Выделить их и перевести в число (процедурой Val).
Написать программу корректности ввода десятичных чисел. При ошибочном вводе недопустимых символов менять цвeт ошибочного символа и возвращать курсор назад.

[Vanta11a]

И что? Наработки где?

[afdotya]

uses crt;
const n=10;
var
s,dr : array[1..10] of string;
i,j : integer;
t,buf : string;
ch, drobi: set of char;


begin
ch:=['0','1','2','3','4','5','6','7','8','9',','];

clrscr;
for i:=1 to n do
 readln(s[i]);

 for i:=n-1 downto 1 do
  for j:=1 to i do
   if length(s[j])>length(s[j+1]) then
    begin
    t:=s[j];
    s[j]:=s[j+1];
    s[j+1]:=t;
    end;

    clrscr;
for i:=1 to n do begin
t:=s[i];
for j:=1 to length(s[i]) do begin
if (t[j] in ch) or ((t[j]=',') and (t[j+1]<>' ')) then begin
textcolor(12);
buf[j]:=t[j];
end
else textcolor(0);
write(t[j]);
end;
writeln;
dr[i]:=buf;
end;
readln;
writeln('==============');
for i:=1 to n do
writeln(dr[i]);



end.

[Vanta11a]

Ага, хорошо. По сортировке вроде зачет. А вот по определению чисел с десятичной дробью в строке - неуд.

Алгоритм будет следующий:
1) Для всех строк делай
1.1) Сбросить флаги "идет число", "найден разделитель", "ошибка"
1.2) Для всех символов начиная с конца делай
1.2.2) Если символ не пробел и флаг "идет число" не установлен - установить флаг "идет число"
1.2.3) Если символ пробел и установлен флаг "идет число" - установить флаг "ошибка", прервать процедуру, это строка
1.2.4) Если символ не число и не разделитель - установить флаг "ошибка", прервать процедуру, это строка
1.2.5) Если символ разделитель и не установлен флаг "найден разделитель" - установить флаг "найден разделитель"
1.2.6) Если символ - разделитель и установлен флаг "найден разделитель" - установить флаг "ошибка", прервать процедуру, это строка
1.2.7) Если это символ с номером 1, и установлен флаг "найден разделитель" - преобразовать строку в число, вывести другим цветом
1.3) Если установлен флаг "ошибка" - вывести строку стандартным цветом

[afdotya]

uses crt;
const n=10;
 var s,dr : array[1..10] of string;
 i,j,err : integer;
 X:real;
 t,buf : string;
  ch, drobi, Razdel: set of char;
  Number, Razd, Error: boolean;
begin
     ch:=['0','1','2','3','4','5','6','7','8','9'];
     Razdel:=[','];
     clrscr;
     for i:=1 to n do readln(s[i]);
   
     for i:=n-1 downto 1 do             //сортировка строк по длине
                for j:=1 to i do
                if length(s[j])>length(s[j+1]) then
                                                   begin
                                                   t:=s[j];
                                                   s[j]:=s[j+1];
                                                   s[j+1]:=t;
                                                   end;
   
   
For i:=1 to n do  //для всех строк делай
    begin
         t:=s[i]; //копируем строку из массива в переменную для дальнейшей работы
         Number:=false;    //сбросить флаги "идёт число", "найден разделитель", "Ошибка"
         Razd:=false;
         Error:=false;
         for j:=length(s[i]) downto 1 do   //для всех символов начиная с конца делай
             begin
                  if (t[j]<>' ') and (not Number) then Number:=true; //Если символ не пробел и флаг "идёт число" не установлен, то установить флаг "идёт число"
                  if (t[j]=' ') and Number then    //Если символ пробел и установлен флаг "Идёт число" - устанвоить флаг "ошибка", прервать процедуру
                                               begin
                                               Error:=true;
                                               break;
                                               end;
                  if (not (t[j] in ch)) and (not (t[j] in Razdel)) then               //если символ не число и не разделитель - установить флаг "ошибка", прервать процедуру
                                                                     begin
                                                                     Error:=true;
                                                                     break;
                                                                     end;
                  if (t[j] in Razdel) and (not Razd) then Razd:=true; //Если символ - разделитель и не устарновлен флаг "найден разделитель" - установить флаг "найден разделитель"
                  if (t[j] in Razdel) and (Razd) then     //Если символ разделитель и установлен флаг "найден разделитель" - устаовить флаг "ошибка" и прервать процедуру
                                                   begin
                                                   Error:=true;
                                                   break;
                                                   end;
                  if (j=1) and (Razd) then          //Если символ с номером 1 и установлен флаг "найден разделитель",
                                      begin
                                      Val(t, X, err);    //преобразовать строку в число
                                      textcolor(3);     //сменить цвет
                                      writeln(t);       //вывести строку
                                      end;
                  if Error then           //Если установлен флаг "ошибка"
                               begin
                               textcolor(0); //Установить черный цвет
                               writeln(t);  //вывести строку
                               end;
             end;
         end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

Работает? Не работает? Работает не правильно?

Алгоритм вроде прописан верно.

[SaLoKiN]

 if (t[j] in Razdel) and (not Razd) then Razd:=true; //Если символ - разделитель и не устарновлен флаг "найден разделитель" - установить флаг "найден разделитель"
                  if (t[j] in Razdel) and (Razd) then     //Если символ разделитель и установлен флаг "найден разделитель" - устаовить флаг "ошибка" и прервать процедуру
                                                   begin
                                                   Error:=true;
                                                   break;
                                                   end;

эм...
пришел разделитель
проверили. поставили флаг.
далее проверяем если это разделитель и установлен флаг "найден разделитель" - установить флаг "ошибка" и прервать процедуру. а как быть тогда?
мне кажется это лишнее...
и разделитель это же , между целой и десятичной частью?

[Vanta11a]

Ммммда, об этом я не подумал.
Костыльным решением данной ситуации будет поменять местами проверки.

По идее после установки любого флага нужно переходить на следующий символ, не выполняя остальных проверок. Через goto - кривое решение. Через continue разве что?

Предлагаю вывод строки перенести из цикла перебора символов в цикл перебора строк. Таким образом, если в строке есть ошибка - цикл будет brake`нут, по флагу будет выведена строка. Если цикл выполнился с нужными флагами - выводится число.

И еще такой момент пришел на ум. А как обрабатываются строки вида " 0.123 "? Т.е. когда перед числом есть пробелы?

[SaLoKiN]

давайте определимся что будет являться дробью?
число цифр не ограничено

,123  
123,12
123,

1 - первый символ разделитель- предлагаю ДА
2 - разделитель не 1ый и не n-ый символ
3- разделитель n-ый символ. вот тут стоит ли?

плюс проверка
если разделитель=1 и нашли разделитель это ошибка

Костыльным решением данной ситуации будет поменять местами проверки.

думаю поможет.

и получается что строки типа пробел123,12пробел мы тоже отбрасываем?
и нам интересны только те которые начинаются с цифры/разделителя содержат только цифры(разделитель,если не первый) и заканчиваются только цифрой?
тогда зачем все так усложнять?

проверка на десятичное число:

разделитель=0
цикл по символам строки:
пока не конец строки или разделитель <=1
делай
Если символ = разделитель и номерсимвол != n
разделитель++
иначе 
если символ  !=  цифра
стоп.выход

Если разделитель =0 число не имеет дробной части

При ошибочном вводе недопустимых символов менять цвeт ошибочного символа и возвращать курсор назад.

фу какая кака =(