Розв'язування задач.doc Урок 5
Тема уроку: Розв'язування задач
Мета уроку: Навчитися описувати цикли мовою програмування, продовжувати розвивати в учнів логічне мислення; виховувати інформаційну культуру учнів.
Тип уроку: урок систематизації знань.
Обладнання: комп’ютерний клас, відповідне програмне забезпечення (середовище Pascal).
Хід уроку.
І. Організаційний момент.
ІІ. Актуалізація чуттєвого досвіду і опорних знань учнів:
Які конструкції циклів ви знаєте?
Дія команди for.
Дія команди while.
Дія команди repeat-until.
ІІІ. Мотивація навчальної діяльності і повідомлення теми, мети і завдань уроку.
Розглянемо сьогодні на уроці кілька задач, які розв’язуються за допомогою циклу «для».
IV. Розв’язування задач.
1 Один долар коштує 5,05 гривні. Вивести у вигляді таблиці вартість 1, 2, …, 10 доларів.
program bank;
var d:integer;
gr:real;
begin
writeln('dolary grivni');
for d:=1 to 10 do
begin
gr:=5.05*d;
writeln(d:4, gr:15:2);
end;
readln;
2 end.
3 Обчислити та вивести на екран номери і значення перших n=10 номерів.
program Elements;
var i,n:integer;
a:real;
begin
n:=10;
for i:=1 to n do
begin
a:=3+cos(2*i);
writeln(i:4,a:15:2);
end;
readln;
end.
4 Скласти програму для обчислення суми цілих чисел від 1 до 100.
program Suma1;
var s,n:integer;
begin
s:=0;
for n:=1 to 100 do
s:=s+n;
writeln('s=',s);
readln;
end.
5 Обчислити добуток п’яти елементів послідовності, які задані виглядом загального елемента , і=1,2,…,5.
program dobutok;
var i,n:integer;
a,d:real;
begin
d:=1;
n:=5;
for i:=1 to n do
begin
a:=2+abs(sin(3*i));
d:=d*a;
end;
writeln('d=',d:4:2);
readln;
end.
VI. Підсумки уроку і повідомлення домашнього завдання.
1 Для чисел від 1 до 10 обчисліть квадратні корені і виведіть їх у вигляді таблиці.
2 Обчисліть суму додатних елементів послідовності , і=1,2,…10. |