Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8




НазваниеКраткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8
страница12/33
Дата публикации07.07.2013
Размер4.28 Mb.
ТипКраткое содержание
zadocs.ru > Информатика > Краткое содержание
1   ...   8   9   10   11   12   13   14   15   ...   33
^

Глава .3Типичные маленькие программы


Каждому программисту известны такие понятия, как счетчик, сумматор, вложенные циклы и подобные понятия, составляющие элементарную технику программирования. Без них не обходится ни одна реальная программа. В этой главе я не буду вводить новых операторов, а покажу, как программировать типичные задачи, в том числе и те, что используют упомянутые понятия.
^

3.1.Вычислительная циклическая программа


Задача: Во дворце 40 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.

Сначала напишем фрагмент для одного зала:

ReadLn (dlina, shirina, visota);

S:=dlina*shirina; {Площадь пола}

V:=S*visota; {Объем}

WriteLn(S,’ ‘,V)

Для решения задачи этот фрагмент нужно выполнить 40 раз, для чего вполне естественно использовать оператор for:

^ VAR i, dlina, shirina, visota, S, V: Integer;
BEGIN

for i:=1 to 40 do begin

ReadLn (dlina, shirina, visota);

S:=dlina*shirina;

V:=S*visota;

WriteLn(S,’ ‘,V)

end {for}
END.

Обратите внимание, что здесь мы несколько модифицировали описанный нами в 1.4 ступенчатый стиль, а именно записали end не под соответствующим ему begin, а под соответствующим ему for. Эта практика также распространена, так как экономит место по вертикали. Мне она нравится больше, поэтому я буду ее придерживаться. Чтобы не спутаться, откуда взялся end, пишем рядом комментарий {for}.

Теперь создадим более дружественный интерфейс, для чего, кроме всего прочего, дадим возможность пользователю самому задавать число залов во дворце:

^ VAR i, dlina, shirina, visota, N, S, V : Integer;
BEGIN

WriteLn(’Введите число залов‘);

ReadLn (N); {N - число залов}

for i:=1 to N do begin

WriteLn(’Введите длину,ширину и высоту зала‘);

ReadLn (dlina, shirina, visota);

S:=dlina*shirina;

V:=S*visota;

WriteLn(‘Площадь пола=’,S,’ Объем зала=‘,V)

end
END.

Здесь курсивом я обозначил новые по сравнению с предыдущей программой элементы.

Пусть во дворце три зала размерами 20*15*4, 30*20*5 и 10*5*3. В этом случае мы вводим N=3 и оператор for выполняет цикл три раза. На каждом выполнении цикла компьютер останавливается на операторе ReadLn (dlina, shirina, visota), мы вводим числа и получаем результаты:

Площадь пола=300 Объем зала=1200

Площадь пола=600 Объем зала=3000

Площадь пола=50 Объем зала=150

Задание 43: Даны стороны N кубиков. Вычислить объем каждого.
^

3.2.Роль ошибок


Из 1.2 мы знаем, что по ошибочной программе компьютер выдает ошибочные результаты. Например, если в нашей программе мы вместо V:=S*visota напишем V:=S+visota, то результаты будут такими:

Площадь пола=300 Объем зала=304

Площадь пола=600 Объем зала=605

Площадь пола=50 Объем зала=53

Если случайно вместо for i:=1 to N написать for i:=2 to N то результаты будут такими:

Площадь пола=300 Объем зала=1200

Площадь пола=600 Объем зала=3000

На этом программа закончит работу и не спросит размеров третьего зала. Вам не кажется странным, что она посчитала 1 и 2 залы, а не 2 и 3? Если кажется, то учтите, что пользователь ничего не знает об ошибке в программе, а компьютер не говорит ему, размеры какого по счету зала ему нужно вводить.

Задания 44-45:

Определите без компьютера, что будет, если

  1. строку for i:=1 to N do begin поместить под строкой ReadLn (dlina, shirina, visota)

  2. поменять местами строки WriteLn(‘Площадь пола=’,S,’ Объем зала=‘,V) и end


Если задания не получаются, введите программы в компьютер и используйте отладочный режим.

3.3.Счетчики


Задача 1: В компьютер с клавиатуры вводятся числа. Компьютер после ввода каждого числа должен печатать, сколько среди них уже введено положительных.

Фрагмент, решающий задачу:

c:=0; {Обнуляем счетчик}

m: ReadLn(a); {Вводим очередное число}

if a>0 then c:=c+1;

WriteLn('Из них положительных - ' ,c);

goto m

Пояснения: В 2.6 мы придумали переменную i, которую назвали счетчиком циклов. Здесь мы тоже придумали переменную c. Она у нас выполняет роль счетчика положительных чисел. Сердце счетчика - оператор c:=c+1. Именно он в нужный момент увеличивает счетчик на 1. Но и без if a>0 then тоже никак нельзя. Если бы его не было, то c подсчитывал бы все числа без разбору, то есть был бы обыкновенным счетчиком циклов. В нашем же фрагменте увеличение с на 1 выполняется не всегда, а лишь при положительном а.

Пусть мы вводим числа 8, -2, 10 . . . В этом случае порядок выполнения операторов будет такой:

Оператор

а

с

Печать

c:=0

?

0




ReadLn(a)

8

0




if a>0 then c:=c+1

8

1




WriteLn('Из них положительных - ' ,c)

8

1

Из них положительных 1

goto m

8

1




ReadLn(a)

-2

1




if a>0 then c:=c+1

-2

1




WriteLn('Из них положительных - ' ,c)

-2

1

Из них положительных 1

goto m

-2

1




ReadLn(a)

10

1




if a>0 then c:=c+1

10

2




WriteLn('Из них положительных - ' ,c)

10

2

Из них положительных 2

goto m

10

2




Не забывайте обнулять счетчик перед входом в цикл, а не то он начнет считать вам не с нуля, а бог знает с чего. Как бы вам понравилось, если бы таксист в начале поездки не обнулил счетчик?

В нашем фрагменте значения счетчика печатаются при каждом выполнении цикла. Изменим задачу.

Задача 2: В компьютер вводится ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных.

Программа:

VAR c,i :Integer;

a :Real;

^ BEGIN

c:=0; {Обнуляем счетчик}

for i:=1 to 200 do begin

ReadLn(a);

if a>0 then c:=c+1

end {for};

WriteLn('Из них положительных - ' ,c)

END.

Пояснения: Путь рассуждений здесь тот же, что и в первой задаче. В результате применения оператора for фрагмент ^ ReadLn(a);if a>0 then c:=c+1 выполняется ровно 200 раз, благодаря чему счетчик с накапливает нужное значение. Оператор WriteLn выполняется только один раз и печатает это значение.

^ Совет: Если вы запускаете эту программу в компьютере, то с числом 200 возиться крайне долго. Поменяйте его на 3 или 4. Смысл программы от этого не изменится.
Задание 46: Что будет, если

  1. Вместо c:=0 написать c:=10.

  2. Вместо c:=c+1 написать c:=c+2.

  3. Строки end {for} и WriteLn поменять местами.

  4. Строки c:=0 и for поменять местами.

  5. Строки for и ReadLn поменять местами.


Задача 3: В компьютер один за другим вводятся произвольные символы. Ввод заканчивается символом "/". Подсчитать, какой процент от общего числа введенных символов составляют символ "W" и символ ":" по отдельности.

Здесь мы организуем три счетчика одновременно: сW и сDv - для подсчета букв W и двоеточий соответственно, а также i - счетчик циклов, то есть общего числа введенных символов.

Программа:

VAR i,cW,cDv, procent_W, procent_Dv : Integer;

simvol :Char;

begin

i:=0; cW:=0; cDv:=0; {Обнуляем все три счетчика}

repeat {Повторяй цикл}

ReadLn (simvol); {Введи символ}

i:=i+1; {«Посчитай» его}

case simvol of

'W' :cW:=cW+1; {Если это W, увеличь счетчик символов W}

':' :cDv:=cDv+1 {Если это :, увеличь счетчик символов :}

end

until simvol = '/'; {пока не наткнешься на символ /}

procent_W :=Round(100*cW/i); {Вычисляй процент символов W}

procent_Dv :=Round(100*cDv/i); {Вычисляй процент символов :}

WriteLn(procent_W,' ',procent_Dv)

end.

Задание 47: В компьютер вводится N чисел. Подсчитать по отдельности количество отрицательных, положительных и тех, что превышают число 10.

Задание 48: В компьютер вводятся пары целых чисел. Подсчитать, сколько среди них пар, дающих в сумме число 13. Подсчет закончить после ввода пары нулей.

Напомню, что пару чисел можно ввести оператором ReadLn(a,b).

3.4.Сумматоры


Если вы поняли идею счетчика, то понять идею сумматора вам будет нетрудно. Посмотрим, как будет работать следующий фрагмент:

s:=0; {Обнуляем сумматор. Это не менее важно, чем обнулить счетчик}

m: ReadLn(a);

s:=s+a; {Увеличиваем сумматор}

WriteLn(‘Сумма=’, s);

goto m;
Пусть мы вводим числа 8, 4, 10 . . . В этом случае порядок выполнения операторов будет такой:

Оператор

а

s

Печать

s:=0

?

0




ReadLn(a)

8

0




s:=s+a

8

8




WriteLn(‘Сумма=' ,s)

8

8

Сумма=8

goto m

8

8




ReadLn(a)

4

8




s:=s+a

4

12




WriteLn(‘Сумма=' ,s)

4

12

Сумма=12

goto m

4

12




ReadLn(a)

10

12




s:=s+a

10

22




WriteLn(‘Сумма=' ,s)

10

22

Сумма=22

goto m

10

22




……….










Как видите, в ячейке s накапливается сумма вводимых чисел a, поэтому назовем эту ячейку сумматором. Отличие сумматора от счетчика в том, что счетчик увеличивается на 1 оператором c:=c+1, а сумматор - на суммируемое число оператором s:=s+a.

Задача: В компьютер вводится N чисел. Вычислить и один раз напечатать их сумму.

Программа:

VAR i,N :Integer;

a,s :Real;

^ BEGIN

ReadLn(N);

s:=0;

for i:=1 to N do begin

ReadLn(a);

s:=s+a

end {for};

WriteLn(‘Сумма равна ' ,s:20:10)

END.
Задание 49: Пусть N=2, a=5 и 3. Тогда по этой программе Паскаль напечатает 8. Что он напечатает, если:

  1. Вместо s:=0 написать s:=10.

  2. Вместо s:=s+a написать s:=s+a+1.

  3. Строки end {for} и WriteLn поменять местами.

  4. Строки s:=0 и for поменять местами.

  5. Строки for и ReadLn поменять местами.

  6. Строки s:=s+a и end {for} поменять местами.

  7. Вместо for i:=1 to N написать for i:=2 to N.

Задания 50-52: Написать программы для следующих задач:

  1. Во дворце 40 залов. Известны длина и ширина каждого зала. Вычислить площадь пола всего дворца.

  2. Вычислить средний балл учеников вашего класса по физике.

  3. Вычислить произведение N произвольных чисел.
^

3.5.Вложение циклов в разветвления и наоборот


Реальная программа на Паскале представляет собой сложную мозаику из циклических и разветвляющихся частей, вложенных друг в друга. Мы уже видели в 1.7, как в оператор case был вложен оператор for. В свою очередь в оператор цикла могут быть вложены другие операторы, как в 3.3, и так до бесконечности.

Для тренировки определите, что напечатает следующий фрагмент:

for i:=1 to 5 do begin

a:=9;

if i*i = a then for k:=5 to 8 do Write(k)

else WriteLn(1997);

end {for}

Ответ:

1997

1997

56781997

1997
^

3.6.Вложенные циклы


Поставим себе задачу - напечатать таблицу умножения. В следующем виде:


1*1=

1

1*2=

2

1*3=

3

1*4=

4

1*5=

5

1*6=

6

1*7=

7

1*8=

8

1*9=

9

2*1=

2

2*2=

4

2*3=

6

2*4=

8

2*5=

10

2*6=

12

2*7=

14

2*8=

16

2*9=

18

3*1=

3

3*2=

6

3*3=

9

3*4=

12

3*5=

15

3*6=

18

3*7=

21

3*8=

24

3*9=

27

4*1=

4

4*2=

8

4*3=

12

4*4=

16

4*5=

20

4*6=

24

4*7=

28

4*8=

32

4*9=

36

5*1=

5

5*2=

10

5*3=

15

5*4=

20

5*5=

25

5*6=

30

5*7=

35

5*8=

40

5*9=

45

6*1=

6

6*2=

12

6*3=

18

6*4=

24

6*5=

30

6*6=

36

6*7=

42

6*8=

48

6*9=

54

7*1=

7

7*2=

14

7*3=

21

7*4=

28

7*5=

35

7*6=

42

7*7=

49

7*8=

56

7*9=

63

8*1=

8

8*2=

16

8*3=

24

8*4=

32

8*5=

40

8*6=

48

8*7=

56

8*8=

64

8*9=

72

9*1=

9

9*2=

18

9*3=

27

9*4=

36

9*5=

45

9*6=

54

9*7=

63

9*8=

72

9*9=

81


Начнем с малого - пусть нужно напечатать

1*1=1

Вот фрагмент программы:
Фрагмент 1

a:=1;

b:=1;

proizv:=a*b;

Write(a, ’*’ ,b, ’=’ ,proizv)

Здесь в операторе Write 5 элементов:

  • сомножитель a,

  • символ знака умножения ’*’,

  • сомножитель b,

  • символ ’=’,

  • значение произведения proizv


Усложним задачу. Попробуем заставить компьютер напечатать первую строку таблицы:

1*1=

1

1*2=

2

1*3=

3

1*4=

4

1*5=

5

1*6=

6

1*7=

7

1*8=

8

1*9=

9

Замечаем, что здесь нам нужно решить 9 элементарных задач на вычисление произведения, первую из которых решает фрагмент 1. Все они очень похожи и различаются лишь значением второго сомножителя. Таким образом, для решения каждой из 9 задач подошел бы наш фрагмент 1, если бы в нем в операторе b:=1 вместо единицы стояла нужная цифра. В данном случае идеально подходит оператор for:
Фрагмент 2

a:=1;

for b:=1 to 9 do begin

proizv:=a*b;

Write(a, ’*’ ,b, ’=’ ,proizv, ’ ’ )

end {for}

Для того, чтобы печать была аккуратной, оператор Write мы дополнили символом пробела ’ ’. Он нужен для того, чтобы отдельные столбцы таблицы не сливались.

Следующая ступень усложнения - последняя - напечатать не одну строку таблицы, а девять. Для этого фрагмент 2 должен быть выполнен 9 раз, каждый раз - с новым значением a. Чтобы этого достичь, “обнимем” фрагмент 2 оператором for точно так же, как мы это сделали с фрагментом 1.
Фрагмент 3

for a:=1 to 9 do

for b:=1 to 9 do begin

proizv:=a*b;

Write(a, ’*’ ,b, ’=’ ,proizv, ’ ’ )

end {for b}

end {for a}

Печатать фрагмент 3 будет неаккуратно. Приведем окончательную запись программы с необходимыми добавлениями для аккуратной печати, а также для удобства объяснений снабдим программу комментариями с нумерацией строк:

VAR a,b,proizv: Integer; {1}

^ BEGIN {2}

for a:=1 to 9 do begin {3}

WriteLn; {4}

for b:=1 to 9 do begin {5}

proizv:=a*b; {6}

Write(a, ’*’ ,b, ’=’ ,proizv:3, ’ ’ ) {7}

end {for b} {8}

end {for a} {9}

END. {10}

WriteLn нужен для того, чтобы каждая новая строка таблицы начиналась с новой строки экрана.

Формат :3 означает, что на изображение произведения на экране отведено три позиции. Формат в нашем примере нужен для того, чтобы разные по количеству цифр произведения (например, 4 и 25) занимали на экране одинаковое по размеру место, а то не получится у нас аккуратных столбиков в таблице.

В целом программа иллюстрирует идею вложенных циклов, когда один, внутренний, цикл вложен внутрь другого, внешнего. У нас тело внешнего цикла (строки 4 и 5) выполняется 9 раз, а тело внутреннего (строки 6, 7 и 8) - 81 раз, так как на каждое выполнение строки 5 оно выполняется 9 раз.
Задания 53-56:

  1. Распечатать все возможные сочетания из двух цифр - первая цифра может быть любой от 3 до 8, вторая - любой от 0 до 7. Например, 36, 44, 80.

  2. Распечатать все возможные сочетания из четырех цифр, каждая из которых может принимать значения 1,2,3. Например, 2123, 3312, 1111.

  3. Подсчитать количество таких сочетаний.

  4. Подсчитать количество неубывающих сочетаний, то есть таких, где каждая следующая цифра не меньше предыдущей - 1123, 1223, 2222 и т.п., но не 3322.
^

3.7.Поиск максимального из чисел


Задача программисту: Найти максимальное из вводимых в компьютер чисел.

Задача рыбаку: Принести домой самую большую из выловленных рыб.

Решение рыбака: Рыбак приготовил для самой большой рыбы пустое ведро. Первую пойманную рыбу рыбак не глядя бросает в это ведро. Каждую следующую рыбу он сравнивает с той, что в ведре. Если она больше, то он бросает ее в ведро, а ту, что была там раньше, выпускает в реку.

^ Решение программиста: Программист приготовил для самого большого числа ячейку и придумал ей название, скажем, max. Первое число программист не глядя вводит в эту ячейку. Каждое следующее число (назовем его chislo) он сравнивает с max. Если оно больше, то он присваивает переменной max значение этого числа.

Напишем программу для определения максимального из 10 вводимых чисел:

^ VAR i, chislo, max :Integer;

BEGIN

ReadLn(max); {первую рыбу - в ведро}

for i:=2 to 10 do begin {ловим остальных рыб:}

ReadLn(chislo); {поймали очередную рыбу}

if chislo>max then max:=chislo {и если она больше той, что в ведре, бросаем ее в ведро }

end {for};

WriteLn(max) {несем самую большую рыбу домой}

END.
Задание 57: Найти из N чисел минимальное. Каким по порядку было введено минимальное число? Указание: для номера минимального числа тоже нужно отвести специальную ячейку.

Задание 58: У вас есть данные о росте ваших одноклассников. Правда ли, что рост самого высокого отличается от роста самого низкого больше, чем на 40 см.?

1   ...   8   9   10   11   12   13   14   15   ...   33

Похожие:

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 icon7. Access и бд. Создание бд, работа с таблицами, схема данных
Если база данных хранится не на компьютере или на компьютере хранятся только ее части, приходится отслеживать сведения из целого...

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconМетодическое пособие ( Windows xp) Ростов-на-Дону 2013 Содержание...
Начальные сведения: компьютер, устройства, программы. Запуск и завершение работы. Клавиатура и мышь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconПрограмма «Курс молодого миссионера» на 2013-2015 год Наименование предметов
...

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconНегосударственное образовательное учреждение Адрес: ул. Победы, 51,...
Бухгалтерский учет со знанием 1С: Бухгалтерии для государственного учреждения 2 (+ работа в программе Банк-Клиент)

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 icon1. 2 Теоретические основы информатики Представление информации в компьютере
Для унификации (единообразия) представления в компьютере различной информации (текстовой, аудио-, видео-, и т д.) используют ее кодирование....

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconКраткое содержание происходящего здесь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconКраткое содержание курса
Федеральное государственное бюджетное учреждение высшего профессионального образования

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconСтроительство подземных сооружений
Рабочая программа, краткое содержание, рекомендуемая литература, домашние задания

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconУрок Навыки работы на компьютере. Начальные сведения: компьютер,...
Начальные сведения: компьютер, устройства, программы. Запуск и завершение работы. Клавиатура и мышь

Краткое содержание с рекомендациями 6 Часть I. Необходимые сведения о компьютере и программе 8 iconА) Краткое содержание методов изготовления металлоконструкций.(8-10)
Б) Инструменты, приспособления и оборудование применяемые при изготовлении изделий.(11-13)

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
zadocs.ru
Главная страница

Разработка сайта — Веб студия Адаманов