Цитата:
Сообщение от Николай_С
Стесняюсь спросить...
Приведенный код - это всё, чему Вы научились за семестр по языку Pascal?
С такими знаниями Вам сессию никак не сдать.
Пока не поздно, наймите репетитора.
|
Коля, да ладно Вам! Если девушка этому научилась, то это в бесконечное число раз больше обычного уровня лоботрясов, которые к концу семестра вдруг обнаруживают, что они вообще ни бэ, ни мэ, а злые преподы им никак зачет не ставят. Ну не осилить файловых операций - ничего, поможем.
Код:
program Main2;
var
S:string;
A:char;
f1,f2:Text;
function NewStr(NS:string;NA:char):string;
var T:string;
begin
T:=NS;
while Pos(NA,T) > 0 do delete(T, Pos(NA,T), 1);
NewStr:=T;
end;
begin
Assign(f1,'Input.txt');
ReSet(f1);
Assign(f2,'Output.txt');
ReWrite(f2);
A:='!';
Repeat
Readln(f1,S);
Writeln(f2,NewStr(S,A));
Until EoF(f1);
Close(f1);
Close(f2);
end.
А так программа, в целом, составлена грамотно, вот только в аргументах функции Pos какая-то галиматья. И еще, Аксинья, одно замечание. Обозначать формальные и фактические параметры процедур и функций одинаково хоть и допускается, но нежелательно: приводит к путанице. Поэтому я там кое-что переобозначил. Кроме того, старайтесь не использовать зарезервированные слова языка программирования в качестве идентификаторов: могут возникнуть ошибки. Так, "Str" - это имя стандартной процедуры преобразования числа в строку. Не нужно так обозначать переменную.