Читайте также:
|
|
Простейшей алгоритмической структурой является линейная последовательность операций, которые выполняются по очереди и именно в том порядке, в котором они записаны. Линейные алгоритмы и линейные программы обычно предназначены для решения относительно простых задач.
Например: Написать программу вычисления площади треугольника по трем сторонам, пользуясь формулой Герона.
Program tr;
var
a, b, c, p, s: real;
begin
writeln(’Введите длины сторон треугольника’);
readln(a,b,c);
p:= (a + b + c)/2;
s:= sqrt(p*(p - a)*(p - b)*(p - c));
writeln(’Площадь треугольника =’, s:5:2);
end.
Задача Дано целое трехзначное число А. Написать программу выделения количества сотен и количества единиц этого числа.
program p3_3;
var
a, a1, c: integer;
begin
writeln(’Введите число’);
readln(a);
a1:= a mod 10;
c:= a div 100;
writeln(’Количество единиц =’, a1);
writeln(’Количество сотен =’, с);
end.
Задача Вычислить площадь кольца, ширина которого равна А, а отношение радиусов окружностей равно В.
program p3_5;
var
{s - площадь кольца
a - ширина кольца
b - отношение радиусов
r - расстояние от центра кольца до наружной стороны кольца}
s, a, b, r: real;
begin
write('Введите ширину кольца и отношение радиусов:');
readln(a,b);
r:= (-a*b)/(1 - b);
{Поскольку площадь кольца = разности площадей 2 кругов, радиусом
первого является r, а второго - r-a}
s:= Pi*sqr(r) - Pi*sqr(r - a);
writeln(s);
readln
end.
Вопросы для закрепления
klass; Klass_1; summadoxoda;SummaDoxoda;nomerdoma;Nomer_Doma.
– если в программе используется какое-то число?
– если в вычислениях какой-то операнд постоянно меняет свое значение?
– если операнд в выражении хотя бы один раз меняет значение?
Program MyProgram;
Begin
Writeln(‘Привет’);
End.
Дата добавления: 2014-12-19; просмотров: 184 | Поможем написать вашу работу | Нарушение авторских прав |