массив из строк, и формирование вектора Опции

[>hamka<]

ВЫЛЕТАЕТ! Я тож проверяла =))
А буквы она позволяет вводить! А исправлять - это все-равно, что переписывать, а в своей, я хоть понимаю, что делаю ;)

[volvo]

Значит так... Или здесь приводятся тесты для программы, или я закрываю тему. Переделывать никто ничего не будет, т.к. кроме автора никто разобраться в _той_ программе не сможет...

[Altair]

ну вот с повторением ввода..

Код

Const
Count=10;
Type
arrType = Array[1 .. Count] Of Longint;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If ar[Pred(j)] > ar[j] Then { < }
        Begin
          T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
        End
End;

Function strInt(s:string):longint;
var
i:byte; ss:longint;
setc:set of char;
begin
setc:=['0'..'9'];
ss:=0;
for i:=1 to length(s) do
begin
 If s[i] in setc then ss:=ss+(ord(s[i])-48)*trunc(Exp((length(s)-i)*Ln(10)));
end;
strInt:=ss;
end;

var
s:string;
a:array[1..Count] of string;
b:arrtype;
i,n,j:integer;
setc:set of char;
pr:boolean;
begin
setc:=['0'..'9'];
write('Сколько будем вводить чисел:'); readln(n);
For i:=1 to n do
begin
 repeat
  readln(a[i]); {ввод 10 чисел}
  pr:=false;
  s:=a[i];
  For j:=1 to length(s) do If not(s[j] in setc) then pr:=true;
 until not pr;
end;
For i:=1 to n do b[i]:=StrInt(a[i]); {переводим в числа}
Bubble(b,n);
clrscr;
for i:=1 to n do writeln(b[i]);
end.

[>hamka<]

при_беспорядочном_стуке_по_клавиатуре_всем�
�_пальчиками ->вылетает
это подходит под определение теста для программы ?

зы : а это программа воспринимает буквы тож нормально?. В прошлой она подставляла где буквы нули =)

а эта если встречает буквы, просит снова ввести!

Сообщение отредактировано: Oleg_Z - 26.02.2005 3:27

[volvo]

Нет, не подходит...
Закрыто