Задача 9 Урок 11

Primary tabs

Submitted by jl8qy9kd_pro on Thu, 07/22/2021 - 11:23

Forums:

http://fkn.ktu10.com/?q=node/7341

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

var i, k, Z, X, C: integer;
begin
 i := 0;
 k := 0;
    while(k <> 3) do
       begin
        writeln('vvedi celoe chislo');
        readln(i);
        if(k = 0) then
          Z := i;
        if(k = 1) then
          X := i;
        if(k = 2) then
          begin
           C := i;
          end ;
        k := k + 1;
        if(k = 3) then
          begin
           writeln('Z = ', Z);
           writeln('X = ', X);
           writeln('C = ', C);
          end;
       end;
  readln();
end.
  • Log in to post comments
  • 2211 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:56

1) распечатку лучше делать уже за пределами цикла

2) для фрагмента

  if(k = 0) then
          Z := i;
        if(k = 1) then
          X := i;
        if(k = 2) then

-- лучше использовать связку с else, для уменьшения числа проверок

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Tue, 07/27/2021 - 10:23 

var i, k, Z, X, C: integer;
begin
  i := 0;
  k := 0;
  while(k <> 3) do
    begin
      writeln('vvedi celoe chislo');
      readln(i);
      if(k = 0) then
        Z := i
      else
      if(k = 1) then
        X := i
      else
      if(k = 2) then
        C := i;
      k := k + 1;
    end;
  writeln('Z = ', Z);
  writeln('X = ', X);
  writeln('C = ', C);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:51

решение засчитано

_____________
матфак вгу и остальная классика =)