Практическое занятие "Основные алгоритмические конструкции и их описание средствами языков программирования"

Практическое занятие

Тема занятия: Основные алгоритмические конструкции и их описание средствами языков программирования

Цель занятия:познакомить обучающихся с основными алгоритмическими конструкциями, элементами языка Паскаль и типами данных.

Оборудование: компьютер, 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. Вычислить координаты центра тяжести трех материальных точек смассамиm₁,m₂,m₃ и координатами (x₁,y₁), (x₂,y₂), (x₃,y₃) поформулам:

Задача №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.