Презентация Реализация ветвлений в алгоритмах. Структурные операторы (Object Pascal) онлайн
На нашем сайте вы можете скачать и просмотреть онлайн доклад-презентацию на тему Реализация ветвлений в алгоритмах. Структурные операторы (Object Pascal) абсолютно бесплатно. Урок-презентация на эту тему содержит всего 21 слайд. Все материалы созданы в программе PowerPoint и имеют формат ppt или же pptx. Материалы и темы для презентаций взяты из открытых источников и загружены их авторами, за качество и достоверность информации в них администрация сайта не отвечает, все права принадлежат их создателям. Если вы нашли то, что искали, отблагодарите авторов - поделитесь ссылкой в социальных сетях, а наш сайт добавьте в закладки.
Оцените презентацию от 1 до 5 баллов!
- Тип файла:ppt / pptx (powerpoint)
- Всего слайдов:21 слайд
- Для класса:1,2,3,4,5,6,7,8,9,10,11
- Размер файла:126.50 kB
- Просмотров:123
- Скачиваний:0
- Автор:неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Реализация ветвлений в алгоритмах
Структурные операторы
№2 слайд
Содержание слайда: План
1. Понятие «условие».
2. Условный оператор ЯП Object Pascal
3. Составной оператор ЯП Object Pascal
4. Оператор выбора ЯП Object Pascal
№3 слайд
Содержание слайда: 1. Понятие «условие»
Условие – это свойство величин, которое может соблюдаться или не соблюдаться для их конкретных значений.
Условие представляет собой логическое выражение, вычисляемое в первую очередь. Значения: True или False.
№4 слайд
Содержание слайда: Условие:
Условие:
- простое
- составное
(a>90) or (b>90) or (c>90)
'Треугольник - тупоугольный'
(a<90) and (b<90) and (c<90)
'Треугольник - остроугольный'
? Условие существование треугольника ?
№5 слайд
Содержание слайда: Таблица истинности
№6 слайд
Содержание слайда: 2. Условный оператор
Полная форма
№7 слайд
Содержание слайда: Задача: определить вид треугольника по введенным углам
Задача: определить вид треугольника по введенным углам
program Pr2;
Var a,b,c:integer;
begin
writeln(‘введите углы a, b, c');
readln(a,b,c);
if (a>90)or(b>90)or(c>90) then writeln(‘Треугольник - тупоугольный')
else writeln(‘треугольник - остроугольный');
readln;
end.
№8 слайд
Содержание слайда: Задача: вывести на экран максимальное из двух чисел
Задача: вывести на экран максимальное из двух чисел
Program Pr3;
Var x,y,max:integer;
begin
writeln(‘введите два числа x,y');
readln(x,y);
if x>y then max:=x
else max:=y;
writeln('max = ', max);
readln;
end.
№9 слайд
Содержание слайда: Неполная форма
Если условие
То
серия
Конец - если
№10 слайд
Содержание слайда: Задача: вывести на экран максимальное из двух чисел
Задача: вывести на экран максимальное из двух чисел
Var x, y, max:integer;
begin
…
max:=y;
if x>max then max:=x;
…
end.
№11 слайд
Содержание слайда: 3. Составной оператор
последовательность произвольных операторов программы, заключенная в операторные скобки - зарезервированные слова begin ... end
begin
a:=a+1;
f:=f*a;
end;
№12 слайд
Содержание слайда: begin
begin
begin
begin
end;
end;
end;
№13 слайд
Содержание слайда: Задача: найти площадь треугольника по формуле Герона
Задача: найти площадь треугольника по формуле Герона
Var a, b, c, r :real;
Begin
Writeln(’ введите стороны’);
Readln(a,b,c);
if (a>0) and (c>0) and (b>0)
then
begin
p:=(a+b+c)/2;
r:=sqrt(sqr(p-a)+sqr(p-b)+sqr(p-c));
writeln(’площадь =’,r)
end
else
writeln (’треугольник не существует’);
Readln
end.
№14 слайд
Содержание слайда: Составной условный оператор
Составной условный оператор
if <условие1> then
if <условие2> then
<оператор1>
else <оператор2>;
№15 слайд
Содержание слайда:
if <условие1> then
begin
if <условие2> then <оператор1>
end
else <оператор2>;
№16 слайд
Содержание слайда: 4. Оператор выбора
Выбор выражение
Список значений 1 выполнять Серия 1
Список значений 2 выполнять Серия 2
…
Список значений k выполнять Серия k
Иначе выполнять Серия 0
Конец- выбор
№17 слайд
Содержание слайда:
№18 слайд
Содержание слайда: case <выражение> of
case <выражение> of
<список значений 1>: <оператор 1>;
<список значений 2>: <оператор 2>;
...
<список значений n>: <оператор n>;
else <оператор n+1>
end;
№19 слайд
Содержание слайда: Задача: определить порядок целого числа n от 0 до 999
Var N: integer;
Begin
Randomize;
N:=Random(1000);
case N of
0..9: writeln('однозначное');
10..99: writeln('двузначное');
100..999: writeln('трехзначное')
else
writeln('Число’, N,’не входит в указанный диапазон')
end;
…
№20 слайд
Содержание слайда: Задача: определить тип символа
Var symbol: Char;
…
case symbol of
’0’..’9’: writeln('это цифра');
’a’..’z’: writeln('строчная буква');
’A’..’Z’: writeln('прописная буква');
else writeln(‘Это другой символ’)
end;
№21 слайд
Содержание слайда: case L of
case L of
1..5: writeln(‘Low’);
6..9: writeln(‘High’);
0, 10..99: writeln(‘Out of range’);
else writeln(‘ ’)
end;
if (L>=1) and (L<=5) then writeln(‘Low’)
else if (L>=6) and (L<=9) then
writeln(‘High’)
else if (L=0) or (L>=10) and (L<=99) then
writeln('Out of range‘)
else writeln(‘ ’);
Скачать все slide презентации Реализация ветвлений в алгоритмах. Структурные операторы (Object Pascal) одним архивом:
