Паскаль циклы
Автор Trojan ® задал вопрос в разделе Другие языки и технологии
как задать цикл в паскале.. и получил лучший ответ
Ответ от Gennady[гуру]
Доброго времени суток.
Прежде чем задавать цикл нужно определиться, какй цикл требуется, поскольку в паскале существует три типа циклов.
1. Цикл с заранее известным числом повторений: for <начальное значение> to (downto) <конечное значение> do ...
Если <начальное значение> меньше <конечное значение>, то используется to в противном случае, downto
2. Цикл с предусловием: while <условие> do ...
3. Цикл с постусловием: repeat ...until <условие>
<условие> это переменная или выражение логического типа.
Цикл с предусловием выполняется при условии равном ИСТИНА, а цикл с постусловием - ЛОЖЬ.
Поскольку в цикле с предусловием условие проверяется до начала цикла, то он может не выполнится ни разу, а цикл с постусловием выполняется по-ркйней мере один раз.
В вашем случае для подсчета количества четных элементов можно применять первый тип, поскольку известна размерность матрицы. Выглядеть это будет так.
k := 0; {количество четных элементов}
for i:=1 to n do if A[i,i] mod 2 = 0 then k := k + 1;
Удачи!
for i=1 to n do
begin
проверить элемент a(i,i) на четность
счетчик четных прибавить 1 если элемент четный, иначе ничего не делать
end;
n количество столбцов и строк матрицывместо круглык скобок квадратные
s:=0;
for k:=1 to n do if a[k,k] mod 2 = 0 then s:=s+1;