2 / 1 / 1
Регистрация: 12.10.2016
Сообщений: 102
1

Как изменить счетчик цикла while?

20.12.2016, 19:11. Показов 1151. Ответов 1
Метки нет (Все метки)

Есть программа с процедурами умножения каждого числа в рандомно заданном исходном массиве на константу и выводом нового массива,
как в процедуре умножения сделать так, чтоб проверялось каждое число по условию т.е изменялся счетчик?
помогите разобраться

вот код программы:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program Procedure1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
type T=array[0..4,0..4] of integer;
procedure Multiplication( var a:T);
var i, j: integer;
const n=5;
begin
i:=0;
 while i<=high(a) do begin
 j:=0;
  while j<=high(a[i]) do begin
   a[i,j]:=a[i,j]*n;
    end; end;
    end;
 
procedure Output(var b:T);
var i, j: integer;
 begin
writeln('New mass');
 for i:=0 to 4 do begin
  for j:=0 to 4 do begin
   write(b[i,j], ' ');
    end;
    writeln;
    end; end;
 
var arr: T;
    i, j: integer;
begin
 SetConsoleOutputCP(1251);
randomize;
 writeln('Mass');
 for i:=0 to 4 do begin
  for j:=0 to 4 do begin
    arr[i,j]:=random(5);
    write(arr[i,j], ' ');
    end;
    writeln;
    end;
begin
  Multiplication(arr);
  Output(arr);
end;
 
 
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2016, 19:11
Ответы с готовыми решениями:

Как создать указатель на счетчик цикла for?
Например, нужно создать указатель на счетчик і. Непонятно как это организовать :-| for(int i = 0;...

Как обработать выбор чекбокса, чтобы в обработчике поиметь текущий счетчик цикла?
Я в цикле заполняю форму чекбоксами. Как обработать выбор чекбокса, чтобы в обработчике поиметь...

счетчик цикла for
Есть задача из Прата глава 5 № 4. Дафна инвестировала $100 под простые 10%. Другими словами,...

Счетчик цикла
Всем привет. Есть два стула скрипт. Нужно чтобы проверялось наличие определённого файла в...

1
73 / 72 / 43
Регистрация: 17.11.2016
Сообщений: 211
20.12.2016, 20:28 2
У цикла while не специального счетчика. Есть условие. Пока это условие выполняется, цикл будет повторяться.
То, что для программиста в данном случае является счетчиком, для компилятора — просто переменная.
Программист сам отвечает за изменение переменной. Вот несколько эквивалентных примеров:

Прибавление единицы
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Multiplication(var a: T);
var
  i, j: integer;
const
  n = 5;
begin
  i := 0;
  while i <= high(a) do
  begin
 
    j := 0;
    while j <= high(a[i]) do
    begin
      a[i, j] := a[i, j] * n;
      j := j + 1;
    end;
 
    i := i + 1;
  end;
end;
Процедура Inc
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Multiplication(var a: T);
var
  i, j: integer;
const
  n = 5;
begin
  i := 0;
  while i <= high(a) do
  begin
 
    j := 0;
    while j <= high(a[i]) do
    begin
      a[i, j] := a[i, j] * n;
      Inc(j);
    end;
 
    Inc(i);
  end;
end;
Функция Succ (используется реже)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Multiplication(var a: T);
var
  i, j: integer;
const
  n = 5;
begin
  i := 0;
  while i <= high(a) do
  begin
 
    j := 0;
    while j <= high(a[i]) do
    begin
      a[i, j] := a[i, j] * n;
      j := Succ(j);
    end;
 
    i := Succ(i);
  end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2016, 20:28

Счетчик внутри цикла
Var k1,k2,i,s: integer; // Procedure aaa(k1,k2:integer); Var i,res,res2: integer; Begin ...

Обратный счетчик цикла
А можно как-то организовать loop чтобы не пока n&gt;0, а пока n&lt;k

Какое значение имеет счетчик при выходе из цикла?
вопросы: 1.Какое значение имеет счетчик при выходе из цикла? 2.Как записывается оператор цикла,...

Что писать в конце цикла, чтобы счетчик уменьшался
Здравствуйте! Что-то я совсем запарился. Не могу сообразить, что писать в конце цикла, допустим, от...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.