Объясните как работают циклы (for, while, repeat) в паскале. желательно максимально простым и понятным языком, без использования супер-заумных терминов
в начале присваивает заданной переменной (переменная-счётчик) начальное число. переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. цикл начинает повторение пока счётчик будет меньше или равен второму числу. когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.
в строках с цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. счётчик нельзя изменять внутри цикла пока он идёт.
запись
for переменнаясчётчик : = число направление второечисло do
begin
строки с , которые должен повторять цикл;
end;
пример
программа, которая выводит числа от 5 до 10 и в конце пишет "конец"
program raf105;
var i: integer;
begin
for i: =5 to 10 do
begin
writeln(i);
end;
writeln('конец');
end.
цикл while
"цикл с условием старта"
начинает повторение, только если соблюдено заданное условие
запись
while условие do
begin
строки с , которые должен повторять цикл;
end;
пример
программа, которая просит ввести 1, если введено не 1, то просит ввести снова. когда введено 1, пишет "вы ввели 1. конец"
program raf105;
var a: integer;
begin
write('введите 1: ');
readln(a);
while a < > 1 do
begin
write('вы ввели не 1. введите число снова: ');
readln(a);
end;
writeln('вы ввели 1. конец');
end.
цикл repeat
"цикл с условием завершения"
похож на цикл while, только заканчивает повторение, если соблюдено условие. обычно используется если цикл нужно повторить хотя бы 1 раз.
запись
repeat
строки с , которые должен повторять цикл;
until условие;
пример
программа, которая запрашивает пароль, если введено 123, то выводит "конец" если введено не 123, то выводит сообщение "введите пароль снова"
program raf105;
var a: integer;
begin
a: = 0;
repeat
if a = 0
then write('введите пароль: ')
else write('введите пароль снова: ');
readln(a);
until a = 123;
writeln('конец');
end.
vera-sherepa231
15.11.2021
// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin var s1: =seqrandom(readinteger('n1=',50); var s2: =seqrandom(readinteger('n2=',50); var p: =readinteger('0-по неубыванию, иное- по невозрастанию: '); var q1: =new queue< integer> ; foreach var m in s1 do q1.enqueue(m); write('очередь 1: ',q1); writeln; var q2: =new queue< integer> ; foreach var m in s2 do q2.enqueue(m); write('очередь 2: ',q2); writeln; // очереди сформированы var q: =new queue< integer> ; var a: =(q1.toarray+q2.toarray); var s: sequence of integer; if p=0 then s: =a.orderby(i-> i) else s: =a.orderbydescending(i-> i).toarray; foreach var m in s do q.enqueue(m); write('очередь-результат: ',q); writeln; end. пример n1= 10 n2= 7 0-по неубыванию, иное- по невозрастанию: 1 очередь 1: [-26,6,26,-48,-21,-29,27,-39,5,-40] очередь 2: [50,36,37,46,18,41,-39] очередь-результат: [50,46,41,37,36,27,26,18,6,5,-21,-26,-29,-39,-39,-40,-48]
Tanyamitia
15.11.2021
Логики — это один из основных разделов символической логики, в основе которого лежит применение методов к логике (см. логика). логики — первая форма символической логики (см. символическая логика), возникшая в середине xix века в трудах дж. буля. к её созданию аналогия между решением уравнений и выводом следствий из посылок, а также то, что уравнения применимы при решении из различных областей знания. поначалу логики имела своим предметом классы (как объёмы понятий), соотношения между классиками по объёму и связанные с этим операции над ними. позднее, в связи с появлением в 70-х годах xix века теории множеств, взявшей на себя часть этих , предмет логики значительно изменился. основным её предметом стали высказывания (суждения, предложения), рассматриваемые со стороны их логических значений (истина, ложь, бессмыслица и другие), и логические операции над ними.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Объясните как работают циклы (for, while, repeat) в паскале. желательно максимально простым и понятным языком, без использования супер-заумных терминов
"цикл со счётчиком"
в начале присваивает заданной переменной (переменная-счётчик) начальное число. переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. цикл начинает повторение пока счётчик будет меньше или равен второму числу. когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.
в строках с цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. счётчик нельзя изменять внутри цикла пока он идёт.
записьfor переменнаясчётчик : = число направление второечисло do
begin
строки с , которые должен повторять цикл;
end;
примерпрограмма, которая выводит числа от 5 до 10 и в конце пишет "конец"
program raf105;
var i: integer;
begin
for i: =5 to 10 do
begin
writeln(i);
end;
writeln('конец');
end.
цикл while"цикл с условием старта"
начинает повторение, только если соблюдено заданное условие
записьwhile условие do
begin
строки с , которые должен повторять цикл;
end;
примерпрограмма, которая просит ввести 1, если введено не 1, то просит ввести снова. когда введено 1, пишет "вы ввели 1. конец"
program raf105;
var a: integer;
begin
write('введите 1: ');
readln(a);
while a < > 1 do
begin
write('вы ввели не 1. введите число снова: ');
readln(a);
end;
writeln('вы ввели 1. конец');
end.
цикл repeat"цикл с условием завершения"
похож на цикл while, только заканчивает повторение, если соблюдено условие. обычно используется если цикл нужно повторить хотя бы 1 раз.
записьrepeat
строки с , которые должен повторять цикл;
until условие;
примерпрограмма, которая запрашивает пароль, если введено 123, то выводит "конец" если введено не 123, то выводит сообщение "введите пароль снова"
program raf105;
var a: integer;
begin
a: = 0;
repeat
if a = 0
then write('введите пароль: ')
else write('введите пароль снова: ');
readln(a);
until a = 123;
writeln('конец');
end.