Выбор минимального из трех введенных целых чисел.
Решение:
Program pr1;
Var a, b, c, m: integer;
BEGIN
Write('a, b, c='); readln(a, b, c);
if a<b then m:=a else m:=b; {выбор минимального из a и b}
if c<m then m:=c; {сравнение с третьим числом}
writeln('Мin=', m); {вывод результата}
readln
END.
Результат:
1 случай:
a, b, c= 15 6 9
Мin=6
2 случай:
a, b, c= 1 45 4
Мin=1
3 случай:
a, b, c= 25 16 9
Мin=9
Пример 2.
Решение квадратного уравнения вида Ax2 + Bx + C = 0.
Решение:
Program pr2;
Var a, b, c, d, x1, x2: real;
BEGIN
Write('a, b, c='); readln(a, b, c); {вводим коэффициенты квадратного уравнения}
d:=sqr(b)-4*a*c; {вычисляем дискриминант}
if d>0 then begin {если дискриминант положительный, то вы числяем два корня}
x1:=(-b+sqrt(d))/(2*a); writeln('x1=', x1:6:2);
x2:=(-b-sqrt(d))/(2*a); writeln('x2=', x2:6:2)
end
else if d=0 then begin { иначе, если дискриминант равен 0, то вычисляем один корень}
x1:=-b/(2*a); writeln('x=', x1:6:2)
end
else writeln('Корней нет'); {иначе выводим сообщение ‘Корней нет’}
readln
END.
Результат:
1 случай:
a, b, c= 1 -2 1
x= 1.00
2 случай:
a, b, c= 1 -6 8
x1= 4.00
x2= 2.00
3 случай:
a, b, c= 5 1 2
Корней нет
Пример 3.
Определить, есть ли в записи трехзначного числа хотя бы одна нечетная цифра.
|
|
Решение:
program pr3;
Var a, a1, a2, a3: integer;
BEGIN
Write('a='); readln(a);
a1:= a div 100;
a2:= (a div 10) mod 10;
a3:= a mod 10;
if (a1 mod 2=1) or (a2 mod 2=1) or (a3 mod 2=1) {Если 1-я цифра нечетная, или 2-я нечетная, или 3-я нечетная, то выводим ‘Yes’, иначе выводим ‘No’}
then writeln('Yes') else writeln('No'); readln;
END.
Результат:
1 случай:
a=418
Yes
2 случай:
a=246
No