Тема: «Системы программирования и прикладное программное обеспечение»
Тип урока: изучение нового материала.
Цели урока:
1. Образовательная – дать преставление о назначении программ, которые относятся к прикладному ПО; назначение систем программирования.
2. Развивающая – развить информационную культуру и умения определять, к какому программному обеспечению относится конкретная программа.
3. Воспитательная – воспитывать культуру работы в группе; воспитывать информационную культуру.
После изучения темы учащиеся должны
· знать:
- структуру программного обеспечения компьютера;
- понятие и термины: программное обеспечение (ПО), базовое ПО, системное ПО, операционная система, интерфейс, драйвер, утилиты, прикладное ПО, системы программирования;
· уметь:
- отделять задачи системного характера от задач прикладного характера;
- понимать с каких программных средств какие информационные задачи можно решать.
Тема: «Системы программирования и прикладное программное обеспечение»
Тип урока: изучение нового материала.
Цели урока:
1. Образовательная – дать преставление о назначении программ, которые относятся к прикладному ПО; назначение систем программирования.
2. Развивающая – развить информационную культуру и умения определять, к какому программному обеспечению относится конкретная программа.
3. Воспитательная – воспитывать культуру работы в группе; воспитывать информационную культуру.
После изучения темы учащиеся должны
· знать:
- структуру программного обеспечения компьютера;
- понятие и термины: программное обеспечение (ПО), базовое ПО, системное ПО, операционная система, интерфейс, драйвер, утилиты, прикладное ПО, системы программирования;
· уметь:
- отделять задачи системного характера от задач прикладного характера;
- понимать с каких программных средств какие информационные задачи можно решать.
Объяснение:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.