Извеняюсь ,что опять создал тему с это задачей,но программа ,которую выложил Seqular не работает!
Cоздать в текстовом редакторе входной текстовый файл Input.txt. Далее необходимо разработать структурированную программу,которая должна прочитаь данные из этого файла в оперативную память компьютера,осуществить преобразование этой информации и вывести ее в требуемой форме в выходной текстовый файл Output.txt.
Input.txt: A,17800; B,1800; C,12500; D,19885;
Output.txt: D (19885); A (17800); C (12500); B (1800); Программа которую выложил Seqular не работает!
Program RECORDS;
Uses CRT;
Const Max = 10;
Type R = Record
Litera: String[1];
Number: Integer;
End;
Var a: Array[1..Max] of R;
t: R;
s: String;
code: Integer;
i, j, k: Byte;
f1, f2: Text;
Begin
ClrScr;
Assign(f1, 'Input.txt'); ReSet(f1);
Assign(f2, 'Output.txt'); ReWrite(f2);
While not (EoF(f1)) do
Begin
Inc(i);
Readln(f1, s);
a[i].Litera := Copy(s,1,1);
Val(Copy(s,3,Length(s)-2), a[i].Number, code);
End;
For j := 1 to i do
Begin
For k := j to i do
Begin
If (a[k].Number > a[j].Number) then
Begin
t := a[k];
a[k] := a[j];
a[j] := t;
End;
End;
End;
For j := 1 to i do
Begin
Writeln(f2, a[j].Litera,',',a[j].Number);
End;
Close(f1); Close(f2);
End.
Добавлено (25.12.2007, 21:10)
---------------------------------------------
Про меня забыли?
