Автор роботи

Цикли Розгалуження Практикум (масиви)Масиви Лінійний алгоритм Розгалужений алгоритм Вкладені розгалуження Оператор варіанту Команда 2 Команда 1 Команда N Визначити, яку роботу необхідно виконати, щоб підняти тіло масою m на висоту h від Землі. Program Ex1; Uses crt; Var m,h,A : real; Begin Clrscr; Write(Введіть масу тіла ); Readln(m); Write(Введіть висоту підйому тіла ); Readln(h); A := m*h*9.8; Writeln(Робота =, А:2:2); Repeat until keypressed End. Program Ex1; Uses crt; Var m,h,A : real; Begin Clrscr; Write(Введіть масу тіла ); Readln(m); Write(Введіть висоту підйому тіла ); Readln(h); A := m*h*9.8; Writeln(Робота =, А:2:2); Repeat until keypressed End.

Цикли Розгалуження Практикум (масиви)Масиви Лінійний алгоритм Розгалужений алгоритм Вкладені розгалуження Оператор варіанту Складений оператор – це сукупність з довільного числа операторів. відокремлених один від одного крапкою з комою. Ця сукупність обмежена операторними дужками begin і end. Скорочена форма команди розгалуження: if then begin ; end; Повна форма команди розгалуження: if then begin ; end else begin ; and; Формат опису: begin ;...; ; end; Формат опису: begin ;...; ; end; Розгалужений алгоритм – це такий алгоритм, що крім простих команд, містить умову, залежно від якої виконуються або не виконуються команди, що входять до складеної команди. Умова Дія 1Дія 2 Дія 1 Умова

Цикли Розгалуження Практикум (масиви)Масиви Лінійний алгоритм Розгалужений алгоритм Вкладені розгалуження Оператор варіанту Часто виникає ситуація, коли при виконанні деякої умови знову зявляється потреба робити вибір. В такій ситуції використовується вкладене розгалуження, тобто оператор, який виконується в гілці Then (або в гілці Else) знов є оператором If. Часто виникає ситуація, коли при виконанні деякої умови знову зявляється потреба робити вибір. В такій ситуції використовується вкладене розгалуження, тобто оператор, який виконується в гілці Then (або в гілці Else) знов є оператором If. max (x, y) при x< 0 min (x,y) при x>=0 Y = If x y Then z:=x Else z:=y Else If x<y Then z:=x Else z:=y; X>Y Z=XZ=Y X<Y Z=XZ=Y X<Y ? На заданій відстані S знаходиться стіна висотою Н.Чи влучить снаряд в стінку, якщо його початкова швидкість V, а кут нахилу гармати А? L=S*tg(A)- (g*sqr(s))/(2*sqr(V)*sqr(cos(A))) Program Ex2; Var A,S,H,L,g:real; Begin V:=200; h:=6; S:=3000; g:=9.8; Write(Кут нахилу ствола ); Read(A); L=S*tg(A)- (g*sqr(s))/(2*sqr(V)*sqr(cos(A))); If (L>0) and (L<h) Then Write(Влучив) Else If L<0 Then Write (Недоліт) Else Write(Переліт); End. y A L H X S

Цикли Розгалуження Практикум (масиви)Масиви Лінійний алгоритм Розгалужений алгоритм Вкладені розгалуження Оператор варіанту Вказівка вибору – це оператор який є узагальненням оператора if і дає змогу зробити вибір із довільного числа наявних варіантів. Він складається з виразу, що називається селектором, і списку параметрів, кожному з яких передує список констант вибору (список може складатися і з однієї константи). Формат опису: case of : ;... : [else ] end; Розробити програму виведення інформації про день тижня, (вихідний чи робочий), якщо задано його номер від 1 до 7 (1 – понеділок). Program Ex3 ; Uses Сrt ; Var Day :byte ; {Day – номер дня тижня} Begin Clrscr ; Write(Введіть номер дня тижня: ) ; Readln(Day) ; Case Day of 1..5 : Write(Це робочий день) ; 6..7 : Write(Це вихідний день) ; Else write(Це не день ); End ; Writeln( тижня) ; Readkey ; End. Program Ex3 ; Uses Сrt ; Var Day :byte ; {Day – номер дня тижня} Begin Clrscr ; Write(Введіть номер дня тижня: ) ; Readln(Day) ; Case Day of 1..5 : Write(Це робочий день) ; 6..7 : Write(Це вихідний день) ; Else write(Це не день ); End ; Writeln( тижня) ; Readkey ; End.

Цикли РозгалуженняПрактикум (масиви)Масиви Оператор forОператор repeatОператор while Циклічний алгоритм – це алгоритм, що містить команди, які забезпечують багаторазове повторення виконання команди або групи команд. for := to do begin ; end; for := downto do begin ; end; S 1 початкове значення параметру циклу for...do – заголовок циклу – тіло циклу Знайти суму всіх натуральних чисел від 1 до 100 Program Ex1; Uses crt; Var Sum,i: integer; Begin Clrscr; Sum:=0; For i:=1 to 100 do Sum:=Sum+i; Writeln('Sum = ',Sum); Readkey; End. S 2 кінцеве значення параметру циклу Цикл з параметром виконує строгу, наперед задану кількість разів Параметр циклу може бути лише змінною цілочисельного типу. Параметр циклу змінюється автоматично через одиницю. Якщо в циклі стоїть to, то параметр циклу збільшується на 1, а якщо downto – то зменшується на 1.

Цикли РозгалуженняПрактикум (масиви)Масиви Оператор forОператор repeatОператор while Оператор Repeat використовується в тих випадках, коли потрібно спочатку виконати деяку послідовність дій, а потім визначити, чи є потреба повторювання дій ще раз. Умова істинна? Початкові значення змінних Оператори тіла циклу Ні Так Знайти суму всіх натуральних чисел від 1 до 100 Program Ex2; { варіант з використанням циклу з післяумовою } var i, sum : integer; Begin sum := 0; i := 1; Repeat { цикл з післяумовою! } sum := sum + i; inc (i); until i > 100; { кінець циклу } Write ('S = ',sum); Readln; End. Формат опису: repeat until ; Цикл з післяумовою може виконуватись яку завгодно кількість разів. Параметром циклу може бути змінна довільного типу. Змінювати параметр циклу можна як завгодно.

Цикли РозгалуженняПрактикум (масиви)Масиви Оператор forОператор repeatОператор while Оператор while аналогічний оператору repeat, але перевірка умови виконання тіла циклу виконується на самому початку оператора, тому цикл інакше називається циклом із предумовою. Умова істинна? Початкові значення змінних Оператори тіла циклу Так Ні Знайти суму всіх натуральних чисел від 1 до 100 Program Ex3; { варіант з використанням циклу з передумовою } var i, sum : integer; Begin sum := 0; i := 1; { початкове значення параметра циклу } While i <= 100 do { цикл з передумовою! } Begin sum := sum + i; { до суми додаємо чергове число } inc (i); { рівнозначно запису i := i+1 } End; { кінець циклу } Write ('S = ',sum); Readln; End. Цикл з передумовою може виконуватись яку завгодно кількість разів. Параметром циклу може бути змінна довільного типу. Цикл з передумовою може не виконуватись жодного разу, якщо до початку циклу змінна, що є його параметром, не відповідає умові циклу.

ЦиклиРозгалуженняПрактикум (масиви) Масиви Одновимірний масив Двовимірний масив Впорядкування елементів таблиць Масив – це спосіб організації збереження великої кількості однотипних даних. Одновимірний масив інакше ще називають лінійним масивам або вектором. Кожному його елементу ставиться у відповідність один індекс. Для початку роботи з масивом готуємо місце в пам'яті, для чого описуємо його в розділі оголошень. Масив А Формат опису (1 варіант): Var : array [ ] of ; Приклади описів: Const n = 100; Var A:array(1..n] of real; В:array[1..100] of integer; Туре Massiv = array [1..20] of longint; Var M: Massiv; Методи заповнення одновимірного масиву: 1) за формулою: for i:=1 to n do M[i]:=i*i-10 {або будь-яка інша формула} 2) з клавіатури: for i:=1 to n do begin write('Введіть M[',i,']: '); readln(M[i]); end; 3) Випадково із проміжку [А, В]: for i:=1 to n do M[i]:=random(B-A)+A; {В > А}

ЦиклиРозгалуженняПрактикум (масиви) Масиви Одновимірний масив Двовимірний масив Впорядкування елементів таблиць Двовимірний масив – це масив, де кожному елементу ставиться у відповідність два індекси. 1324m… 1 … n Приклади опису двовимірного масиву: Const n=100; m=100; Var A:array [1..n,1..m] of real; D:array[1..10,1..100] of integer; Заповнення масиву: а) з клавіатури: for i:=1 to n do for j:=1 to m do begin write('введіть A[',i,',',j,']:'); readln(A[i,j]; end; б) за формулою: for і:=1 to n do for j:=1 to m do A[i,j]:=i*i-10 {або будь-яка інша формула); в) випадковим чином із проміжку [K,L]: for і:=1 to n do for j:=1 to m do A[i,j]:=random(L-K)+K; Виведення двовимірного масиву на екран for і:=1 to n do begin for j:=1 to m do write(A[i,j]:8); {виведення в рядок) writeln; {перехід на новий рядок} End;

ЦиклиРозгалуженняПрактикум (масиви) Масиви Одновимірний масив Двовимірний масив Впорядкування елементів таблиць Всі існуючі методи сортування можна поділити на три групи: обмінні сортування – виконується обмін між двома (найчастіше сусідніми) елементами масивів, якщо відповідні елементи розташовані у вихідному масиві невпорядковано; процес повторюється або певну кількість разів, або доки елементи в масиві не стануть впорядкованими методи прямого вибору – в масиві обирається елемент з певними властивостями (наприклад, мінімум або максимум), а потім вибраний елемент ставиться на своє місце методи прямої вставки – послідовно вибираються елементи з масиву і після визначення їх місця у впорядкованому наборі даних вставляються безпосередньо на своє місце

ЦиклиРозгалуження Практикум (масиви) Масиви Сортування методом «бульбашки»«бульбашки» Метод прямої вставки забезпечує вставку кожного елементу невпорядкованого масиву на своє місце у вже впорядкований масивпрямої вставки Сортування масивів – це впорядковані за зростанням/спаданням значення його элементів. Сортування методом виборувибору ЗаповненняЗаповнення масиву

Program Bubble; {Сортування за зростанням} Const N=20; Var Mas:array[1..N] of integer; і,j:integer; {і,j - змінні циклу} Rez: integer; {Rez – додаткова змінна для обміну елементів масиву між собою} Begin For i:=1 to N do For j:=1 to N-l do If Mas[j]>Mas[j+1] then Begin {Обмін елементів масиву через третю змінну) Rez:=Mas[j]; Mas[j]:=Mas[j+1]; Mas[j+1]:=Rez; End; End. Алгоритм «бульбашки»

На початку сортування масив розбивається на два підмасиви, лівий з яких повинен бути впорядкованим, а правий – ні. У невідомому масиві тільки один елемент можна вважати впорядкованим, тому спочатку ліва відсортована частина складається всього з одного елементу. Program Insert; Const N=20; Var Mas:array[1..N] of integer; і,j,Rez:integer ; Begin For і:=2 to N do Begin j:=i; {Цикл працює, доки лівий елемент більший за правий, та доки не досягнуто початок масиву} while (j>1) and (Mas[j]<Mas[j-1]) do Begin Rez:=Mas[j]; Mas[j]:=Mas[j-1]; Mas[j-1]:=Rez; j:=j-l; End; End. Метод прямої вставки

Метод вибору uses crt; const n=10; var a: array[1..n] of integer;i, c:integer; begin for i:=1 to n do { заповненя масиву та виведення його на екран} begin a[i]:=random(50); write (a[i]:5); end; c:=a[1]; for i:=1 to n-1 do a[i]:=a[i+1]; a[n]:=c; writeln; for i:=1 to n do write(a[i]:5); repeat until keypressed; end. Задача: Змістити елементи масиву вліво на одну позицію.

Випадковими числами на заданому відрізку (n,m) з інтервалом k. for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random((n-m+1)/k)*k+n; {n,m k задаються умовою задачі} Всі рядки заповнити одинаково, натуральными числами починаючи з 1. for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=j; Всі графи заповнити одинаково, натуральными числами починаючи з 1. for j:=1 to 10 do for i:=1 to 10 do a[i,j]:=1; По рядкам, змейкою. Наприклад, перший рядок , другий , третій і т.д. (фрагмент). K:=1; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=k; k:=k+1; end; i:=i+1; for j:=10 downto 1 do begin a[i,j]:=k; k:=k+1; end; end; Заповнення масивів:

Презентація створена за матеріалами відео уроків Максима Семенихіна «Создание нестандартных презентаций» Відомості про автора: Павленко Микола Олексійович, вчитель інформатики Коростишівського НВК Школа-ліцей Житомирської області

Дякую за увагу !