[k1ske]

1.Задание
Написать программу для замены в тексте,который хранится в файле,определенного символа другим символом.Измененный текст записать в другой файл.
я сделал программу,но нужно ее доработать, т.е. сделать так ,чтобы самому выбирать какой символ заменять и на какой заменять в открывающейся форме(к примеру) застрял на этом ...
2.Задание
N учеников проходили тестирование,выполнив M тестов по какому-либо предмету.Сколько очков набрал каждый ученик по всем темам?Вычислить средний балл,полученный учениками, и разницу между лучшим результатом и средним баллом

сдать нужно завтра help

[AND_REY]

Ответ на первый вопрос:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Sl: TStringList;
 Ts: String;
 i, j: Integer;
begin
 Sl:= TStringList.Create;
 Sl.LoadFromFile('C:\1.txt');
 For i:= 0 To Sl.Count - 1 Do
  begin
   Ts:= Sl.Strings[i];
   For j:= 1 To Length(Ts) Do if Ts[j] = Edit1.Text[1] Then Ts[j]:= Edit2.Text[1];
   Sl.Strings[i]:= Ts;
  end;
 Sl.SaveToFile('C:\1.txt');
 Sl.Free;
end;

[k1ske]

спасибо за первое ,со всем разобрался,второго только нету