Использование циклов Uses System, graphabc; var d 1, d 2: Date. Time; t, i : longint; x, y, r, n, dn: real; x 1, y 1: Integer; begin d 1 : = Date. Time. Now; t : = d 1. Hour*60*60*1000 + d 1. Minute*60*1000 + d 1. Second*1000 + d 1. Millisecond; x : = 200; y : = 200; r : = 100; dn : = pi/1000; n: =0; while n < 2*pi do begin x 1 : = Round(x + r*cos(n)); y 1 : = Round(y + r*sin(n)); Put. Pixel(x 1, y 1, clred); n : = n + dn; end; d 2 : = Date. Time. Now; t : = (d 2. Hour*60*60*1000 + d 2. Minute*60*1000 + d 2. Second*1000 + d 2. Millisecond)-t; Writeln(t); 1
Использование циклов d 1 : = Date. Time. Now; t : = d 1. Hour*60*60*1000 + d 1. Minute*60*1000 + d 1. Second*1000 + d 1. Millisecond; move. To(300, 200); Line. To(300, 200, cl. Blue); Line. To(288, 248, cl. Blue); Line. To(254, 284, cl. Blue); Line. To(207, 300, cl. Blue); Line. To(158, 291, cl. Blue); Line. To(120, 260, cl. Blue); Line. To(101, 214, cl. Blue); Line. To(106, 165, cl. Blue); Line. To(135, 124, cl. Blue); Line. To(179, 102, cl. Blue); Line. To(228, 104, cl. Blue); Line. To(271, 129, cl. Blue); Line. To(296, 172, cl. Blue); Line. To(300, 200, cl. Blue); d 2 : = Date. Time. Now; t : = (d 2. Hour*60*60*1000 + d 2. Minute*60*1000 + d 2. Second*1000 + d 2. Millisecond)-t; Writeln(t); end. 2
Использование циклов 3
Использование циклов Арифметический цикл с рекуррентной зависимостью (for, while, repeat until) Примеры 4
Использование циклов Вычисление пределов последовательности (while, repeat until) Примеры 5
Использование циклов , Вложенные циклы (for, while, repeat until) Примеры 6
Скачать презентацию Использование циклов Uses System graphabc var d 1
ПиОА Сем 1 Лекция 2_1 Циклы применение.pptx