Помоги решить задачки в Паскаль

[shumbola]

Сообщение от Darth Vader

Вот, несколько короче и быстрее (45 мбайт текста - 0,9 сек):

Вот так рождаются программисты, которые пишут Виндовс. :-)

Вы бы сначала, сами проверили чтоли....

[German Stimban]

Алишер Кудратов, лучше немного модернизировать:

var 
  s:char;
  i:integer;
  f:file of char;

begin
  assign(f,"textfile.txt");
  reset(f);
  repeat
     read(f,s);
     if ((s>='a') and (s<='z')) or ((s>='A') and (s<='Z')
         then i:=i+1;
     until eof(f);
  writeln('кол. лат. букв:',i);
end.

синтаксис паскаля уже слегка подзабыл, поэтому могут возникнуть какие-либо ошибки. Но, в целом, идея такова.

[Nadir Zaitov]

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

жжесть... с говнокод.ру скопипастили??

C башорга скорее.

Сообщение от German Stimban

синтаксис паскаля уже слегка подзабыл

Там нужно вроде б явно задавать I:=0; иначе при создании может не обнулять - зависит от компилятора.

[Nadir Zaitov]

Сообщение от Darth Vader

45 мбайт текста

Это о чем?

[German Stimban]

Сообщение от Nadir Zaitov

Там нужно вроде б явно задавать I:=0; иначе при создании может не обнулять - зависит от компилятора.

Если мне не изменяет память, в Turbo Pascal, Borland Pascal и Delphi, при задании integer переменной, она сразу инициализируется и присваивается значение 0.

[DarkUser]

Сообщение от German Stimban

Если мне не изменяет память, в Turbo Pascal, Borland Pascal и Delphi, при задании integer переменной, она сразу инициализируется и присваивается значение 0.

в Delphi - только переменные класса. В Паскале точно не помню, но вроде как глобальные инициализируются, локальные - нет.

Сообщение от Nadir Zaitov

Это о чем?

я так понял, что о скорости обработки программы...

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

Вот так рождаются программисты, которые пишут Виндовс. :-)

все зло от хардкодинга ) (если мы про одну и туже ошибку)

[Nadir Zaitov]

Сообщение от German Stimban

Если мне не изменяет память, в Turbo Pascal, Borland Pascal и Delphi, при задании integer переменной, она сразу инициализируется и присваивается значение 0.

Ага. Если она не создается в регистрах и условия компиляции не стоят "оптимизация" или что там было. У меня был такой глюк

[German Stimban]

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

В Паскале точно не помню, но вроде как глобальные инициализируются, локальные - нет.

В Паскале нет глобальных и локальных переменных. Если две переменные, пусть даже в разных функциях, объявляются с одинаковым именем - это ошибка компиляции.

Сообщение от Nadir Zaitov

Если она не создается в регистрах и условия компиляции не стоят "оптимизация" или что там было.

Речь идёт о паскале?

[Rooslan Khayrov]

Сообщение от German Stimban

В Паскале нет глобальных и локальных переменных. Если две переменные, пусть даже в разных функциях, объявляются с одинаковым именем - это ошибка компиляции.

Герман, ты что-то путаешь. Локальные переменные и их области видимости чётко определяются даже в первоначальном варианте Вирта 1973 года. Я не знаю ни одной реализации, которая вела себя так, как ты описываешь.

[German Stimban]

Сообщение от Rooslan Khayrov

Герман, ты что-то путаешь

Верно

Сообщение от German Stimban

В Паскале нет глобальных и локальных переменных. Если две переменные, пусть даже в разных функциях, объявляются с одинаковым именем - это ошибка компиляции.

Совсем позабыл паскаль. Могут быть локальные и глобальные переменные, причём даже разных типов.