1)А если строка начинается с #13? Я оставил так - не меняя.
Код
Unit U;
Interface
Type
TIntArray=Array[1..100] Of Integer;
Function ModStr(s:String):String;
Procedure GrowArray(Var a:TIntArray;Count:Integer);
Implementation
Function ModStr(s:String):String;
Var
Result:String;
i:Integer;
Begin
Result:=s;
For i:=2 To Length(Result) Do
If Result[i]=#13 Then
s[i]:=s[i-1];
ModStr:=Result
End;
Procedure GrowArray(Var a:TIntArray;Count:Integer);
Var
i,j,min,max:Integer;
Begin
min:=a[1];
max:=a[1];
j:=1;
For i:=1 To Count Do
If min>a[i] Then
Begin
j:=i;
min:=a[i]
End
Else
If max<a[i] Then
max:=a[i];
For i:=Count DownTo j+1 Do
a[i+1]:=a[i];
a[j+1]:=max
End;
End.
Использование:
Код
Uses U;
Const
s='test'#13'of'#13'unit'; {Преобразуется в 'testtoffunit'}
Var
a:TIntArray;
i:Integer;
Begin
For i:=1 To 10 Do
a[i]:=i;
WriteLn(ModStr(s));
GrowArray(a,10);
For i:=1 To 11 Do
WriteLn(a[i]); {1 10 2 3 4 5 6 7 8 9 10}
End.
2).
Код
Var
f:Text;
Name,SurName,Age,Facultet,Kurs:String;
Avg:Real;
Begin
Assing(f,'In.Txt');
Reser(f);
While Not Eof(f) Do
Begin
ReadLn(f,Name);
ReadLn(f,SurName);
ReadLn(f,Age);
ReadLn(f,Facultet);
ReadLn(f,Kurs);
ReadLn(f,Avg);
If Avg>3.5 Then
WriteLn(SurName,' ',Name)
End;
Close(f)
End.
Пример входного файла:
Код
Иван
Иванов
20
ИБ
3
4.2
Пётр
Петров
21
ПМ
4
2.1
Должно работать. Если что - пиши.