Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Наглядных протоколов
|
|
Пример 6. Напишите программу решения квадратного уравнения ax 2 + bx + c = 0, (a ¹ 0). Исполните составленную программу, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов, для a = 1, b = -5, c = 6 и a = 1, b = -4, с = 4. Пусть программа имеет имя – «квур».
Решение
| алг квур (аргвещ a, b, c, резвещ x1, x2, резлит y) дано | a=1, b=-5, c=6 | а =1, b=-4, с=4 |
надо
начвещ D
 D: = b*b – 4*a*c
| x1, x2, y D=1 | x1, x2, y D= 0 |
| если D> 0 | 1> 0 (?), да | 0> 0 (?), нет |
| то y: = “2 разл. действит. корня” | y= «2 разл. действит. корня» | |
| x1: = (- b+ sqrt (D))/(2*a) | х1 = 3 | |
| x2: = (- b – sqrt (D))/(2*a) | х2 = 2 | |
| иначе | ||
| если D = 0 | 0=0 (?), да | |
| то | ||
| y: = “2 равных действ. корня” | y=«2 равных действ.корня» | |
| x1: = - b/(2´ a) | х1 = 2 | |
| x2: = x1 | х2 = 2 | |
| иначе y: = “действ.корней нет” все | ||
| все | ||
| кон |
Пример 7. Напишите программу нахождения большего из трёх вещественных чисел, при составлении программы воспользуйтесь вспомогательным алгоритмом вычисления большего из двух чисел. Исполните составленную программу, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов, для a = 7, b = 3, c = 9.
Пусть программа нахождения большего из двух вещественных чисел имеет имя «БИД», а большего из трёх – «БИТ».
Решение
 алг БИД (аргвещ m, n, резвещ k)
| m=7, k=7, n=3 | m=7, k=9, n=9 |
| нач k: = m | k=7 | k=7 |
| если k< n | 7< 3 (?), нет | 7< 9 (?), да |
| то k: = n | k=9 | |
| все | ||
| кон | ||
| алг БИТ (аргвещ a, b, c, резвещ z) дано | a=7, b=3, c=9 | |
| надо нач БИД (a, b, z) | z a=7, b=3, z=7 | |
| БИД (z, c, z) кон | z=7, c=9, z=9 |
Пример 8. Напишите программу для нахождения суммы элементов таблицы вещественных чисел a(1: n). Исполните составленную программу, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов, для n = 3 и a[1] = 4.2, a[2] = -3, a[3] = 5.
Решение
| алг сумма (аргцел n, аргвещтаб a[1: n], резвещ S) дано | n = 3, a[1] = 4.2, a[2] = -3, a[3] = 5 | |||
надо
 начцел i
S: = 0
i: = 1
| S S=0 i=1 | |||
| нцпока i< =3 | 1< =3(?), да | 2< =3?, да | 3< =3?, да | 4< =3?, нет |
| S: = S + a[i] | S=4.2 | S=1.2 | S=6.2 | |
| i: = i + 1 кц | i=2 | i=3 | i=4 | |
| кон |
Пример 9. Напишите программу сортировки элементов массива целых чисел методом простого обмена. Исполните процедуру (sort) сортировки элементов массива простым обменом, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов, для n = 3 и a[1] = 45, a[2] = 32, a[3] = 5. Сущность метода сортировки элементов массива простым обменом изложена ниже, стр.180.
| Program BubbleSort; Uses crt; Const n=3; Type tmass=array[1..n] of byte; Var a: tmass; Procedure print (a: tmass); {Процедура печати элементов массива} Var i: byte; begin for i: =1 ton dowrite (a[i]: 4); end; Procedure input (var a: tmass); {Процедура ввода элементов массива} Var i: byte; begin for i: =1 to n do begin write('a[', i, ']= '); readln(a[i]); end; end; | Procedure sort (var a: tmass); {Процедура сортировки обменом} Var i, j, b: byte; begin for i: =2 to n do begin for j: =n downto i do if a[j]< a[j-1] then begin b: =a[j]; a[j]: =a[j-1]; a[j-1]: =b end; print (a); end; end; Begin input (a); sort (a); print (a); end. |
| Программа сортировки элементов массива простым обменом |
Procedure sort (var a: tmass);
Var i, j, b: byte;
 begin
for i: =2 to n do
| n=3; a[1]=45, a[2]=32, a[3]=5 i=2, 2≤ 3 (да) | i=3, 3≤ 3 (да) | i=4, 4≤ 3 (нет) | |||
| begin for j: =n downto i do | j=3, 3≥ 2 (да) | j=2, 2≥ 2 (да) | j=1, 1≥ 2 (нет) | j=3, 3≥ 3 (да) | j=2, 2≥ 3 (нет) | |
| if a[j]< a[j-1] then | 5< 32 (да) | 5< 45 (да) | 32< 45 (да) | |||
| begin b: =a[j]; a[j]: =a[j-1]; a[j-1]: =b end; | b=5 a[3]=32 a[2]=5 | b=5 a[2]=45 a[1]=5 | b=32 a[3]=45 a[2]=32 | |||
| end; | ||||||
| end; |
Пример 10. Напишите программу з амены в данном тексте слова1 на слово2, той же длины. Исполните составленную программу, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов.
Решение. (Задача на вырезку и частичную замену). Пусть заданы строковой операнд strText (текст ) и два слова: заменяемое слово Word1 (слово1) и заменяющее слово Word2 (слово2).Просматривая текст strText, начиная с первого символа (i = 1), вырезаем из текста strText последовательность из d символов, где d – длина Word1 (Word2), сравниваем вырезку со словом Word1. Если они равны, то осуществляем частичную замену, а именно, последовательность из d символов в тексте strText заменяем на слово Word2. Увеличиваем i на d и, начиная с полученного i, вырезаем из текста strText следующие d символов. Если вырезка из d символов текста strText не совпадает со словом Word1, то i увеличиваем на 1 и вырезаем из текста strText следующие d символов. Вырезку, сравнение и, если выполнено условие, замену проводим пока i не станет больше длин(текст)- d +1.
Программа в системе Кумир, где определена операция
частичной замены в тексте
алг замена (аргрезлит текст, арглит слово1, слово2)
дано |литерный операнд текст
надо |в литерном операнде текст заменить слово1 на слово2
начцел i, d
│ d: =длин(слово1) |находим длину слова1
│ i: =1 |организуем просмотр текста с первого символа
│ нцпока i< =длин(текст)-d+1
│ │ если текст[i: i+d-1]=слово1 | текст[i: i+d-1] – вырезка из текста
│ │ │ |последовательности символов длины d и ее сравнение со словом1
│ │ │ то текст[i: i+d-1]: =слово2 |частичная замена в тексте
│ │ │ |последовательности из d символов на слово2, если вырезанный
│ │ │ i: =i+d-1 | текст равен слову1, i увеличивается на d -1
│ │ все
│ │ i: =i+1 |номер следующего символа в тексте
│ кц
кон
Программа в системе Кумир, где не определена операция частичной замены в тексте
алг замена1 (арглит текст, арглит слово1, слово2, резлит текст1)
дано |литерный операнд текст
надо |в литерном операнде текст заменить слово1 на слово2
начцел i, d
│ d: =длин(слово1) |находим длину слова1
│ i: =1; текст1: =" " |результат формируем в текст1,
│ | сначало текст1 присвоим значение" "
│ нцпока i< =длин(текст)-d+1
│ │ если текст[i: i+d-1]=слово1
│ │ │ то текст1: = текст1 + слово2 |если условие верно,
│ │ │ | то текст1 и слово1 склеиваем, и увеличиваем i на d -1
│ │ │ i: =i+d-1
│ │ │ иначе
│ │ │ текст1: =текст1 + текст[i: i] |иначе текст1 склеиваем
│ │ │ | с вырезкой из текст
│ │ все
│ │ i: =i+1 |номер следующего символа в тексте
│ кц
кон
Исполнение составленной программы «замена» методом моделирования в виде наглядных протоколов дано в таблице 4.
| 11≤ 8(нет) | Таблица 4 |
| 5≤ 8(да) “за ”=“око”(нет) i=5+1=6 | 8≤ 8(да) “око”=“око”(да) текст=“зуб за зуб” i=8+3-1=10 i=10+1=11 | |
| 4≤ 8(да) “ за”=“око”(нет) i=4+1=5 | 7≤ 8(да) “ ок”=“око”(нет) i=7+1=8 | |
| текст=“око за око” слово1=“око” слово2=“зуб” d=3 i=1 1≤ 8(да) “око”=“око”(да) текст=“зуб за око” i=1+3-1=3 i=3+1=4 | 6≤ 8(да) “а о”=“око”(нет) i=6+1=7 | |
| алг замена (аргрезлит текст, арглит слово1, слово2) дано надо начцел i, d │ d: =длин(слово1) │ i: =1 │ нцпока i< =длин(текст)-d+1 │ │ если текст[i: i+d-1]=слово1 │ │ │ то текст[i: i+d-1]: =слово2 │ │ │ i: =i+d-1 │ │ все │ │ i: =i+1 │ кц кон | алг замена (аргрезлит текст, арглит слово1, слово2) дано надо начцел i, d │ d: =длин(слово1) │ i: =1 │ нцпока i< =длин(текст)-d+1 │ │ если текст[i: i+d-1]=слово1 │ │ │ то текст[i: i+d-1]: =слово2 │ │ │ i: =i+d-1 │ │ все │ │ i: =i+1 │ кц кон |
| i=3, 3£ 4(да) strWord1== “р”+“ап”=“рап” | Таблица 5 | |
| i=2, 2£ 4(да) strWord1== “а”+“п”=“ап” | i=5, 5£ 4(нет) вывод “арап” | |
| strWord=“пара” strWord1=“” i=1, 1£ 4(да) strWord1== “п”+ “”=“п” | i=4, 4£ 4(да) strWord1= “а”+“рап”=“арап” | |
| INPUT" Введите обращаемое слово"; strWord strWord1 = " " FOR i = 1 TO LEN(strWord) strWord1=MID$(strWord, i, 1)+strWord1 NEXT i PRINT strWord1 END | INPUT" Введите обращаемое слово"; strWord strWord1 = " " FOR i = 1 TO LEN(strWord) strWord1=MID$(strWord, i, 1)+strWord1 NEXT i PRINT strWord1 END |
 |
Пример 11. Напишите программу обращения слова. В результате исполнения алгоритма из слова «нас» должно получиться слово «сан», из слова «довереп» – слово «перевод». Исполните составленную программу, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов для слова «пара».
Решение. Пусть strWord – данное слово, а strWord1 – получаемое слово, первоначально strWord1 – пустая строка. Выделяем из строки strWord последовательно, по одному символу (с первого до последнего). Склеиваем вырезанный символ с получаемой строкой strWord1 (strWord1: =”выделенный символ”+ strWord1). Тогда первый выделенный символ из слова strWord будет последним символом в получаемом слове strWord1, второй выделенный символ из слова strWord – предпоследним символом в слове strWord1 и т. д.
QBasic
REM обращение слова
DIM strWord AS STRING, strWord1 AS STRING, intI AS INTEGER ′ описание операндов
INPUT " Введите обращаемое слово"; strWord ′ ввод strWord
strWord1 = " " ′ обращенное слово сначала равно пустой строке
FOR intI = 1 TO LEN(strWord) ′ организуем вырезку последовательно
′ всех символов строки strWord
strWord1 = MID$(strWord, intI, 1) + strWord1 ′ склеиваем строку ′ strWord1 с вырезанным символом строки strWord
NEXT intI
PRINT strWord1 ′ вывод обращенной строки strWord1 на экран
END
Ручное исполнение программы, написанной на языке QBasic, приведено в таблице 5, с. 168.
Пример 12. Напишите программы ввода и вывода элементов множества SetA. Исполните составленные программы, используя метод моделирования исполнения программы компьютером в виде наглядных протоколов для множества [8, 6, 9].
Решение
Программы ввода и вывода элементов множества:
| Program TaskSet; Uses Crt; Type TSet=set of 5..9; Var i, n: byte; SetA: TSet; next: 5..9; Begin ClrScr; {ввод элементов множества SetA } SetA: =[]; Write(‘Задайте количество элементов множества’); Readln(n); for i: =1 to n do begin Write(i, ’ – элемент? ’); Readln(next); SetA: =SetA+[next]; end; | Program TaskSet1; Uses Crt; Type TSet=set of 5..9; Var i, n: byte; SetA: TSet; next: 5..9; sim: char; Begin ClrScr; {ввод элементов множества SetA } SetA: =[]; i: =1; Repeat Write(i, ’ – элемент? ’); Readln(next); i: =i+1; SetA: =SetA+[next]; Write(‘Вводить элемент множества д/н? ’); Readln(sim) Until sim=’н’; |
| {вывод элементов множества} for i: =5 to 9 do if i in SetA then Write(i: 4); End. |
Ручное исполнение программ TaskSet и TaskSet1 дано в таблицах 6-8, с. 171.