Question

Нужно доработать программу, таким образом, чтобы выводилось количество шагов, потребовавшихся для угадывания числа. Помогите, пожалуйста...Program Ugaday;var L,R,N,C:integer;Y:0..1;beginwriteln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');readln(N);L:=1; R:=N;while L<R dobeginC:=(L+R) div 2;writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');readln(Y);if Y=1then L:=C+1Else R:=Cend;writeln('Vi zadumali', L)end.

Answer 1

Program Ugaday;
var L,R,N,C,k:integer;
Y:0..1;
begin
k:=0;
writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
readln(N);
L:=1; R:=N;
while L<R do
begin
C:=(L+R) div 2;
k:=k+1;
writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');
readln(Y);
if Y=1then L:=C+1Else R:=Cend;writeln('Vi zadumali ', L,' ',k)
end.

Answer 2

To modify the program to display the number of steps required to guess the number, you can add a counter variable that increments with each iteration of the while loop. Here's an updated version of the program:

Program Ugaday;
var
  L, R, N, C, Steps: integer;
  Y: 0..1;
begin
  writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
  readln(N);
  L := 1;
  R := N;
  Steps := 0; // Initialize the counter variable

while L < R do
  begin
    C := (L + R) div 2;
    writeln('Vashe chislo > ', C, '? Vvedite 1, esli Da i 0, esli Net');
    readln(Y);
    Steps := Steps + 1; // Increment the counter variable

if Y = 1 then
      L := C + 1
    else
      R := C;
  end;

writeln('Vi zadumali ', L);
  writeln('Kolichestvo shagov: ', Steps); // Display the number of steps taken
end.

In this modified version, I added a variable called `Steps` to keep track of the number of steps taken to guess the number. It is initialized to 0 before the while loop starts. Inside the loop, the `Steps` variable is incremented by 1 with each iteration. Finally, after the loop ends, the program outputs the value of `Steps` to display the number of steps taken to guess the number.

I hope this helps! Let me know if you have any further questions.