Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2008, 08:43   #11
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Цитата:
Сообщение от glan
нет я и меньше писал "С"
Во-первых не будем забывать ваше же условие задачи:
Цитата:
Сообщение от glan
В том из них где больше строк, содержаший букву "С"
Поэтому просто от количества символов "С" ничего не зависит, а зависит от количества строк, содержащих хотя бы один такой символ, к тому же вы написали именно символ "С" и причем как я думаю английский, потому что символы "С" и "с" - разные и имеют разные номера в таблице символов, так что вы в первую очередь для себя уточните условие задачи, а я если надо - поправлю ее, потому что у меня она работает.
Во-вторых, сделайте трассировку программы и посмотрите чему у вас равны значения qt1 и qt2 и уже тогда можно будет сделать выводы
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 25.06.2008, 16:29   #12
glan
 
Регистрация: 22.06.2008
Сообщений: 7
По умолчанию

-=<[Evklidd]>=- Спасибо! Все сделал, работает ставит звездочки как заведеная! Но если тебе не затруднительно лично для меня немогли бы вы подписать коментарии, а то просто интересно что выполняет та или иная функция и процедура т.д., хочу для себя, разобраться в программе полностью.
glan вне форума Ответить с цитированием
Старый 25.06.2008, 21:04   #13
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Если интересно и разобраться хотите, то просто не могу не написать комменты.
Код:
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.
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 26.06.2008, 17:39   #14
glan
 
Регистрация: 22.06.2008
Сообщений: 7
По умолчанию

Все разобрался! Всем спасибо! Сильно помогли!
glan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи по Паскалю! Brizon Паскаль, Turbo Pascal, PascalABC.NET 2 13.06.2008 14:28
Помогите решить задачи по Паскалю! Brizon Паскаль, Turbo Pascal, PascalABC.NET 1 09.06.2008 17:55
Помогите решить задачи по Паскалю! Brizon Паскаль, Turbo Pascal, PascalABC.NET 9 06.05.2008 20:02
Здраствуйте!Зачетные задачки на списки...))) Помогите,плиз! Никита35 Помощь студентам 1 24.04.2008 14:02
Помогите решить 3 задачи на языке Турбо-Паскаль rpg Помощь студентам 3 23.11.2007 20:13