Урок 7-8
Тема: Составление линейных алгоритмов.
Цель: учить составлять линейные алгоритмы, реализовывать их на компьютере,
учить тестировать программу, находить ошибки, корректировать программу.
-
Проверка домашнего задания.
-
Вычислить длину окружности и площадь круга по заданному радиусу.
-
Program z1;
Var r, c, s: real;
Begin
Writeln (‘Введи радиус’);
Readln (r);
c:= 2*3,14*r;
s:=3,14*sqr(r);
Writeln (‘c=’,c);
Writeln (‘s=’,s);
Readln;
End.
-
Вычислить площадь прямоугольного треугольника по его катетам.
Program z2;
Var a,b,s: real;
Begin
Writeln (‘Введи катеты’);
Readln (a,b);
s:=1/2*a*b;
Writeln (‘s=’,s);
Readln;
End.
-
Решение задач.
-
Даны два целых числа. Найти их среднее арифметическое и среднее геометрическое.
-
Даны длины сторон прямоугольного параллелепипеда. Найти объем и площадь боковой поверхности.
-
-
Найти сумму кубов корней уравнения x2 - ax - 2 = 0.
-
Найти целую часть и остаток от деления а на b. а и b целые числа.
Program z5;
Var a, b, c, d: Integer;
Begin
Writeln (‘Введи числа’);
Readln (a, b);
c:= a mod b ;
d:= a div b;
Writeln (‘остаток’,c);
Writeln (‘целая часть’,d);
Readln;
End.
3. Итог урока.
4. Домашнее задание.
-
Вычислить периметр прямоугольного треугольника по его катетам.
-
От полуночи минутная стрелка описала угол в k градусов. Какое время показывают часы.
Program z7;
Var k, ch, min: Integer;
Begin
Writeln (‘Введи угол’);
Readln (k);
ch:= k div 360 ;
min:= k mod 360 div 6;
Writeln (ch, ‘часов’, min, ‘минут’);
Readln;
End.