🗊Презентация Управляющие конструкции (Delphi / Pascal, глава 2)

Категория: Устройства и комплектующие
Нажмите для полного просмотра!
Управляющие конструкции (Delphi / Pascal, глава 2), слайд №1Управляющие конструкции (Delphi / Pascal, глава 2), слайд №2Управляющие конструкции (Delphi / Pascal, глава 2), слайд №3Управляющие конструкции (Delphi / Pascal, глава 2), слайд №4Управляющие конструкции (Delphi / Pascal, глава 2), слайд №5Управляющие конструкции (Delphi / Pascal, глава 2), слайд №6Управляющие конструкции (Delphi / Pascal, глава 2), слайд №7Управляющие конструкции (Delphi / Pascal, глава 2), слайд №8Управляющие конструкции (Delphi / Pascal, глава 2), слайд №9Управляющие конструкции (Delphi / Pascal, глава 2), слайд №10Управляющие конструкции (Delphi / Pascal, глава 2), слайд №11Управляющие конструкции (Delphi / Pascal, глава 2), слайд №12Управляющие конструкции (Delphi / Pascal, глава 2), слайд №13Управляющие конструкции (Delphi / Pascal, глава 2), слайд №14Управляющие конструкции (Delphi / Pascal, глава 2), слайд №15Управляющие конструкции (Delphi / Pascal, глава 2), слайд №16Управляющие конструкции (Delphi / Pascal, глава 2), слайд №17Управляющие конструкции (Delphi / Pascal, глава 2), слайд №18Управляющие конструкции (Delphi / Pascal, глава 2), слайд №19Управляющие конструкции (Delphi / Pascal, глава 2), слайд №20Управляющие конструкции (Delphi / Pascal, глава 2), слайд №21Управляющие конструкции (Delphi / Pascal, глава 2), слайд №22Управляющие конструкции (Delphi / Pascal, глава 2), слайд №23
Скачать
Вы можете ознакомиться и скачать презентацию на тему Управляющие конструкции (Delphi / Pascal, глава 2). Доклад-сообщение содержит 23 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1


Глава 2 Управляющие конструкции МГТУ им. Н.Э. Баумана Факультет Информатика и системы управления Кафедра Компьютерные системы и сети Лектор: д.т.н., проф. Иванова Галина Сергеевна
Описание слайда:
Глава 2 Управляющие конструкции МГТУ им. Н.Э. Баумана Факультет Информатика и системы управления Кафедра Компьютерные системы и сети Лектор: д.т.н., проф. Иванова Галина Сергеевна

Слайд 2


2.1 Оператор условной передачи управления Оператор условной передачи управления используется при обработке вариантов вычислений и реализует конструкцию ветвления. Оператор – простой или составной оператор языка. Составной оператор – блок операторов в операторных скобках begin …end. Пример. Разработать программу, которая вводит число от 0 до 15 и выводит его шестнадцатеричный эквивалент, например: 8  ‘8’ 12  ‘С’
Описание слайда:
2.1 Оператор условной передачи управления Оператор условной передачи управления используется при обработке вариантов вычислений и реализует конструкцию ветвления. Оператор – простой или составной оператор языка. Составной оператор – блок операторов в операторных скобках begin …end. Пример. Разработать программу, которая вводит число от 0 до 15 и выводит его шестнадцатеричный эквивалент, например: 8  ‘8’ 12  ‘С’

Слайд 3


Программа отображения 16-тиричных эквивалентов Program Ex2_1; {$APPTYPE CONSOLE} uses SysUtils; Var Ch:char; n:Integer; Begin Write('Input n:'); ReadLn(n); if (n>=0)and(n<=15) then begin if n<10 then Ch:=chr(ord('0')+n) else Ch:=chr(ord('A')+n-10); Write ('n=',Ch); end else WriteLn('Error'); ReadLn; End.
Описание слайда:
Программа отображения 16-тиричных эквивалентов Program Ex2_1; {$APPTYPE CONSOLE} uses SysUtils; Var Ch:char; n:Integer; Begin Write('Input n:'); ReadLn(n); if (n>=0)and(n<=15) then begin if n<10 then Ch:=chr(ord('0')+n) else Ch:=chr(ord('A')+n-10); Write ('n=',Ch); end else WriteLn('Error'); ReadLn; End.

Слайд 4


Правило вложения
Описание слайда:
Правило вложения

Слайд 5


2.2 Оператор выбора Оператор позволяет программировать несколько вариантов решения. Пример: case 1+2*j of 3: z:=sin(x); -1..1,10: z:=cos(x); else z:=0; end; Пример. Разработать программу, вычисляющую значения функции. Функция выбирается пользователем из нескольких заданных. Enter cod: 1 – y=sin x 2 – y=cos x 3 – y=exp x
Описание слайда:
2.2 Оператор выбора Оператор позволяет программировать несколько вариантов решения. Пример: case 1+2*j of 3: z:=sin(x); -1..1,10: z:=cos(x); else z:=0; end; Пример. Разработать программу, вычисляющую значения функции. Функция выбирается пользователем из нескольких заданных. Enter cod: 1 – y=sin x 2 – y=cos x 3 – y=exp x

Слайд 6


Схема алгоритма
Описание слайда:
Схема алгоритма

Слайд 7


Программа вычисления значения функции Program Ex2_2; {$APPTYPE CONSOLE} uses SysUtils; Var Kod:Integer; y,x:Single; Key:boolean; Begin WriteLn('Enter Kod:'); WriteLn('1 - y=sin x'); WriteLn('2 - y=cos x'); WriteLn('3 - y=exp x'); ReadLn(Kod); WriteLn('Enter x:'); ReadLn(x);
Описание слайда:
Программа вычисления значения функции Program Ex2_2; {$APPTYPE CONSOLE} uses SysUtils; Var Kod:Integer; y,x:Single; Key:boolean; Begin WriteLn('Enter Kod:'); WriteLn('1 - y=sin x'); WriteLn('2 - y=cos x'); WriteLn('3 - y=exp x'); ReadLn(Kod); WriteLn('Enter x:'); ReadLn(x);

Слайд 8


Программа вычисления значения функции (2)
Описание слайда:
Программа вычисления значения функции (2)

Слайд 9


2.3 Операторы организации циклов
Описание слайда:
2.3 Операторы организации циклов

Слайд 10


Цикл-пока
Описание слайда:
Цикл-пока

Слайд 11


Цикл-до
Описание слайда:
Цикл-до

Слайд 12


Счетный цикл
Описание слайда:
Счетный цикл

Слайд 13


Суммирование натуральных чисел Найти сумму N натуральных чисел.
Описание слайда:
Суммирование натуральных чисел Найти сумму N натуральных чисел.

Слайд 14


Суммирование ряда Определить сумму ряда S = 1 - 1/x + 1/x 2- 1/x3 + … с заданной точностью . Rn = -Rn-1/x
Описание слайда:
Суммирование ряда Определить сумму ряда S = 1 - 1/x + 1/x 2- 1/x3 + … с заданной точностью . Rn = -Rn-1/x

Слайд 15


Приведение алгоритма к структурному виду
Описание слайда:
Приведение алгоритма к структурному виду

Слайд 16


Вариант а Program Ex2_4а; {$APPTYPE CONSOLE} uses SysUtils; var S,R,X,eps:Single; Begin WriteLn('Input x and epsilon:'); ReadLn(X,eps); S:=1; {S:=0; & S:=S+R;} R:=1; while abs(R)>eps do begin R:=-R/X; S:=S+R; end; WriteLn('x=', x:6:2, ' S=', S:8:2,' R=', R:8:6); ReadLn; End.
Описание слайда:
Вариант а Program Ex2_4а; {$APPTYPE CONSOLE} uses SysUtils; var S,R,X,eps:Single; Begin WriteLn('Input x and epsilon:'); ReadLn(X,eps); S:=1; {S:=0; & S:=S+R;} R:=1; while abs(R)>eps do begin R:=-R/X; S:=S+R; end; WriteLn('x=', x:6:2, ' S=', S:8:2,' R=', R:8:6); ReadLn; End.

Слайд 17


Вариант б Program Ex2_4b; {$APPTYPE CONSOLE} uses SysUtils; var S,R,X,eps:Single; Begin WriteLn('Input x and epsilon:'); ReadLn(X,eps); S:=0; R:=1; repeat S:=S+R; R:=-R/X; until abs(R)<=eps; WriteLn('x=', x:6:2, ' S=', S:8:2,' R=', R:8:6); ReadLn; End.
Описание слайда:
Вариант б Program Ex2_4b; {$APPTYPE CONSOLE} uses SysUtils; var S,R,X,eps:Single; Begin WriteLn('Input x and epsilon:'); ReadLn(X,eps); S:=0; R:=1; repeat S:=S+R; R:=-R/X; until abs(R)<=eps; WriteLn('x=', x:6:2, ' S=', S:8:2,' R=', R:8:6); ReadLn; End.

Слайд 18


Решение задач вычислительной математики Задача. Вычислить определенный интеграл функции f(x) на интервале [a,b] методом прямоугольников с точностью . Итак n S = f(x1)d + f(x2)d + f(x3)d+ …+ f(xn)d = df(xi), где d=(b-a)/n. i=1 Увеличивая n, получаем приближения площади: S1, S2, S3 ... Останавливаемся, когда |Sk-Sk+1| < 
Описание слайда:
Решение задач вычислительной математики Задача. Вычислить определенный интеграл функции f(x) на интервале [a,b] методом прямоугольников с точностью . Итак n S = f(x1)d + f(x2)d + f(x3)d+ …+ f(xn)d = df(xi), где d=(b-a)/n. i=1 Увеличивая n, получаем приближения площади: S1, S2, S3 ... Останавливаемся, когда |Sk-Sk+1| < 

Слайд 19


Неформальное описание алгоритма Алгоритм: Шаг 1. Ввести a, b, . Шаг 2. Задать число прямоугольников n:=10. Шаг 3. Определить шаг d:=(b-a)/n. Шаг 4. Определить площадь фигуры S1. Шаг 5. Увеличить число прямоугольников вдвое n:=n*2. Шаг 6. Уменьшить шаг вдвое d:=d/2. Шаг 7. Определить площадь фигуры S2. Шаг 8. Если Разность площадей меньше , то перейти к шагу 11 Шаг 9. Запомнить новое значение площади S1:=S2. Шаг 10. Перейти к шагу 5. Шаг 11. Вывести S1. Конец.
Описание слайда:
Неформальное описание алгоритма Алгоритм: Шаг 1. Ввести a, b, . Шаг 2. Задать число прямоугольников n:=10. Шаг 3. Определить шаг d:=(b-a)/n. Шаг 4. Определить площадь фигуры S1. Шаг 5. Увеличить число прямоугольников вдвое n:=n*2. Шаг 6. Уменьшить шаг вдвое d:=d/2. Шаг 7. Определить площадь фигуры S2. Шаг 8. Если Разность площадей меньше , то перейти к шагу 11 Шаг 9. Запомнить новое значение площади S1:=S2. Шаг 10. Перейти к шагу 5. Шаг 11. Вывести S1. Конец.

Слайд 20


Схема алгоритма (неструктурная и неэффективная)
Описание слайда:
Схема алгоритма (неструктурная и неэффективная)

Слайд 21


Схема структурированная и сокращенная
Описание слайда:
Схема структурированная и сокращенная

Слайд 22


Программа program Ex2_5; {$APPTYPE CONSOLE} uses SysUtils; Var a,b,S1,S2,d,eps,x:Single; n,i:Integer; Begin WriteLn('Input a, b and eps:'); ReadLn(a,b,eps); n:= 5; d:=(b-a)/n; S2:=1E+10;
Описание слайда:
Программа program Ex2_5; {$APPTYPE CONSOLE} uses SysUtils; Var a,b,S1,S2,d,eps,x:Single; n,i:Integer; Begin WriteLn('Input a, b and eps:'); ReadLn(a,b,eps); n:= 5; d:=(b-a)/n; S2:=1E+10;

Слайд 23


Программа (2) repeat S1:=S2; n:=n*2; d:=d/2; S2:=0; x:=a; for i:=1 to n do begin S2:=S2+x*x-1; x:=x+d; end; S2:=S2*d; until abs(S2-S1)<eps; WriteLn('I=', S2:10:6); ReadLn; End.
Описание слайда:
Программа (2) repeat S1:=S2; n:=n*2; d:=d/2; S2:=0; x:=a; for i:=1 to n do begin S2:=S2+x*x-1; x:=x+d; end; S2:=S2*d; until abs(S2-S1)<eps; WriteLn('I=', S2:10:6); ReadLn; End.

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию