Основные алгоритмические структуры При определенном значении условия серия команд (тело цикла) выполняется многократно.
… while условие do begin Тело цикла end; … Тело цикла повторяется до тех пор пока условие истинно. … x:=2; k:=0; while x<20 do begin x:=x+4; k:=k+1; end; writeln (k) … x k 6 1 10 2 14 3 18 4 22 5 условие Тело цикла Да Нет
uses crt ; var x:real; k:integer; begin write(' Введите вес '); readln (x); k:=0; while x>70 do begin x:=x-0.02*x; k:=k+1; end; writeln (' Количество дней = ',k); writeln (' Вес = ',x); end.
… repeat Тело цикла until условие ; … Тело цикла повторяется до тех пор пока условие не станет истинно. … x:=2; k:=0; repeat x:=x+5; k:=k+1; until x>20 ; writeln (k) … x k 7 1 12 2 17 3 22 4 условие Тело цикла Да Нет
… for i : = m to n do begin Тело цикла end; … Переменная i задаёт количество повторов. i изменяется от m до n, шаг изменения = 1, кол - во повторов = (n-m)+1. For i := 1 to 10 do i = {1, 2, 3, …, 10} – тело цикла повторяется 10 раз Тело цикла Да Нет i := m, n
2 фунт = … кг 6 фунт = … кг … 30 фунт = … кг Uses crt ; Var i, a :integer; f :real Begin a:=2; For i := 1 To 8 do begin f := a * 0.41; Writeln ( a, ' фунт = ', f, ' кг. ' ); a := a + 4; End; End.
10 дол. = 250 руб. 20 дол. = 500 руб. i f --------------------- Writeln ( i, ' Дол. = ', f, ' руб. ' ) =============================== 1 x 6 = 6 2 x 6 = 12 i n p --------------------- Writeln ( i, ' x ', n, ' = ', p)
1 х 6 = 6 2 х 6 = 12 … 10 х 6 = 60 uses crt ; Var i, n, p:integer; Begin Write (' Номер столбца? '); Readln (n); For i := 1 To 10 do begin p := i * n; Writeln ( i, ' x ', n, ' = ',p); End; Е nd.
