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

Содержание

2. Составить схему и объяснить что будет напечатано
3. Program a1;Var x,y:integer;BeginRead(x);If x5 then y:=0 else y:=1;Writeln(‘y=‘,y)End.x>5x
4. Определить значение переменной zZ:=2Z:=-1Вывод ZZ:=0Z>2Z
5. Составить алгоритм который определит какой четверти принадлежит
6. Верно ли, что хотя бы одно из
7. Даны коэффициенты квадратного уравнения a,b,c найти корниa,b,cD:=b*b-4*a*cДаДаНетНет
8. Обратите внимание!!! При проверке второго условия по
9. Program korni;Var a,b,c,d,x1,x2,x:?????;Begin writeln(‘введи коэффициенты’);
10. Скачать презентацию
11. Похожие презентации

Составить схему и объяснить что будет напечатано программой, если в качестве исходных данных будет выведено значение a)0,b)5,c)10Program a1;Var x,y:integer;BeginRead(x);If x5 then y:=3 else y:=4;Writeln(‘y=‘,y)End.x>5x

Операторные скобки Сложные условияПрезентация к уроку Разработала: учитель информатики лицея №1 г.

Program a1;Var x,y:integer;BeginRead(x);If x5 then y:=0 else y:=1;Writeln(‘y=‘,y)End.x>5x

Определить значение переменной zZ:=2Z:=-1Вывод ZZ:=0Z>2Z

Составить алгоритм который определит какой четверти принадлежит точка с заданными координатами X,YXY(X>0)and(Y>0)(X0)(X0)then

Верно ли, что хотя бы одно из введённых чисел a,b равно 0

Даны коэффициенты квадратного уравнения a,b,c найти корниa,b,cD:=b*b-4*a*cДаДаНетНет

Обратите внимание!!! При проверке второго условия по ветке «Да» и по ветке

Program korni;Var a,b,c,d,x1,x2,x:?????;Begin writeln(‘введи коэффициенты’); readln(a,b,c); d:=sqr(b)-4*a*c;

Задачи для самостоятельного выполненияДаны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный)Даны 3

Слайды презентации

Слайд 2 Составить схему и объяснить что будет напечатано программой,

Составить схему и объяснить что будет напечатано программой, если в качестве

если в качестве исходных данных будет выведено значение a)0,b)5,c)10
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.

x>5

x<5

Слайд 3 Program a1;
Var x,y:integer;
Begin
Read(x);
If x

x>5 then y:=0 else y:=1;
Writeln(‘y=‘,y)
End.

x>5
x

Слайд 4 Определить значение переменной z
Z:=2
Z:=-1
Вывод Z
Z:=0
Z>2
Z

Слайд 5 Составить алгоритм который определит какой четверти принадлежит точка

Составить алгоритм который определит какой четверти принадлежит точка с заданными координатами

с заданными координатами X,Y
X
Y
(X>0)and(Y>0)
(X0)
(X0)then writeln(‘1четверть’)else if (X0) then

writeln(‘2четверть’) else if (X<0)and(Y<0) then writeln(‘3четверть’) else writeln(‘4четверть’)

Слайд 6 Верно ли, что хотя бы одно из введённых

Верно ли, что хотя бы одно из введённых чисел a,b равно

чисел a,b равно 0
If (a=0) or (b=0) then

writeln(‘верно’) else writeln (‘неверно’)

Слайд 7 Даны коэффициенты квадратного уравнения a,b,c найти корни
a,b,c
D:=bb-4a*c

Да
Да
Нет
Нет

Слайд 8 Обратите внимание!!! При проверке второго условия по ветке

Обратите внимание!!! При проверке второго условия по ветке «Да» и по

«Да» и по ветке «Нет» должно быть выполнено несколько

действий!!!

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

Слайд 9 Program korni;
Var a,b,c,d,x1,x2,x:?????;
Begin writeln(‘введи коэффициенты’);

readln(a,b,c);
d:=sqr(b)-4ac;
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.