Алгоритмы и программы. Афанасьева Т. В - 68 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

68
var
a, b, max : integer;
begin
writeln('Из двух введенных чисел определить максимальное четное');
writeln('Введите a,b');
read(a,b);
if a mod 2=0 then
if b mod 2=0 then
if a>=b then max:=a
else max:=b
else max:=a
else
if b mod 2=0 then
max:=b
else
writeln('Нет четных чисел ');
writeln('Максимальное четное число равно', max:5);
writeln('Нажмите enter.');
readln;
end.
Пример 3.3. Программа проверяющая, можно ли из отрезков с
длинами x, y, z, построить треугольник.
program gar4;
var
x, y, z: real; {Длины отрезков, из которых строится треугольник}
r: boolean; {Переменная логического типа}
begin
writeln('Составить программу проверяющую, можно ли из ');
writeln('отрезков с длинами
x, y, z, построить треугольник.');
writeln('Введите x, y, z');
read(x, y, z);
r:=((x+y)>z) and ((x+z)>y) and ((z+y)>x) ;
if r then
writeln('Треугольник можно построить')
else
writeln('Треугольник нельзя построить');
writeln('Нажмите enter.');
readln;
end.
Пример 3.4. Вычислить значение y в зависимости от значения x.
Если x<–0.5, y=1+sqrt(cos(x)),
x>1, y=1–x*x,

Страницы