Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 19 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

19
Этот этап в предыдущих задачах отсутствовал, т.к. метод решения был очевиден (с
использованием полученных расчетных формул). В этой задаче необходимо применить
формулы решения квадратного уравнения.
В общем виде уравнение имеет вид: ах
2
+ bх + с = 0.
Определим дискриминант и корни: D = b
2
- 4ac ; x1 =
−+bD
a2
; x2 =
−−bD
a2
.
Для данной задачи справедливы следующие соотношения:
a = g; b = -2v; c = 2s; x = t.
Тогда: D = 4v
2
- 4g·2s = 4v
2
- 8gS; t1=
2
2
vD
g
+
; t2 =
2
2
vD
g
−
Разработка схемы алгоритма.
Вычисляем последовательно D, t1, t2. Схема алгоритма приведена на рис.5.
Рис.5. Схема алгоритма
2.7. Примеры программ линейных процессов
Запишем программы рассмотренных выше задач.
Задание А.
Program TREYG;
Var
a, b, c, s : real;
Begin
write('введите длину катета: ');
readln(a);
write('введите длину гипотенузы: ');
readln(с);
b : = SQRT(c * c - a * а);
S : = a * b / 2;
WRITELN('Длина второго катета=', b:6:1);
WRITELN('Площадь треугольника=', s:8:2)
End.
Контрольный тест.
Допустим а = 5; с = 6.
Тогда b =
()36 25− =
11
≈ 3,3;
D=4v
2
-8gs
вывод t1,t2
ввод s,v,g
конец
t1=
2
2
vD
g
+
t2=
2
2
vD
g
−
начало 
Этот этап в предыдущих задачах отсутствовал, т.к. метод решения был очевиден (с
использованием полученных расчетных формул). В этой задаче необходимо применить
формулы решения квадратного уравнения.
В общем виде уравнение имеет вид:     ах2+ bх + с = 0.
                                                      −b + D           −b − D
Определим дискриминант и корни: D = b2- 4ac ; x1 =             ; x2 =         .
                                                         2a               2a
Для данной задачи справедливы следующие соотношения:
a = g;  b = -2v; c = 2s; x = t.
                                         2v + D                 2v − D
Тогда: D = 4v2 - 4g·2s = 4v2 - 8gS;  t1=          ;       t2 =
                                            2g                     2g
Разработка схемы алгоритма.
Вычисляем последовательно D, t1, t2. Схема алгоритма приведена на рис.5.
                                           начало

                                        ввод s,v,g


                                       D=4v2 -8gs

                                       t1= 2 v +    D
                                              2g


                                       t2= 2 v −    D
                                              2g


                                        вывод t1,t2

                                           конец
                                 Рис.5. Схема алгоритма
2.7. Примеры программ линейных процессов
Запишем программы рассмотренных выше задач.
Задание А.
Program TREYG;
Var
    a, b, c, s : real;
Begin
   write('введите длину катета: ');
   readln(a);
   write('введите длину гипотенузы: ');
   readln(с);
   b : = SQRT(c * c - a * а);
   S : = a * b / 2;
   WRITELN('Длина второго катета=', b:6:1);
   WRITELN('Площадь треугольника=', s:8:2)
End.
Контрольный тест.
Допустим а = 5; с = 6.
Тогда b = ( 36 − 25) = 11 ≈ 3,3;

                                                                             19

Страницы