Линейные алгоритмы на языке Паскаль

Решение задач на Паскале.

Учитель информатики ГБОУ школа №2057 Авдохина Н.А.

Эти материалы я разработала для уроков информатики в 9 и 10 классах. Использую их при изучении темы «Линейные алгоритмы».

Задача №1.

Определить периметр правильного n-угольника, описанного около окружности радиуса r.

АЛГОРИТМ

*вывод('введите количество углов и радиус окружности')

*ввод(N,R)

*вывод('периметр правильного n-угольника, описанного около окружности радиуса ', '=',(N*2*R*Sin(180/N)/Cos(180/N)):6:3)

Задача №2.

Вычислить расстояние между двумя точками с координатами X1, Y1 и X2, Y2.

АЛГОРИТМ

*вывод ('Введите координаты точек 1 и 2')

*ввод (X1,Y1,X2,Y2)

S:=Sqrt(Sqr(X2-X1)+Sqr(Y2-Y1))

*вывод ('расстояние между точками ('X1,Y1) и (' X2,Y2') равно ', S:5:2)

Задача №3.

Смешано v1 литров воды температуры t1 с v2 литрами воды температуры t2. Найти объем и температуру образовавшейся смеси.

АЛГОРИТМ

*вывод('Введите объем и температуру первой порции')

*ввод(V1,T1)

*вывод('Введите объем и температуру второй порции')

*ввод(V2,T2)

*вывод('Объем и температура смеси =',(V1+V2):5:2,' ',

((V1*T1+V2*T2)/(V1+V2)):5:2)

Задача №4.

Треугольник задан координатами своих вершин. Найти:

a) периметр треугольника;

b) площадь треугольника.

АЛГОРИТМ

*вывод('Введите кординаты вершин треугольника')

*ввод(X1,Y1,X2,Y2,X3,Y3)

*а:=Sqrt(Sqr(X1-X2)+Sqr(Y1-Y2))

*b:=Sqrt(Sqr(X2-X3)+Sqr(Y2-Y3))

*c:=Sqrt(Sqr(X3-X1)+Sqr(Y3-Y1))

*p:=(a+b+c)*0.5

*s:=sqrt(p*(p-a)*(p-b)*(p-c))

*вывод('периметр треугольника=',(a+b+c):6:3,' площадь=', (Sqrt(p*(p-a)*(p-b)*(p-c))):6:3)

Задача №5.

Определить время, через которое встретятся два тела, равноускоренно движущиеся навстречу друг другу, если известны их начальные скорости, ускорения и начальное расстояние между ними.

АЛГОРИТМ

*вывод('Введите начальные скорости, ускорения, начальное расстояние между телами')

*ввод(v0,v1,a1,a2,s)

*t1:=(-(v01+v02)+Sqrt(Sqr(v01+v02)+4*(a1+a2)*s)/(2*a1+2*a2)

*t2:=(-(v01+v02)-Sqrt(Sqr(v01+v02)+4*(a1+a2)*s)/(2*a1+2*a2)

*вывод('время, через которое встретятся два тела, равно',t1,t2:4:2)

*анализ полученных результатов (время отрицательное значение принимать не может)

Задача №6.

Найти площадь сектора, радиус которого равен 13.7, а дуга содержит заданное число радиан .

АЛГОРИТМ

*вывод('Введите значение угла в радианах')

*ввод(а)

*S:=(13.7*13.7*a)/2

*вывод('площадь сектора, радиус которого равен 13.7, равна',S:5:2)