Помогите плиз задачки по Турбо Паскалю решить!

[-=<[Evklidd]>=-]

Сообщение от glan

нет я и меньше писал "С"

Во-первых не будем забывать ваше же условие задачи:

Сообщение от glan

В том из них где больше строк, содержаший букву "С"

Поэтому просто от количества символов "С" ничего не зависит, а зависит от количества строк, содержащих хотя бы один такой символ, к тому же вы написали именно символ "С" и причем как я думаю английский, потому что символы "С" и "с" - разные и имеют разные номера в таблице символов, так что вы в первую очередь для себя уточните условие задачи, а я если надо - поправлю ее, потому что у меня она работает.
Во-вторых, сделайте трассировку программы и посмотрите чему у вас равны значения qt1 и qt2 и уже тогда можно будет сделать выводы

[glan]

-=<[Evklidd]>=- Спасибо! Все сделал, работает ставит звездочки как заведеная! Но если тебе не затруднительно лично для меня немогли бы вы подписать коментарии, а то просто интересно что выполняет та или иная функция и процедура т.д., хочу для себя, разобраться в программе полностью.

[-=<[Evklidd]>=-]

Если интересно и разобраться хотите, то просто не могу не написать комменты.

program pro24;
var
 t1, t2: text;
 qt1, qt2, i: integer;
function Qofc(s:string;Var t: text): integer;// функция, результатом, которой является число строк, имеющих хотя бы 1 символ 'C'. 
// Ей передаются два параметра: файловая переменная и путь к самому файлу (строка)       
var
 ch: char;
begin
 assign(t,s);// связываем файловую переменную с внешним файлом
 reset(t); // открываем файл для чтения
 i:= 0;//
 while not Eof(t) do// пока не достигнут конец файла
  begin
   read(t,ch);//считываем очередной символ из файла
   if (ch = 'C') then // если в строке имеется символ 'C', то
    begin
     readln(t);//сразу переходим на следующую строку
     inc(i);//увеличиваем счетчик
    end;
  end;
 Qofc:= i;//передаем результату функции число строк
end;
procedure Add(s:string;Var t:text);// процедура, добавляющая во внешний файл три строки '*'. Ей передаются те же 2 
// параметра,что и 1 функции 
var
 zv: string;
begin
 for i:= 1 to 255 do
  zv[i]:= '*';//формируем строку из 255 '*'
 assign(t,s);//связываем файловую переменную с внешним файлом
 append(t);//открываем файл для дозаписи
 writeln(t);//переходим на следующую строку
 writeln(t,zv);// добавляем 3 строки звездочек
 writeln(t,zv);
 writeln(t,zv);
end;
begin
 qt1:= Qofc('c:\t1.txt',t1);// вызываем функцию подсчета кол-ва строк
 qt2:= Qofc('c:\t2.txt',t2);// ту же функция вызываем для второго файла
 if qt1 > qt2 then// сравниваем кол-во строк в 1 и во 2 файле, если в 1 >
  Add('c:\t1.txt',t1)// вызываем функция добавления звездочек
 else//
  Add('c:\t2.txt',t2);//если во 2 >, чем в 1,вызываем функцию для 2 файла
 close(t1);// закрываем файл t1
 close(t2);// закрываем файл t2
 readln;//ждем нажатия клавиши Enter
end.

[glan]

Все разобрался! Всем спасибо! Сильно помогли!