задача про строки и файл с записями Опции

[Zeon]

Не могу с ними разобраться!!!

Сообщение отредактировано: Zeon - 18.05.2004 8:18

[BlackShadow]

1). Русская версия

Код

Const
 Delimeters:Set Of Char = [' ',',',';','.','!','?'];
 Letters:Array[1..20] Of Char = ('А','Е','Ё','И','О','У','Ы','Э','Ю','Я','а','е','ё','и','о','у','ы','э','ю','я');
 s = 'Вот такой вот текст мы взяли для проверки';
Var
 i,j,k:Integer;
Begin
 i:=Length(s);
 While i>0 Do
   If s[i] In Delimiters Then
     Break
   Else
     Dec(i);
 For j:=1 To 10 Do
   For k:=i+1 To Length(s) Do
     If (s[k] = Letters[j]) Or (s[k] = Letters[j + 10]) Then
       Write(s[k]);
 WriteLn
End.

2). Кроссязычная версия

Код

Var
 f1,f2:Text;
 Group:Integer;
 Memo:String;
 i:Integer;
 b:Boolean;
Begin
 Assign(f1,'In.txt');
 Reset(f1);
 Assign(f2,'Out.Txt');
 ReWrite(f2);
 While Not Eof(f1) Do
 Begin
   ReadLn(f1,Group);
   ReadLn(f2,Memo);
   b:=False;
   For i:=1 To Length(Memo) Do
     If Memo[i] In ['0'..'9'] Then
     Begin
       b:=True;
       Break
     End;
   If Not b Then
   Begin
     WriteLn(f2,Group);
     WriteLn(f2,Memo)
   End
 End;
 Close(f1);
 Close(f2)
End.