1. Актуализация знаний
2. Изучите материал учебного пособия §6.2 - 6.3 учебник
3. Просмотрите видеоурок 4. Практическая работа:
Пример 6.5
var a: array [1..20] of real;
n, n_min: integer;
begin
writeln(ꞌКоличество спортсменовꞌ);
readln(n);
writeln(ꞌВремяꞌ);
for var i := 1 to n do read(a[i]);
//поиск минимального элемента
n_min := 1;
for var i := 2 to n do
if a[i] < a[n_min] then n_min := i;
writeln(ꞌПобедитель — лыжник номер ꞌ, n_min);
writeln(ꞌЕго время - ꞌ, a[n_min]);
end.
Пример 6.8
var a: array[1..20] of integer;
n, max, h, x, y1, y2: integer; m: real;
begin
write(ꞌКоличество n =ꞌ); readln(n);
writeln(n); writeln(ꞌЭлементы массиваꞌ);
for var i := 1 to n do
begin
read(a[i]); write(a[i],ꞌ ꞌ);
end;
max := a[1];
for var i := 2 to n do
if a[i] > max then max := a[i];
h := trunc(WindowWidth/(2*n+1));
m := WindowHeight/max;
x := h;
for var i := 1 to n do
begin
SetBrushColor(clrandom);
y1 := WindowHeight;
y2 := y1 - trunc(a[i]*m);
Rectangle(x, y1, x+h, y2);
x := x + 2*h;
end;
end.
Пришли результат выполненных упражнений на проверку учителю на e-mail rohal74@mail.ru с обязательным указанием фамилии и класса.
Домашнее задание: §6.2-6.3 учебник
Оцените урок, заполнив титульный лист и Вариант 4. На остальных страницах нажимаем Далее до кнопки Отправить.
