Код: Выделить всё
в цикле считать строку
Разбивать на слова
Если очередное слово совпадает с заданным, то:
функцией textcolor меняем цвет шрифта
выводим слово
той же функцией меняем цвет обратно (вроде бы светло-серый - 11?)
Если же нет - просто выводим слово
Код: Выделить всё
uses crt;
....
begin
ClrScr;
Assign(F,'source.txt');
Reset(F);
While Not Eof(f) do begin
Readln(F,s);
WriteLn(s)
end;
Close(F);
end.
Додумалась птомучто тока до этого. И почти все получилось, но чтобы считать слово 2 раза я его в файл засунула и теперь у меня выводит пустую строку.Код: Выделить всё
PROGRAM seach_;
VAR
T, F: TEXT;
Sl, Ch1,Ch2, Ch3: CHAR;
Ch: STRING;
Counter, Counter2: INTEGER;
PROCEDURE search;
BEGIN
Ch1 := ' ';
Ch2 := 'Y';
WHILE (NOT EOF(T)) AND (Ch2 = 'Y')
DO
BEGIN
READ(T, Ch1);
IF (Ch1 = Sl)
THEN
BEGIN
Ch2 := 'N';
WRITE(Ch1);
Ch := Ch1;
END;
END;
END;
PROCEDURE Ost;
BEGIN
IF Sl <> ' '
THEN
BEGIN
READ(Sl);
END;
END;
BEGIN
ASSIGN(T, 'Text1.txt');
ASSIGN(F, 'File.txt');
RESET(T);
REWRITE(F);
Counter := 0;
Counter2 := 0;
WRITE('Введите слово: ');
WHILE NOT EOLN
DO
BEGIN
READ(Ch);
WRITE(F, Ch);
END;
RESET(F);
WHILE NOT EOLN
DO
BEGIN
READ(F, Ch3);
Counter := Counter + 1;
END;
WHILE NOT EOLN(F)
DO
BEGIN
READ(F, Sl);
WHILE Counter2 <> Counter
DO
BEGIN
Search;
ost;
Counter2 := Counter2 + 1;
END;
END;
END.