! Алгоритм, в котором команды выполняются последовательно друг за другом, называется линейным.
Пример: Ввод трех целых чисел, вычисление и вывод их среднего арифметического и среднего геометрического значения.
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.
Пример. Скорость первого автомобиля v1 км/ч, второго - v2 км/ч, расстояние между ними s км. Какое расстояние будет между ними через t ч, если автомобили движутся в разные стороны?
Согласно условию задачи искомое расстояние s1=s+(v1+v2)t (если автомобили изначально двигались в противоположные стороны) или s2=|(v1+v2)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, X2+Y2<=1
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)2+(у1-у2)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, если точка не принадлежит области.
, где х и y - целые числа.