Программирование условий на Паскале Пример. Составить программу, после выполнения которой меньшее из двух неравных чисел будет увеличено вдвое, а большее. - презентация

1 Программирование условий на Паскале Пример. Составить программу, после выполнения которой меньшее из двух неравных чисел будет увеличено вдвое, а большее оставлено без изменения. Program Problem2; { Увеличения меньшего из двух целых чисел вдвое } var a, b, c : integer; begin write('Введите первое целое число '); readln(a); write('Введите второе целое число '); readln(b); if a < b then c := 2*a else c := 2*b; writeln('Меньшее число ', c div 2); writeln('Оно же увеличенное вдвое ', c) end.

2 Программа имеет один недостаток. В ней не учитывается то, когда введенные числа будут равны. В этом случае на экран надо выдать сообщение: "Числа равны". Program Problem2a; {Программа удвоения меньшего из двух чисел} var a, b, c : integer; begin write('Введите первое число '); readln(a); write('Введите второе число '); readln(b); if a = b then writeln('Числа равны') else begin if a < b then c := 2*a else c := 2*b; writeln('Меньшее число ', c div 2); writeln('Удвоенное меньшее число ', c) end; end.

3 В операторе else записано несколько команд, поэтому в нём установлены операторные скобки: begin end; Такие же операторные скобки могут быть использованы и в операторе then. Пример 3. Составить программу решения квадратного уравнения ax2 + bx + c = Начало. Описание переменных и их типов. 2. Ввод значений коэффициентов. 3. Вычисление значения дискриминанта (d). Если d < 0, тогда уравнение не имеет корней, иначе, если d = 0, тогда уравнение имеет один корень, вычислить значение этого корня и выдать его на экран, иначе, уравнение имеет два корня, вычислить их и выдать на экран. 4. Конец.

4 Program Problem3; { Программа решения квадратного уравнения } var a, b, c, d, x1, x2 : real; begin write('Введите коэффициенты уравнения '); readln(a, b, c); d := b*b - 4*a*c; if d < 0 then writeln('Уравнение не имеет корней') else if d=0 then writeln('Уравнение имеет один корень ',-b/(2*a)) else begin x1 := (-b - sqrt(d))/(2*a); x2 := (-b + sqrt(d))/(2*a); write('Уравнение имеет два различных корня '); writeln('x1 = ', x1, ' x2 = ', x2) end; end.

5 Пример 4. Два прямоугольника заданы длинами сторон. Написать программу, после выполнения которой выясняется, можно ли первый прямоугольник целиком разместить во втором. (Рассмотреть только случай, когда соответствующие стороны прямоугольников параллельны.)

6

7 Program Problem4; var a1, b1, a2, b2 : real; begin write('Введите длину и ширину первого прямоугольника '); readln(a1, b1); write('Введите длину и ширину второго прямоугольника '); readln(a2, b2); if ((a1 < a2) and (b1 < b2)) or ((b1 < a2) and (a1 < b2)) then writeln(1 прямоугольник размещается во 2') else writeln(1 прямоугольник не размещается во 2'); end.