5d627c0119bd089dc6bd57727e652c69.ppt
- Количество слайдов: 27
Информатика и ИКТ БАЗОВЫЙ КУРС Г. С. Вараксин Знакомство с языком Паскаль
ПС. Знакомство с языком Паскаль ПС СМ ПС 1 Структура обучающего модуля Структура программы на языке Паскаль 02 000 Циклические программы на Паскале ПС 31 Обмен значениями двух переменных 03 ПС 12 Деление дробей 04 ПС 13 Формула Герона 05 Ветвление на Паскале 06 ПС 11 ПС 21 ПС 22 Полное ветвление Неполное ветвление ПС 311 ПС 32 ПС 41 07 08 ПС 411 ПС ПС 23 Упорядочивание значений двух переменных (составной оператор) 09 4111 ПС 42 ПС 24 Последовательные ветвления 10 ПС 25 Вложенные ветвления 11 ПС 26 Сложные логические выражения 12 ПС 27 Организация диалога с компьютером 13 ПС 421 ПС 4311 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. 14 N факториал 15 Примеры реализации циклических алгоритмов на языке Паскаль 16 Алгоритм Евклида 17 Описание и ввод значений в массив ПС 3 18 Цикл с параметром в алгоритме обработки массива 19 Расчет среднего значения элементов массива 20 Программа с двумя массивами 21 Датчик случайных чисел на Паскале 22 Программа поиска числа в массиве 23 Программа поиска максимума и минимума в массиве 24 Сортировка массива методом пузырька 25 Вывод отсортированной таблицы 26
ПС. Знакомство с языком Паскаль ПС 1 Структура программы на языке Паскаль Арифметические операции + Структура модуля (01) Функции F (x) сложение - умножение |x| SQR (x) вычитание * ABS (x) x SQRT (x) x EXP (x) ex LN (x) div деление нацело SIN (x) Sin x Остаток от деления COS (x) Cos x Приоритеты выполнения операций () F(x) список однотипных переменных BEGIN ОПЕРАТОРЫ PROGRAM VAR div + mod - : ТИП ; : : INTEGER END. ; ИМЯ ПРОГРАММЫ список однотипных переменных Ln x деление * / VAR ; ИМЯ ПРОГРАММЫ 2 / mod PROGRAM 02 список однотипных переменных REAL ; ; BEGIN READ ( список ввода READLN ( список ввода переменная : = WRITE ; ) список вывода ( WRITELN ( ; ) арифметическое выражение список вывода ; ; ) ) END. ПС 11. Обмен значениями двух переменных (03) • ПС 12. Деление дробей (04) • ПС 13 Формула Герона (05) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 35: стр. 201 - 205 03
ПС. Знакомство с языком Паскаль ПС 11 ПС 1. Структура программы на языке Паскаль (02) Обмен значениями двух переменных 04 Задача: даны две переменные величины X и Y, требуется произвести между ними обмен значениями (например: если до обмена X = 1, Y = 2, то после обмена должно стать: X = 2, Y = 1). начало ввод X, Y алг Обмен значениями цел X, Y, Z PROGRAM OBMEN нач X ; Y Z 1 2 1 BEGIN X, Y, Z VAR : INTEGER ; Z : = X ввод X, Y READLN ( X, Y ) X : = Y Z : = X ; 1 2 1 X : = Y ; 2 2 1 Y : = Z ; 2 1 1 вывод X, Y WRITELN ( X, Y ) 2 1 1 Y : = Z вывод X, Y конец кон ; END. 03 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 34: стр. 197 - 198
ПС. Знакомство с языком Паскаль ПС 1. Структура программы на языке Паскаль (02) Деление дробей ПC 12 04 Задача: разделить одну простую дробь на другую - получить результат a b : c d = a d b c = m n начало алг Деление дробей цел a, b, c, d, m, n PROGRAM нач Division ; : a BEGIN VAR a, b, c, d, m, n INTEGER a b c d m n ; b ; 1 3 2 5 m n ввод a, b, c, d READLN ( a, b, c, d ) m : = a d m : = a d ; 1 3 2 5 5 n n : = b c n : = b c ; 1 3 2 5 5 6 вывод m WRITELN ( m ) 1 3 2 5 5 6 вывод n WRITELN ( n ) 1 3 2 5 5 6 ввод a, b, c, d конец кон ; END. 05 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 35: стр. 201
ПС. Знакомство с языком Паскаль ПС 13 ПС 1. Структура программы на языке Паскаль (02) Формула Герона 000 По трем сторонам треугольника (a, b, c) вычислить площадь треугольника ( S ) Формула Герона PROGRAM a, b, c VAR p, S начало GERON : : ; a INTEGER REAL b c S ; ; BEGIN ввод a, b, c READLN ( a, b, c ) ; 10 15 20 p : = (a + b + c) / 2 S : = p p : = (a + b + c) / 2 ; 10 15 20 p (p - a) (p - b) (p - c) вывод S конец S : = SQRT (p * (p – a) * (p – b) * (p – c)) ; WRITELN ( S ) 10 15 20 22. 5 72. 61844 END. 05
ПС. Знакомство с языком Паскаль Структура модуля (01) Ветвление на Паскале ПС 2 Операции отношения > < >= <= <> = 06 Полное ветвление Неполное ветвление больше нет меньше THEN да больше или равно нет IF условие да ELSE оператор 2 не равно Операторы в структуре ветвления могут быть простыми или составными равно Простое условие Сложное условие BEGIN Последовательность простых и (или) составных операторов END x Логические операции AND THEN оператор 1 меньше или равно IF условие OR NOT y x AND y x OR y NOT x false true false true true false Команда ветвления в языке Паскаль используется в тех случаях, когда требуется предусмотреть два различных варианта выполнения алгоритма в зависимости от ситуации (истинности выполнения некоторого условия). 09 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 36: стр. 207 - 213
ПС. Знакомство с языком Паскаль ПС 21 ПС 2. Ветвление на Паскале (06) Полное ветвление 10 Задача: даны значения двух переменных, выбрать большее из них алг БИД 1 вещ A, B, C начало ввод A, B C : = B вывод C a b c ; Трассировка A > B READLN ( a, b ) ; 8 5 c Проверка условия (8 > 5) «ДА» если A > B THEN ELSE c : = b вывод C кон WRITELN ( c ; ) END. 5 8 8 c : = a иначе C : = B кв 8 IF a > b то C : = A конец BEGIN ввод A, B нет A>B д а PROGRAM BID 1 ; VAR a, b, c : REAL 5 8 Трассировка A < B 5 8 c Проверка условия (5 < 8) «НЕТ» 5 8 8 07 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 37. стр. 214 - 215
ПС. Знакомство с языком Паскаль ПС 2. Ветвление на Паскале (06) Неполное ветвление ПС 22 08 Пример: даны значения двух переменных, выбрать большее из них алг БИД 2 вещ A, B, C начало ввод A, B д а нет READLN ( a, b ) C : = A B>A PROGRAM BID 2 ; VAR a, b, c : REAL BEGIN c если B > A ; ; IF b > a : = b c Трассировка B > A 5 8 c 5 8 5 Проверка условия (8 > 5) «ДА» ; a a 5 8 8 Трассировка B< A C : = B вывод C конец то C : = B кв вывод C кон b ; WRITELN ( c ) THEN c : = END. 8 5 c 8 5 8 Проверка условия (5 < 8) «НЕТ» 8 5 8 11 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 37. стр. 214 - 215
ПС. Знакомство с языком Паскаль ПС 23 ПС 2. Ветвление на Паскале (06) Упорядочивание значений двух переменных Задача: составить алгоритм упорядочивания значений двух переменных начало ввод X, Y X>Y д а нет алг СОРТИРОВКА вещ X, Y, C нач ввод X, Y PROGRAM SORTING VAR x, y, c : REAL BEGIN то C : = X THEN Y : = C вывод X, Y C Трассировка X > Y 8 5 c 8 BEGIN x y кв ; x>y c X : = Y Y END : = : = ; x y c WRITELN ( x, y ) ; ; 5 8 5 READLN ( x, y ) IF X : = Y X Проверка условия (8 > 5) «ДА» если X > Y C : = X ; ; 12 5 8 8 Трассировка X < Y 5 8 c Проверка условия (5 < 8) «НЕТ» конец кон END. 5 8 09 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 37: стр. 216
ПС. Знакомство с языком Паскаль ПС 24 ПС 2. Ветвление на Паскале (06) Последовательные ветвления 10 A Задача: найти наибольшее значение среди трех величин: A, B, C начало алг БИТ 1 ввод A, B, C A>B д а D : = A C>D д а D : = C вывод D конец нет PROGRAM вещ A, B, C, D нач VAR : REAL нет READLN ( a, b, c ) если A > B IF a > b то D : = A THEN d иначе D : = B ELSE d 6 3 4 ; Проверка условия (A > B) «ДА» 6 3 4 : = 6 a 3 4 2 6 4 6 7 ; b Проверка условия (A > B) «НЕТ если C > D IF то D : = C кв THEN вывод D WRITELN ( c>d d D Проверка условия (C > D) «НЕТ кв кон ; BEGIN ввод A, B, C D : = B C ; BIT 1 a, b, c, d B : = ; c 2 4 7 4 Проверка условия (C > D) «ДА» d END. ) 2 4 7 7 13 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 36: стр. 211 - 212
ПС. Знакомство с языком Паскаль ПС 25 ПС 2. Ветвление на Паскале (06) Вложенные ветвления 14 Задача: найти наибольшее значение среди трех величин: A, B, C алг БИТ 2 вещ A, B, C, D нач ввод A, B, C если A > B то если A > C то D : = A иначе D : = C кв иначе если B > C то D : = B иначе D : = C кв кв вывод D кон начало ввод A, B, C A>B д а A>C нет B>C д а нет VAR д а D : = A D : = C D : = B PROGRAM D : = C BIT 2 a, b, c, d : ; REAL BEGIN READLN ( a, b, c ) ; 5 7 2 7 ; IF a > b вывод D конец THEN IF a > c THEN d : = a ELSE d : = c ELSE IF b > c THEN d : = b ELSE d : = c WRITELN ( d ; ) END. Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 37: стр. 215 - 216 11
ПС. Знакомство с языком Паскаль ПС 26 Сложные логические выражения начало A Bи. A С д а алг БИТ 3 вещ A, B, C, D нач ввод A, B, C если A B и A С нет если C A и C B нет вывод D конец READLN ( A, B, C ) кон ; IF ( A>=B ) and ( A>=C ) THEN D : = A ; IF ( B>=A ) and ( B>=C ) THEN D : = B ; IF ( C>=A ) and ( C>=B ) то D : = C вывод D ; BEGIN то D : = B D : = C PROGRAM BIT 3 ; VAR A, B, C, D : REAL то D : = A если B A и B С C Aи. C B д а нет D : = A B Aи. B С 12 Задача: определить большее из трех чисел ввод a, b, c д а ПС 2. Ветвление на Паскале (06) THEN D : = C ; WRITELN ( D ) END. Условия ветвлений представляют собой сложные логические выражения, включающие логическую операцию and (И). Отношения, связываемые логическими операциями, заключаются в скобки. Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 37: стр. 217 15
ПС. Знакомство с языком Паскаль ПС 27 ПС 2. Ветвление на Паскале (06) Организация диалога с компьютером PROGRAM NANNY ; 16 Составляя подобную программу на языке Паскаль программист сам организует интерфейс компьютера с пользователем программы. Этот интерфейс обязательно должен быть дружественным. Содержание диалога должно быть понятным и удобным. VAR T : REAL ; BEGIN WRITELN ( «Ты вчера был болен. Измерь-ка температуру!» ) ; WRITELN ( «Сообщи, какая у тебя температура: » ) ; READLN ( Т ) ; IF T > 36. 6 THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель. » ) ; WRITELN ( «Поправляйся, дружок!» ) ELSE BEGIN END WRITELN ( «Ты здоров, дружок! Можешь идти в школу. » ) ; WRITELN ( «Желаю успехов!» ) END. Ты вчера был болен. Измерь-ка температуру! Сообщи, какая у тебя температура: 37. 3 Ты еще болен! Раздевайся и ложись в постель. Поправляйся, дружок! Ты вчера был болен. Измерь-ка температуру! Сообщи, какая у тебя температура: 36. 5 Ты здоров, дружок! Можешь идти в школу. Желаю успехов! 13 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 38: стр. 218 - 221
ПС. Знакомство с языком Паскаль Структура модуля (01) Циклические программы на Паскале ПС 3 Оператор цикла с предусловием 14 Оператор цикла с постусловием Оператор цикла с параметром нет да REPEAT WHILE условие DO оператор UNTIL оператор параметр цикла FOR переменная : = выражение 1 TO FOR переменная : = выражение 1 DOWNTO Имя параметра (счетчика) цикла выражение 2 Начальное значение счетчика цикла условие DO оператор выражение 2 DO оператор Конечное значение счетчика цикла 17 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 39: стр. 222 - 228
ПС. Знакомство с языком Паскаль ПС 31 ПС 3. Циклические программы на Паскале (14) N факториал «N факториал» начало F = N! = 1 2 . . . N ввод N 18 PROGRAM VAR ; Words : F, N, R INTEGER ; BEGIN F : = 1 R : = 1 нет R<N д а F : = F * R R : = R + 1 вывод F конец алг N ! цел F, N, R нач ввод N F : = 1 R : = 1 пока R <= N, повторять нц F : = F * R R : = R + 1 кц вывод F кон WRITE ( ’ Введите число букв ’ ) READLN ( N ) F R : = 1 1 ; ; ; ; WHILE R <= N DO BEGIN F R END : = F*R ; R+1 ; WRITELN ( ’Из ’ , N, ’ букв можно END. ПС 311. Примеры реализации циклических алгоритмов на языке Паскаль (16) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 39: стр. 222 – 228 составить ’ , F, ’ слов’ ) 15
ПС. Знакомство с языком Паскаль ПС 31. N факториал (15) Примеры реализации циклических алгоритмов ПС 311 ; PROGRAM FAKTORIAL VAR : n, r, F «N факториал» F = N! = 1 2 . . . N ; INTEGER BEGIN READLN ( n ) : = F r : = 1 r WHILE r <= n DO r END : = ; F*r : = 1 ; FOR REPEAT BEGIN F ; ; ; 1 16 ; r+1 F r : = F ; ; F*r r+1 UNTIL r > n ; r : = 1 F*r TO n DO : = n ; FOR F r : = F*r DOWNTO 1 DO ; WRITELN ( F ) END. 19
ПС. Знакомство с языком Паскаль ПС 3. Циклические программы на Паскале (14) Алгоритм Евклида ПС 32 Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел начало ввод M, N M=N д а M>N PROGRAM нет цел M, N VAR M, N BEGIN WRITELN (’ Введите M и N ’) нет нач вывод “ введите M и N ” ввод M, N M : = M - N N : = N - M конец ; алг ЕВКЛИД д а вывод M 20 пока M = N, повторять нц если M > N то M : = M - N иначе N : = N - M кв кц вывод “ НОД = ” , M кон EVKLID : INTEGER READLN ( M, N ) WHILE ; ; ; M < > N DO BEGIN IF M > N THEN M : = M - N ELSE N : = N - M END ; WRITELN ( ’ НОД = ’ , M ) END. 17 Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 40: стр. 229 - 233
ПС. Знакомство с языком Паскаль ПС 4 Структура модуля (01) Описание и ввод значений в массив VAR имя массива : ARRAY массива ; начало [ нижняя . . . верхняя граница индекса PROGRAM : i : Temperature VAR T i : = 1 i ≤ 12 граница индекса нет 18 ARRAY ] OF тип ; [ 1. . 12 ] OF REAL INTEGER ; ; BEGIN i : = 1 WHILE д а вывод ” T [ i ] =” ввод T [ i ] i : = i + 1 i <= 12 DO BEGIN WRITE ( ’ T [ ’ , i : 2, ’ ] = ’ ) READLN ( T [ i ] ) ; ; i : = i + 1 ; END конец END. ПС 311. Примеры реализации циклических алгоритмов на языке Паскаль (16) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 42: стр. 239 - 240 000
ПС. Знакомство с языком Паскаль ПС 4. Описание и ввод значений в массив (18) Цикл с параметром в алгоритме обработки массива ПC 41 Месяц 000 01 02 03 04 05 06 07 08 09 10 11 12 T [ 1: 12 ] T [1] T [2] T [3] T [4] T [5] T [6] T [7] T [8] T [9] T [10] T [11] T [12] Температура -21 -18 -7 -6 10 18 23 24 17 6 -7 -18 начало PROGRAM Temperature : i : VAR T для i от 1 до 12 шаг 1 [ 1. . 12 ] OF REAL INTEGER ; i : = 1 FOR TO 12 DO BEGIN T[i] WRITE ( ’ T [ ’ , i : 2, ’ ] = ’ ) READLN ( T [ i ] ) END конец ; BEGIN вывод ” T [ i ] =” ввод ARRAY ; ; ; Ввод значений в массив T [ 1: 12 ] END. ПС 311. Примеры реализации циклических алгоритмов на языке Паскаль (16) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 42: стр. 239 19
ПС. Знакомство с языком Паскаль Расчет среднего значения элементов массива ПС 411 Месяц ПС 41. Цикл с параметром в алгоритме обработки массива (19) 20 01 02 03 04 05 06 07 08 09 10 11 12 T [ 1: 12 ] T [1] T [2] T [3] T [4] T [5] T [6] T [7] T [8] T [9] T [10] T [11] T [12] средн ее Темп. -21 -18 -7 -6 10 18 23 24 17 6 -7 -18 2. 56 начало PROGRAM : i : VAR T Ввод значений в массив T [ 1: 12 ] Temperature ARRAY INTEGER ; [ 1. . 12 ] OF REAL ; Tsred : REAL ; ; BEGIN Tsred : = 0 i : = 1, 12 Tsred : = Tsred + T [i] Tsred : = Tsred / 12 вывод Tsred конец Ввод значений в массив T [ 1: 12 ] Tsred : = 0 ; FOR i : = 1 TO 12 DO Tsred : = Tsred + T [ i ] ; Tsred : = Tsred /12 ; WRITELN END. ПС 41 (стр. 19) Расчет среднего значения элементов массива T [ 1: 12 ] ( ’ Среднегодовая температура = ’ , Tsred : 6 : 2 , ’ градусов ’ ) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 42: стр. 239, 240
ПС. Знакомство с языком Паскаль ПС 411. Расчет среднего значения элементов массива (15) Программа с двумя массивами ПС 4111 000 Месяц 01 02 03 04 05 06 07 08 09 10 11 12 T [1: 12] T [1] T [2] T [3] T [4] T [5] T [6] T [7] T [8] T [9] T [10] T [11] T [12] Температу ра -21 -18 -7, 5 -5, 6 10 18 22, 2 24 17 5, 4 -7 -18 Dt [1: 12] Dt [1] Dt [2] Dt [3] Dt [4] Dt [5] Dt [6] Dt [7] Dt [8] Dt [9] Dt [10] Dt [11] Dt [12] 3, 04 7, 44 15, 44 19, 64 21, 44 14, 44 2, 84 -9, 56 -20, 56 Отклонени PROGRAM - Temperature - ; е 23, 56 20, 56 10, 06 T : ARRAY [ 1. . 12 ] OF REAL ; Dt : ARRAY [ 1. . 12 ] OF REAL ; i : INTEGER ; Tsred : REAL ; VAR BEGIN Ввод значений в массив T [ 1: 12 ] : = 1 TO 12 DO WRITE ( ’ T [ ’ , i : 2, ’ ] = ’ ) WRITELN END ( 2. 56 ПС 41 (стр. 19) Расчет среднего значения элементов массива T [ 1: 12 ] FOR i BEGIN среднее ; ’ Dt [ ’ , i : 2, ’ ] = ’ , Dt [ i ] : 6 : 2 ) ПС 411 (стр. 20) Расчет отклонений средней температуры для каждого месяца от среднегодовой величины END. Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 42: стр. 240 -242 21
ПС. Знакомство с языком Паскаль ПС 42 ПС 4. Описание и ввод значений в массив (18) Датчик случайных чисел на Паскале 22 PROGRAM Example i : VAR Результат выполнения функции – целое число в диапазоне от 0 до x INTEGER BEGIN RANDOMIZE FOR ; i : = 1 WRITE ; ; Вывод на экран десяти случайных чисел из диапазона от 0 до 50 TO ( 10 DO random (50) : 4 ) END. Randomize – стандартная процедура Паскаля, которая производит установку начального состояния датчика случайных чисел. Интервалы между числами – 4 символа 0 3 17 20 27 7 31 16 37 42 ПС 421. Программа поиска числа в массиве (23) Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 43: стр. 243 -244 000
ПС. Знакомство с языком Паскаль Программа поиска числа в массиве ПС 421 Namber. X : = 0 i : = 1, 20 нет Rand [ i ] = X да Namber. X : = Namber. X +1 нет Namber. X = 0 да вывод числа ” ПС 42. Датчик случайных чисел на Паскале (22) ” В массиве нет X вывод ” Число ” X ” в массиве присутствует ” Number. X ” раз ” PROGRAM VAR Rand i , Example 2 ; : ARRAY [ 1. . 20 ] OF INTEGER X , Number. X : INTEGER ; 000 ; BEGIN RANDOMIZE ; WRITELN ( ’ Массив случайных чисел : ’ ) FOR i : = 1 TO 20 DO BEGIN Rand [ i ] : = Random ( 50 ) ; WRITE ( Rand [ i ] : 4 ) ; END ; WRITELN ; WRITE ( ’ Введите X : ’ ) ; READLN ( X ) ; Number. X : = 0 ; FOR i : = 1 TO 20 DO IF Rand [ i ] = X THEN Number. X : = Number. X + 1 ; IF Number. X = 0 THEN WRITELN ( ’ В массиве нет числа ’ , X ) ELSE WRITELN ( ’ Число ’ , X ’ в массиве присутствует ’ , Number. X , ’ раз’ ) END. Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Глава 6. § 43. стр. 244 - 246 23
ПС. Знакомство с языком Паскаль Программа поиска максимума и минимума в массиве ПС 43 № ПС 4. Описание и ввод значений в массив (18) A B 1 ДИНАМО 46 2 ЗЕНИТ 56 3 КРЫЛЬЯ СОВЕТОВ 42 4 ЛОКОМОТИВ 52 5 РОСТОВ 34 6 РОТОР 32 7 РУБИН 53 8 САТУРН 45 9 СПАРТАК 36 10 СПАРТАК-АЛАНИЯ 31 11 ТОРПЕДОМЕТАЛЛУРГ 29 13 УРАЛАН 28 14 ЦСКА 59 15 ЧЕРНОМОРЕЦ 24 16 ШИННИК 47 17 Max (кол-во очков) 59 Min (кол-во 24 PROGRAM Premier-liga ; Ввод названий команд OF INTEGER ; и набранных ими очков VAR B : ARRAY [ 1. . 16 ] Team : ARRAY [ 1. . 16 ] OF STRING ; Max. B , Min. B , Nmax , Nmin , i : INTEGER ; BEGIN 43 12 ) ; WRITELN ( ’ Введите названия команд и очки ’ FOR i : = 1 TO 16 DO BEGIN WRITE ( i , ’ Название : ’ ) ; READLN ( Team [ i ] ) ; WRITE ( ’ Очки : ’ ) ; READLN ( B [ i ] ) ; END ; Max. B FOR : = B [ 1 ] ; Nmax : = i : = 2 TO 16 DO BEGIN IF B [ i ] > Max. B BEGIN IF END. ; Max. B B [ i ] < Min. B BEGIN Min. B 1 ; Min. B : = B[1] ; ; Nmax : = i ; END ; ; Nmin : = i ; END ; Nmin : = 1 ; THEN : = B[i] WRITELN ( ’ На первом месте ’ , Team [ Nmax] , Max. B ) очков ’ ’ ; WRITELN ( ’ Последнее место ’ , Team [ Nmin] , Min. B ’)очков ’ Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Дополнение к главе 6: стр. 333 - 334 18 24 000
ПС. Знакомство с языком Паскаль Сортировка массива методом пузырька ПС 431 № ПС 43. Программа поиска максимума и минимума в массиве (24) A B 1 ДИНАМО 46 2 ЗЕНИТ 56 3 КРЫЛЬЯ СОВЕТОВ 42 4 ЛОКОМОТИВ 52 5 РОСТОВ 34 6 РОТОР 32 7 РУБИН 53 8 САТУРН 45 9 СПАРТАК 36 10 СПАРТАК-АЛАНИЯ 31 11 ТОРПЕДО 43 12 ТОРПЕДОМЕТАЛЛУРГ 29 13 УРАЛАН ЦСКА 59 15 ЧЕРНОМОРЕЦ 24 16 ШИННИК 47 ; 28 14 PROGRAM Premier-liga - 2 ; OF INTEGER VAR B : ARRAY [ 1. . 16 ] Team : ARRAY [ 1. . 16 ] OF STRING i , K , X : INTEGER ; St : ; STRING ; BEGIN Ввод названий команд и набранных ими очков FOR K FOR IF : = 1 TO 15 ПС 43 (стр. 24) DO i : = 1 TO 16 - K DO B[i]>B[i+1] Сортировка массива THEN BEGIN X : = B [ i ] ; B [ i ] : = B [ i + 1 ] ; : = X ; St : = Team [ i ] ; Team [ i ] : = Team [ i + 1 ] ; Team [ i + 1 ] : = St END ; Вывод отсортированной таблицы B[i+1] ПС 4311 (стр. 26) END. Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Дополнение к главе 6: стр. 338 - 339 25
ПС. Знакомство с языком Паскаль ПС 431. Сортировка массива методом пузырька (25) Вывод отсортированной таблицы ПС 4311 Team B 1 ЦСКА 59 2 ЗЕНИТ 56 3 РУБИН 53 4 ЛОКОМОТИВ 52 5 ШИННИК 47 6 ДИНАМО 46 7 САТУРН 45 8 ТОРПЕДО КРЫЛЬЯ СОВЕТОВ 42 10 СПАРТАК 36 11 РОСТОВ РОТОР 32 13 СПАРТАК-АЛАНИЯ 31 14 ТОРПЕДОМЕТАЛЛУРГ 29 УРАЛАН 28 ; 34 12 PROGRAM Premier-liga - 2 ; OF INTEGER VAR B : ARRAY [ 1. . 16 ] Team : ARRAY [ 1. . 16 ] OF STRING 43 9 26 15 i , K , X : INTEGER ; St : STRING ЧЕРНОМОРЕЦ Ввод названий команд и набранных ими очков Сортировка массива методом пузырька FOR i : = 1 TO 16 BEGIN FOR K : = Team [ i ] 1 : = WRITELN ( DO ПС 43 (стр. 24) ПС 431 (стр. 25) Вывод отсортированной таблицы TO 18 – length (Team [ i ] ) Team [ i ] + ’ ’ DO ; i : 2 , ’ ’ , Team [ i ] : 18 , B [ i ] : 2 ) END. 24 ; BEGIN Семакин И. Г. Информатика и ИКТ. Базовый курс. Учебник для 9 класса. Дополнение к главе 6: стр. 338 - 339 16 ; 000
5d627c0119bd089dc6bd57727e652c69.ppt