Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Решение задач по информатике Программирование разветвляющихся алгоритмов

Содержание

ПОВТОРЕНИЕ
Задачи по теме “Организация ветвления на языке Паскаль” ПОВТОРЕНИЕ Разветвляющийся алгоритм - это алгоритм, в котором в зависимости от условия выполняется Полный оператор условного перехода имеет вид:if условие Краткая форма оператора условного перехода имеет вид:if условие then оператор1; еслито Примеры условного оператораИнформатика и ИКТ. 9 классНаибольшее из двух чисел увеличить в РЕШЕНИЕ ЗАДАЧ Составить программу для нахождения площади треугольника по формуле Герона.Задача №1. Информатика и ИКТ. 9 классPROGRAM treug;  var a,b,c,p,S:real;BEGIN  write(‘Введите стороны: Задача №2.Составить программу, которая по трем введенным вами числами определит, могут ли Program 8;Var a,b,с:integer;BeginReadln (a,b,c);If a>=b+c then Writeln (‘Нет’)Else if b>=a+с then Writeln Задача №3.Ввести число. Если оно неотрицательно, вычесть из него 10, в противном Program 1;Var a:integer;BeginReadln (a);If a>0 then a:=a-10 else a:=a+10;Writeln (a);End. Задача №4.Ввести два числа. Если их произведение отрицательно, умножить его на -2 Program 2;Var a,b,d:integer;BeginReadln (a,b);d:=a*b;If d Задача №5.Ввести два числа. Если сумма этих чисел четная, найти произведение, в Program 3;Var a,b:integer; d:real;BeginReadln (a,b);d:=a+b;If d mod 2=0 then d:=a*b else d:=a/b;Writeln Задача №6.Ввести два числа. Вычесть из большего меньшее. Program 4;Var a,b,d:integer;BeginReadln (a,b);If a>b then d:=a-b else d:=b-a;Writeln (d);End. a - Задача №7.Ввести число. Если оно больше 10, разделить его на 2, если Program 5;Var a:real;BeginReadln (a);If a Задача №6.Ввести два числа. Если их сумма больше 100, то сумму уменьшить Program 6;Var a,b:integer; S:real;BeginReadln (a,b);S:=a+b;If S>100 then S:=S/2 else S:=S*2;Writeln (S);End. a Задача №7.Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число Program 7;Var a,b,d,s:integer;BeginReadln (a);b:= a div 10; d:= a mod 10; S:= ТЕСТ 1. Какое значение будет напечатано в результате работы программы:Program 1;Var a,b,x:integer;Begina:=3; b:=-5;If a 2. Какое значение будет напечатано в результате работы программы:Program 2;Var a,b,x:integer;Begina:=3; b:=-5;If a 3. Какое значение будет напечатано в результате работы программы:Program 3;Var a,b,x:integer;Begina:=3; b:=-5;If 4. Какое значение будет напечатано в результате работы программы:Program 4;Var a,b,x:integer;Begina:=3; b:=-5;If a 5. Какое значение будет напечатано в результате работы программы:Program 5;Var a,b,x:integer;Begina:=3; b:=-5;If СПАСИБО
Слайды презентации

Слайд 2 ПОВТОРЕНИЕ

ПОВТОРЕНИЕ

Слайд 3 Разветвляющийся алгоритм

- это алгоритм, в котором в

Разветвляющийся алгоритм - это алгоритм, в котором в зависимости от условия

зависимости от условия выполняется либо одна, либо другая последовательность

действий.


Слайд 4 Полный оператор условного перехода имеет вид:


if условие

Полный оператор условного перехода имеет вид:if условие 	 	  then оператор1 				 					else оператор2; иначетоесли

then оператор1

else оператор2;
















иначе

то

если


Слайд 5 Краткая форма оператора условного перехода имеет вид:


if условие

Краткая форма оператора условного перехода имеет вид:if условие then оператор1; еслито

then оператор1;







если
то


Слайд 6 Примеры условного оператора
Информатика и ИКТ. 9 класс
Наибольшее из

Примеры условного оператораИнформатика и ИКТ. 9 классНаибольшее из двух чисел увеличить

двух чисел увеличить в 2 раза


if x>y then x:=2*x else y:=2*y;

3. Является число N четным или нечетным

if N mod 2=0 then write(‘четное’)
else write(‘нечетное’);

2. Найти квадратный корень выражения X-2

if x-2>=0 then y:=sqrt(x-2);


Слайд 7 РЕШЕНИЕ ЗАДАЧ

РЕШЕНИЕ ЗАДАЧ

Слайд 8 Составить программу для нахождения площади треугольника по формуле

Составить программу для нахождения площади треугольника по формуле Герона.Задача №1.

Герона.
Задача №1.


Слайд 9
Информатика и ИКТ. 9 класс
PROGRAM treug;
var

Информатика и ИКТ. 9 классPROGRAM treug; var a,b,c,p,S:real;BEGIN write(‘Введите стороны: ’);

a,b,c,p,S:real;
BEGIN
write(‘Введите стороны: ’); readln(a,b,c);
p:=(a+b+c)/2;

if (p-a)*(p-b)*(p-c)>=0 then
begin
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(‘S=‘,S)
end
else writeln(‘Треугольник не существует’);
END.

Слайд 10 Задача №2.
Составить программу, которая по трем введенным вами

Задача №2.Составить программу, которая по трем введенным вами числами определит, могут

числами определит, могут ли эти числа быть длинами сторон

треугольника.








Слайд 11 Program 8;
Var a,b,с:integer;
Begin
Readln (a,b,c);
If a>=b+c then Writeln (‘Нет’)
Else

Program 8;Var a,b,с:integer;BeginReadln (a,b,c);If a>=b+c then Writeln (‘Нет’)Else if b>=a+с then

if b>=a+с then Writeln (‘Нет’)
Else if c>=a+b then Writeln

(‘Нет’)
Else Writeln (‘Да’);
End.





a, b, c – длины сторон треугольника




Слайд 12 Задача №3.
Ввести число. Если оно неотрицательно, вычесть из

Задача №3.Ввести число. Если оно неотрицательно, вычесть из него 10, в

него 10, в противном случае прибавить к нему 10.








Слайд 13









Program 1;
Var a:integer;
Begin
Readln (a);
If a>0 then a:=a-10 else

Program 1;Var a:integer;BeginReadln (a);If a>0 then a:=a-10 else a:=a+10;Writeln (a);End.

a:=a+10;
Writeln (a);
End.









Слайд 14 Задача №4.
Ввести два числа. Если их произведение отрицательно,

Задача №4.Ввести два числа. Если их произведение отрицательно, умножить его на

умножить его на -2 и вывести на экран, в

противном случае увеличить его
в 3 раза и вывести на экран.








Слайд 15

Program 2;
Var a,b,d:integer;
Begin
Readln (a,b);
d:=a*b;
If d

Program 2;Var a,b,d:integer;BeginReadln (a,b);d:=a*b;If d

d:=d*3;
Writeln (d);
End.











a - первое число
b - второе число
d

– произведение




Слайд 16 Задача №5.
Ввести два числа. Если сумма этих чисел

Задача №5.Ввести два числа. Если сумма этих чисел четная, найти произведение,

четная, найти произведение, в противном случае, найти частное этих

чисел.








Слайд 17

Program 3;
Var a,b:integer; d:real;
Begin
Readln (a,b);
d:=a+b;
If d mod 2=0

Program 3;Var a,b:integer; d:real;BeginReadln (a,b);d:=a+b;If d mod 2=0 then d:=a*b else

then d:=a*b else d:=a/b;
Writeln (d);
End.




a - первое число
b

- второе число
d – сумма,частное, произведение




Слайд 18 Задача №6.
Ввести два числа. Вычесть из большего меньшее.







Задача №6.Ввести два числа. Вычесть из большего меньшее.

Слайд 19

Program 4;
Var a,b,d:integer;
Begin
Readln (a,b);
If a>b then d:=a-b else

Program 4;Var a,b,d:integer;BeginReadln (a,b);If a>b then d:=a-b else d:=b-a;Writeln (d);End. a

d:=b-a;
Writeln (d);
End.





a - первое число
b - второе число
d

– разность чисел




Слайд 20 Задача №7.
Ввести число. Если оно больше 10, разделить

Задача №7.Ввести число. Если оно больше 10, разделить его на 2,

его на 2, если меньше или равно 10, то

умножить на 5.








Слайд 21

Program 5;
Var a:real;
Begin
Readln (a);
If a

Program 5;Var a:real;BeginReadln (a);If a

a:=a/2;
Writeln (a);
End.



Слайд 22 Задача №6.
Ввести два числа. Если их сумма больше

Задача №6.Ввести два числа. Если их сумма больше 100, то сумму

100, то сумму уменьшить
в 2 раза, в противном

случае увеличить в 2 раза.








Слайд 23

Program 6;
Var a,b:integer; S:real;
Begin
Readln (a,b);
S:=a+b;
If S>100 then S:=S/2

Program 6;Var a,b:integer; S:real;BeginReadln (a,b);S:=a+b;If S>100 then S:=S/2 else S:=S*2;Writeln (S);End.

else S:=S*2;
Writeln (S);
End.



a - первое число
b - второе

число
S – сумма чисел




Слайд 24 Задача №7.
Ввести двухзначное число. Если сумма цифр числа

Задача №7.Ввести двухзначное число. Если сумма цифр числа четная, то увеличить

четная, то увеличить число на 2 ,в противном случае

уменьшить на 2.








Слайд 25


Program 7;
Var a,b,d,s:integer;
Begin
Readln (a);
b:= a div 10; d:=

Program 7;Var a,b,d,s:integer;BeginReadln (a);b:= a div 10; d:= a mod 10;

a mod 10; S:= b+d;
If s mod 2=0 then

a:=a+2 else a:=a-2;
Writeln (d);
End.

a - двузначное число
b -первая цифра числа
d - вторая цифра числа
S - сумма цифр числа


Слайд 26 ТЕСТ

ТЕСТ

Слайд 27 1. Какое значение будет напечатано в результате работы

1. Какое значение будет напечатано в результате работы программы:Program 1;Var a,b,x:integer;Begina:=3; b:=-5;If a

программы:

Program 1;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

(x);
End.

1.-15 2.-50 3.-3 4.-10 5.программа неработоспособна






Слайд 28 2. Какое значение будет напечатано в результате работы

2. Какое значение будет напечатано в результате работы программы:Program 2;Var a,b,x:integer;Begina:=3; b:=-5;If a

программы:

Program 2;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

(x);
End.

1.-2 2.-16 3.-17 4.-420 5.программа неработоспособна






Слайд 29 3. Какое значение будет напечатано в результате работы

3. Какое значение будет напечатано в результате работы программы:Program 3;Var a,b,x:integer;Begina:=3;

программы:

Program 3;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a*7 else b:=b*4;
x:=a-b;
Writeln

(x);
End.

1.8 2.26 3.23 4.41 5.программа неработоспособна






Слайд 30 4. Какое значение будет напечатано в результате работы

4. Какое значение будет напечатано в результате работы программы:Program 4;Var a,b,x:integer;Begina:=3; b:=-5;If a

программы:

Program 4;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a

(x);
End.

1.-15 2.-40 3.-24 4.-64 5.программа неработоспособна






Слайд 31 5. Какое значение будет напечатано в результате работы

5. Какое значение будет напечатано в результате работы программы:Program 5;Var a,b,x:integer;Begina:=3;

программы:

Program 5;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a+b else b:=b-a;
x:=a*b;
Writeln

(x);
End.

1.15 2.40 3.20 4.10 5.программа неработоспособна






  • Имя файла: reshenie-zadach-po-informatike-programmirovanie-razvetvlyayushchihsya-algoritmov.pptx
  • Количество просмотров: 143
  • Количество скачиваний: 0