рейтинг Pascal

[elrin]

Доброго времени суток!
помогите пожалуйста новичку, мучусь с програмкой "рейтинг" на Pascal, вот такой код:
var
p(план),n(поступило),v(%),k(коеф): real;

begin
writeln('Ввести p:');
read(p);
writeln('Ввести n:');
read(n);
v:=(n*100)/p;
writeln('v = ',v:0:0);
if v>=100 then k:=1 else k:=-1;
writeln('k = ',k:0:0);
end.
но вся суть в том, что за каждые 10%(v) к коефициенту (k) додается 1 но не k не может быть больше 5.
Очень прошу помощи

[Кольша]

может так

v:=(n/p)*100;

[elrin]

Сообщение от Кольша

может так

v:=(n/p)*100;

нет, мне нужна пощь с самим телом цыкла, а V - это процент выполнения плана, он в 99,9 случаев всегда больше плана, тоесть V>100, он может составлять даже 250%, и за каждые 10% к коефициенту k додается 1, но k не может быть больше 5

[Кольша]

var
p(план),n(поступило),v(%),k(коеф): real;

begin
writeln('Ввести p:');
read(p);
writeln('Ввести n:');
read(n);
v:=(n*100)/p;
writeln('v = ',v:0:0);
if v>=100 then k:=k+1 else k:=k-1;
writeln('k = ',k:0:0);
end.

[elrin]

я думаю, что Ты не понял, этот код работает, нормально, k получает значение 1 или -1, но мне надо чтоб k получало значения от 1 до 5. Я понимаю что нужен цыкл, но заделать его у меня не получается
P.S.
k может получать значение не ниже -1 и не выше 5

[Leshii]

Там строго или нет ?
Так покатит ?

while (K>-1) and (K<5) do begin
...
end;

или же

K:=1;b=5;
while k<=b do
 ...
k:=k+1;

или же

for k:=1 to 5 do begin
...
end;

[elrin]

да спасибо код рабочий, но!!!!
вот результат:
v = 127
k = 1
2
3
4
5
цикл я наконец понял, огромное спасибо, но как вывести конечный результат чтобы:
v = ....
и
k = ....
чтоб без цыфр 2, 3, 4,...и т.д., только основные конечные значения

ответ на самый первый вопрос: условие результата k стого не меньше -1 и не больше 5

[Leshii]

Если тебе нужен конечный результат то выводи после цикла, но если вывод будет после оно тебе передаст в ответ конечное значение тоесть( k=5 и v=...) и всё. Если же хочеш вывести в цикле то

while ... do

writeln('k=',k,' ' v=' ,v:0:0);
end;

если после

while ... do
....
end;
writeln('k=',k,' ' v=' ,v:0:0);

[elrin]

в чем разница при выводе в теле цикла и после тела цикла?
где это можна почитать?