Реализация линейных алгоритмов

! Алгоритм, в котором команды выполняются последовательно друг за другом, называется линейным.

Пример: Ввод трех целых чисел, вычисление и вывод их среднего арифметического и среднего геометрического значения.

Program Z;

Var a1,a2,a3:integer;

sa,sg:real;

Begin

Writeln('Введи 3 целых числа:'); {Печать на экране просьбы о вводе}

Read(a1,a2,a3);{Ввод данных}

sa:=(a1 + a2 + a3) / 3; {Вычисление среднего арифметического}

sg:=sqrt(abs(a1*a2*a3)); {Вычисление среднего геометрического}

Writeln ('Cр.арифм.=',sa:8:2);

Writeln ('Cр.геом.=',sg:8:2) {Вывод данных}

End.

Пример: Вычисления площади круга. Программа запрашивает у пользователя значение радиуса круга, обеспечивает возможность ввести его значение, рассчитывает и выводит на экран величину площади круга с введенным радиусом. Таким образом, появляется возможность, не внося изменений в программу, вводить различные значения радиуса и получать, соответствующие им значения площади круга. Для этого достаточно несколько раз запустить программу.

Program Inteface;

Var R,S: Real;

Begin

Write('Введите радиус круга '); {Печать на экране просьбы о вводе}

Readln(R); {Ввод значения R}

S:=Pi*SQR(R); {Вычисление площади руга}

Writeln('Площадь круга радиусом ',R:5:2,' равна ',S:8:4)

End.

Пример. Скорость первого автомобиля v₁ км/ч, второго - v₂ км/ч, расстояние между ними s км. Какое расстояние будет между ними через t ч, если автомобили движутся в разные стороны?

Согласно условию задачи искомое расстояние s₁=s+(v₁+v₂)t (если автомобили изначально двигались в противоположные стороны) или s₂=|(v₁+v₂)t-s| (если автомобили первоначально двигались навстречу друг другу).

Program Car;

Var V1, V2, T, S, S1, S2 : Real;

Begin

Write('Введите скорости автомобилей, расстояние между ними и время движения:');

ReadLn(V1, V2, S, T);

S1 := S + (V1 + V2) * T;

S2 := Abs((V1 + V2) * T - S);

WriteLn('Расстояние будет равно ', S1:7:4, ' км или ', S2:7:4, ' км')

End.

Пример.Найти сумму цифр двухзначного натурального числа.

Program Did;

Var A,S1,S2:integer;

Begin

Write ('введите двухзначное число: ');

ReadLn (А); {ввод с клавиатуры числа}

S1:=a div 10; {нахождение первой цифры числа}

S2:=a mod 10; {нахождение последней цифры числа}

WriteLn ('сумма цифр числа ',а, '=', S1+ S2) {вывод результата}

End.

Пример.Дано: c, m, S - часы, минуты, секунды. Найти общее количество секунд с начала суток.

Формула: Sec=c*3600+m*60+s

Program Second;

Var c, m, s : Byte ; Sec: LongInt ;

Begin

Write ('Сколько часов прошло от начала суток? '); Readln (c);

Write ('Сколько минут? '); Readln (m);

Write ('Сколько секунд? '); Readln (s);

Sec :=c*3600+m*60+s;

Writeln ('С начала суток прошло секунд: ', Sec)

End.

Пример.Дано: координаты точки (Х,У). Получить сообщениеTRUE, если точка принадлежит первой четверти окружности с радиусом 1, или сообщение FALSE, если точка не принадлежит области.

Формула: точка с координатами (Х,У) принадлежит первой четверти окружности с радиусом 1 если одновременно выполняются условия: Х>0, Y>0, X²+Y²<=1

Program FH;

Var X,Y : Real;

Begin

Writeln (‘введи координаты точки: X, Y:’); Readln (X,Y);

Writeln ((X1>=0) AND (Y1>=0) AND (SQR(X)+SQR(Y)<=1));

End.

Задания для практической работы по теме линейные алгоритмы.

Составить программы на языке Pascal.

1. Даны два числа. Найти сумму и произведение этих чисел.

2. Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

3. Вычислить значение выражения , где х и y - целые числа.

4. Периметр прямоугольника равен р, одна из сторон равна а. Найти его площадь.

5. Гипотенуза прямоугольного треугольника равна с, острый угол а градусов.

6. Найдите площадь квадрата, если две его противоположные вершины заданы координатами (х1,у2) ,(х2,у2).

7. Определить сколько времени (t) затрачено на путь (s ) со скоростью (v).

8. Вершины треугольника заданы точками (х1,у2) ,(х2,у2), (х3,у3). Используя формулу Герона, найдите его площадь.(АВ=Sqrt((х1-х2)²+(у1-у2)²).

9. Сумма вклада S руб., ее вкладывают в банк под C % годовых на N лет. Какая прибыль будет на вкладе.

10. Подсчитать стоимость поездки на S км. : расход бензина на 100 км.-L литров, стоимость 1 литра бензина K руб.

11. Вычислить стоимость покупки со скидкой : покупка А руб., скидка С %.

12. Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь.

13. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) - T2 ч. Определить путь S, пройденный лодкой.

14. Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.

15. Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.

16. Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.

17. Длительность некоторого физического эксперимента измеряется в секундах; определить количество часов(полных), минут и секунд.

18. С начала месяца прошло m часов. Определить какое сейчас число.

19. С начала суток прошло k минут. Определить который сейчас час. (В часах и минутах).

20. Дано: координаты точки (Х,У). Получить сообщениеTRUE, если точка принадлежит 2,3,4 четверти окружности с радиусом R, или сообщение FALSE, если точка не принадлежит области.