Условие с использованием логического «ИЛИ»
If (k = 34) or (n > 23.7) then begin
Операторы
end;
21
Вычислить и напечатать значение функции Y
Y=e (x1+3x2), где
x1 – меньший корень;
x2 – больший корень уравнения ax2+bx+c=0.
a, b, c задаются произвольно с клавиатуры (a ≠ 0).
22
program prim;
var y,x1,x2,a,b,c,d,buf: real; begin
readln(a,b,c); d:=sqr(b)-4*a*c;
if d>=0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);
23
if x1 > x2 then begin buf:=x1; x1:=x2; x2:=buf; end;
y:=exp(x1+3*x2);
Writeln(’ |
y=’,y:6:2); |
end |
|
else |
|
writeln(’ |
d<0’); |
end. |
24 |
Условный оператор выбора |
||
Оператор СASE |
|
|
CASE <ключ_выбора> OF <список_выбора> |
||
[ELSE <операторы>] END |
||
CASE, OF, ELSE, END — зарезервированные слова СASE S OF |
||
<ключ_выбора> — выражение любого порядкового |
C1: <оператор 1>; |
|
рассмотренных, кроме типов real и string) |
C2: <оператор 2>; |
|
|
||
<список_выбора> — одна или более конструкций вида: |
||
<константа выбора> : |
. . . . . . . . . . |
|
|
||
<константа_выбора> — |
Cn: <оператор n>; |
|
что и выражение <ключ_выбора>; |
|
|
<операторы> — произвольные |
||
Паскаля. |
ELSE <оператор> |
|
END; |
||
|
||
Программа, которая при вводе с
клавиатуры символов ‘Y’ или ‘N’ напечатает соответственно ДА или НЕТ.
program slovo; |
|
||
Введите символ |
|||
var c:char; |
|
||
begin |
|
y |
|
writeln('Введите символ'); |
|
||
readln(c); |
|
ДА |
|
CASE c |
OF |
||
|
|||
'Y','y': writeln('ДА'); 'N','n': writeln('НЕТ');
ELSE writeln('Неправильно введен символ')
end end.
26