Презентация на тему: СЛОЖНЫЕ УСЛОВИЯ НА ПАСКАЛЕ

Program a1; Program a1; Var x,y:integer; Begin Read(x); If x<5 then y:=1 else y:=2; If x>5 then y:=3 else y:=4; Writeln(‘y=‘,y) End.

If (a=0) or (b=0) then writeln(‘верно’) else writeln (‘неверно’) If (a=0) or (b=0) then writeln(‘верно’) else writeln (‘неверно’)

Для реализации таких ситуаций на Паскале использую операторный скобки Для реализации таких ситуаций на Паскале использую операторный скобки begin оператор1;оператор2;……….end;

Program korni; Program korni; Var a,b,c,d,x1,x2,x:?????; Begin writeln(‘введи коэффициенты’); readln(a,b,c); d:=sqr(b)-4*a*c; If d <0 then writeln(‘нет корней’) else if d=0 then begin X:=(-1*b)/(2*a); writeln(‘два равных корня’,x) end else begin x1:=(-1*b+sqrt(d))/(2*a); x2:=(-1*b-sqrt(d))/(2*a); writeln(‘первый корень’,x1,’второй корень’,x2) еnd end.

Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) Даны 3 числа a,b,c. Если а<=b<=c, то числа заменить их квадратами, если a>b>c, то каждое число заменить нулём, в противном случае поменять знак всех чисел.(Двойные условия заменить двумя условиями с использованием соответствующих логических связок) Работа светофора для пешеходов устроена следующим образом, каждые 2 минуты горит красный свет, затем каждые 3 минуты зелёный и т.д.Дано число К определяющее число минут, прошедшее с начала часа, определить какой сигнал горит в данный момент времени.