Просьба помочь с задачкой

[PRo9]

Перепишите в форме предусловием (while) следующий оператор цикла паскаля
к:=0; for i:='z' down to 'a' do k:=k+1

Заранее спасибо

[Creatizmo]

Код: Выделить всё

k := 0;
i := z;
while i <= a do
  begin
  k := k + 1;
  i := i - 1;
  end;

[dr.Jekill]

Creatizmo, я что-то не понял, ты что из символьной i отнимаешь потом единицу? :
i:=z;
..
i:=i-1;


Может попробовать что-то подобное?

var k,j:byte;
i:char;
begin
k:=0;i:='z';j:=26;
while (i<='a') and (j>0) do
begin
k:=k+1;
j:=j-1;//тут конечно коряво
end;
writeln(k:2);
readln;
end.

[PRo9]

тут вот челы еще написали так

k:=0;
i:='z';
while i<>'a' do
begin
k:=k+1;
i:=pred(i);
end.

препод придрался к тому что выделено жирным. судя по вашим решениям нужно заменить i<>'a' на i<='a' ???

[Creatizmo]

Creatizmo, я что-то не понял, ты что из символьной i отнимаешь потом единицу?

ммм.. да ошибочка вышла... принял z и a за числовые константы...

у тебя кстати тоже в программке ошибочка

PRo9
<> - не равно
>= - больше либо равно
<= - меньше либо равно

Код: Выделить всё

...
k := 0;
i := 'z';
j := 26;
while (i>='a') and (j>0) do
   begin
   inc(k);
   dec(j);
   i := pred(i);
   end;
writeln(k);
...

[PRo9]

Creatizmo что такое j := 26??? количество букв

А где в твоей задаче k:=k+1??? или это inc(k)

[Creatizmo]

j - это кол-во латинских букв
Да процедура inc(k) увеличивает k на единицу

[dr.Jekill]

ммм.. да ошибочка вышла... принял z и a за числовые константы...

у тебя кстати тоже в программке ошибочка

PRo9
<> - не равно
>= - больше либо равно
<= - меньше либо равно

Код: Выделить всё

...
k := 0;
i := 'z';
j := 26;
while (i>='a') and (j>0) do
   begin
   inc(k);
   dec(j);
   i := pred(i);
   end;
writeln(k);
...

Все мы не без греха!

var k:byte;
i,m:char;
begin
k:=0;i:='a';m:='z';
while i<=m do
begin
m:=pred(m);
k:=k+1;
end;
writeln(k:2);
readln;
end.