Множества

[surf135]

Пусть вводится последовательность символов длиной не более 4. Если все вводимые символы цифры,то выполните преобразование данной последовательности в целое число.
Дорешайте чтобы из множества выводилось в строку

Uses WinCRT;                          
var s,st,str1,str2:string[4];
    i,j,k,n:INTEGER;
    mn,hn:set of char;
    ch:char;

Procedure insert;
Begin
Writeln('Введите число');
For i:=1 to 4 do
begin
ch:= readKey;
write(' <',ch,'> ');
s:=s+ch;
end;
str1:=s;
end;

Procedure Change;
Begin
Writeln;
hn:=['1','2','3','4','5','6','7','8','9','0'];
if not (s[i] in mn)
then include(mn,s[i]);
Begin
ch:=CHR(i);
If (ch in mn)and(ch in hn) then
st:=st+ch;
end;
if length(st)=length(str1) then
val(st,n,k);
If n=0 then Writeln('')
Else
Writeln('Целое число=> ',n);
End;

Begin
Insert;
Change;
Readln;
DoneWinCRT;
End.

[Stilet]

Чепуха какая то...

Procedure insert;
var e,i:integer;
Begin
Writeln('Введите число');
i:=0;
For i:=1 to 4 do
begin
 ch:= readKey;
 write(' <',ch,'> ');
 s:=s+ch;
 if ch in ['0'..'9'] then inc(i);
end;
if i=length(s) then val(s,i,e);
 {Теперь i содержит число если все символы цифры}
str1:=s;
end;

[Serge_Bliznykov]

да всё НАМНОГО проще:

var 
  isOnlyDigit : boolean;
  ...
begin
   isOnlyDigit := false;
... ввод s
   n:=0;
   if (length(s)>0) and (length(s)<=4) then begin
      isOnlyDigit := true;
      for i:=1 to length(s) do 
           if Not (s[i] in ['0'..'9']) then isOnlyDigit := false;
   end;
   if    isOnlyDigit then begin
         Val(s, n, k);
         WriteLn('Число равно ',n:1);
   end
   else
      WriteLn('Длина строки меньше 1 или больше 4-х или строка содержит не цифры.');
   readln;

Добавлено.
Виталий меня опередил... зато теперь у TC целых два разных варианта решения задачи

[Stilet]

Вообще задача дурная как сало без хлеба, ибо решить ее можно одной процедурой Val(s, n, k);
Если k будет равно 0 то однозначно в строке число. А все эти выкрутасы придумывают "умные" доценты, которые сами мало рубят в реалиях программировании

[Serge_Bliznykov]

Stilet,
коллега, я с Вами полностью согласиться не могу...
Потому что, учебные задачи - они потому и учебные, что отрабатываются какие-то простейшие приёмы.
а во вторых,
VAL это та ещё штучка!

Вот, например, как Вы думаете, чему будет равно K в таком коде (кстати, обратите внимание, что в строке НЕ ТОЛЬКО цифры!):

  s := '-.1';
  Val(s,n,k);

отвечу. зависит от типа переменной N - если N - вещественного типа, то ошибки не будет, K будет равно 0
а как Вам такая строчка?

   s := '   +1';

В ней и пробелы есть, и знак плюс.. а VAL отработает отлично! (К будет равно нулю!)
Так что, пускай TC учит и решает те задачи, которые ему придумывают "умные" доценты.
И не забывает, что не всё, чему учат - можно и нужно применять

[Stilet]

В ней и пробелы есть, и знак плюс

А нечего задавать отрицательные и вещественные...

они потому и учебные, что отрабатываются какие-то простейшие приёмы.

Ага, только ни одну из задач в реале применить нельзя, по себе знаю сколько бяки давали учителя, и ни одна из них нормально на практике не работала.
Ладно. Это уже полемика не по теме...