Практическое занятие
Тема занятия: Основные алгоритмические конструкции и их описание средствами языков программирования
Цель занятия:познакомить обучающихся с основными алгоритмическими конструкциями, элементами языка Паскаль и типами данных.
Оборудование: компьютер, PascalABC.
Теоретическая часть
Служебные слова. К спецсимволам относятся и служебные слова, смысл которых определен однозначно. Служебные слова не могут быть использованы для других целей. С точки зрения языка, они являются едиными элементами алфавита. Вот некоторые служебные слова: Program,Var,array,If,Do,While и др.
Идентификаторы. Идентификатором называется символическое имя определенного программного объекта. Такими объектами являются: имена констант, переменных, типов данных, процедур и функций программ. Длина идентификатора может быть произвольной, но значащими являются только первые 63 символа.
Комментарии. Следующие конструкции представляют собой комментарии и поэтому пропускаются компилятором:
Пример 1. Определить площадь трапеции по введенным значениям оснований (a и b) и высоты (h).
Решение:
programtrapecia;
vara,b,h,s:real;
begin
write('введите значение а=');
read(a);
write('введитезначение b=');
read(b);
write('введите значение h=');
read(h);
s:=((a+b)/2)*h;
write('Площадьтрапеции =',s);
end.
Задание: записать в тетради линейный алгоритм, используя блок-схему и условие задачи, в символьной форме на языке Паскаль, предварительно просмотрев видеороликhttps://www.youtube.com/watch?v=XMDnqdlm_Wk Переменные и типы данных. После записи в тетради проверить выполнение программы, используя PascalABC.
Задача №1. Вычислитьплощадьповерхностииобъемусеченного конусапоследующимформулам
Задача №2. Вычислить координаты центра тяжести трех материальных точек смассамиm1,m2,m3 и координатами (x1,y1), (x2,y2), (x3,y3) поформулам:
Задача №3
Вычислить площадь треугольника со сторонами a, b, c по формуле Герона:
где p – полупериметр, вычисляемый по формуле(a+b+c)/2
Задача №4. Вычислить медианы треугольника со сторонами a, b, c поформулам:
Правильные ответы:
Задача №1
Решение:
PROGRAMKONUS;
VARR,R1,l,h,S,V:REAL;
BEGIN
WRITE('ВВЕДИТЕРАДИУС = ');
READ(R);
WRITE('ВВЕДИТЕ РАДИУС = ');
READ(R1);
WRITE('ВВЕДИТЕ ДЛИНУ = ');
READ(l);
WRITE('ВВЕДИТЕ ВЫСОТУ = ');
READ(h);
S:=PI*(R+R1)*l+PI*R*R+PI*R1*R1;
V:=(1/3)*PI*(R*R+R1*R1+R*R1)*h;
WRITELN('ПЛОЩАДЬ = ', S);
WRITELN('ОБЪЕМ = ', V);
END.
Задача №2
Решение:
PROGRAM CENTER;
VARx1,x2,x3,y1,y2,y3,m1,m2,m3,xc,yc:REAL;
BEGIN
WRITE('ВВЕДИТЕАБСЦИССЫ = ');
READ(x1);
READ(x2);
READ(x3);
WRITE('ВВЕДИТЕ ОРДИНАТЫ = ');
READ(y1);
READ(y2);
READ(y3);
WRITE('ВВЕДИТЕМАССЫ = ');
READ(m1);
READ(m2);
READ(m3);
xc:=(m1*x1+m2*x2+m3*x3)/(m1+m2+m3);
yc:=(m1*y1+m2*y2+m3*y3)/(m1+m2+m3);
WRITELN('КООРДИНАТЫ ЦЕНТРА ТЯЖЕСТИ АБСЦИССА= ', xc);
WRITELN('КООРДИНАТЫ ЦЕНТРА ТЯЖЕСТИ ОРДИНАТА= ', yc);
END.
Задача №3
PROGRAMGERON;
VARa,b,c,p,S:REAL;
BEGIN
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА а = ');
READ(a);
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА b = ');
READ(b);
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА c = ');
READ(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
WRITELN('ПЛОЩАДЬ ТРЕУГОЛЬНИКА = ', S);
END.
Задача №4
PROGRAM MEDIANA;
VARa,b,c,ma,mb,mc:REAL;
BEGIN
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА а = ');
READ(a);
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА b = ');
READ(b);
WRITE('ВВЕДИТЕ СТОРОНУ ТРЕУГОЛЬНИКА c = ');
READ(c);
ma:=0.5*sqrt(2*b*b+2*c*c-a*a);
mb:=0.5*sqrt(2*a*a+2*c*c-b*b);
mc:=0.5*sqrt(2*a*a+2*b*b-c*c);
WRITELN('МЕДИАНА ma = ', ma);
WRITELN('МЕДИАНА mb = ', mb);
WRITELN('МЕДИАНА mc = ', mc);
END.
