Как можно заменить inc?

[УченицаТаня]

var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
end.

[Iron Monk]

Сообщение от УченицаТаня

inc(tetka1, k);
inc(tetka2, c);

tetka1:= tetka1 + k;
tetka2:= tetka2 + c;

[УченицаТаня]

спасибо большое

[Вадим Мошев]

Только зачем его менять? Он быстрее работает, кроме того, иногда позволяет сократить запись.
Например:

mySuperPuperMegaVariable:=mySuperPuperMegaVariable + 1;

Длиннее, чем эквивалентное:

inc(mySuperPuperMegaVariable);

[FIDE]

А почему никто не сказал что в современном паскале есть оператор +=???
mySuperPuperMegaVariable+=1;//Еще короче

[min@y™]

А почему никто не сказал что в современном паскале есть оператор +=???
mySuperPuperMegaVariable+=1;//Еще короче

а современный паскаль – это какой?

306.png

[Serge_Bliznykov]

а современный паскаль – это какой?

думаю, что гражданин имеет в виду PascalABC.NET.
там и не такое допускается!!!

вот, например, скоммунизденный с интернета чужой код,
для подсчёта слов, состоящих только из прописных латинских букв:

begin
  var CountLetter : integer := 0; {количество слов состоящих только из прописных латинских букв }
  var s : string := 
      '2015 news - Barak OBAMA IS stupid';
      {var arr := new string[3](' ', '-', '"'); // Сюда можно добавить еще разделителей... }
  foreach st : string in s.Split(new string[1](' '), System.StringSplitOptions.RemoveEmptyEntries) do
  begin
    var count : integer := 0;
    foreach ch : char in st do
        if ch in ['A'..'Z'] then count+=1;
    if count = Length(st) then begin 
       CountLetter+=1;
       writeln('*Debug* found word: ',st);
    end;   
  end;
  WriteLn('All count word ', CountLetter)
end.

[min@y™]

вместо тысячи слов:

[Poma][a]

На фряхе можно. Только там что-то подключить надо. А что не помню.

[Filka]

http://www.freepascal.org/docs-html/prog/progsu10.html