МУНИЦИПАЛЬНОЕ БЮДЖЕТНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

средняя общеобразовательная школа №50 города Иваново

МЕТОДИЧЕСКАЯ РАЗРАБОТКА ПО ИНФОРМАТИКЕ

«Линейные алгоритмы и решение задач по их программированию» для учащихся 9 классов, обучающихся информатике на базовом уровне.

Автор-составитель:

кандидат химических наук, учитель физики и информатики высшей квалификационной категории

Зеленин Олег Юрьевич

Иваново

2014 год

Линейный алгоритм

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

Блок-схема линейного алгоритма:

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

Задачи по программированию линейных алгоритмов

1. Ввести два ненулевых числа. Найти их сумму, разность, произведение и частное. Вывести полученные значения.

                                                                                                                     QBASIC                                                            PASCAL

                                                              10 CLS                                           begin

                                                              20 INPUT “a=”; a                                 var a, b: real;

                                                              30 INPUT “b=”; b                    write ('Введите 1 число   ');

                                                              40 sum=a+b                                       readln (a);

                                                              50 raz=a–b                          write ('Введите 2 число   ');

                                                              60 pro=a*b                                       readln (b);

write ('a+b=');

70 ch=a/b

writeln (a+b);

                                                              80 PRINT “a+b=”; sum                             write ('a-b=');

                                                              90 PRINT “a–b=”; raz                             writeln (a-b);

                                                              100 PRINT “a*b=”; pro                            write ('a*b=');

                                                              110 PRINT “a/b=”; ch                             writeln (a*b);

                                                              120 END                                                                                    write ('a/b=');

writeln (a/b);           end.

                                                                                                                          Проверка работы программы:

Введите 1 число   5 Введите 2 число   2 a+b=7 a-b=3 a*b=10 a/b=2.5

 Найти периметр и площадь прямоугольного треугольника. Ввести длины его катетов a и b. Вывести полученные значения.

                                                                                                             QBASIC                                                               PASCAL

                                                        10 CLS                                           begin

                                                        20 INPUT “a=”; a                                 var a, b, c: real;

30 INPUT “b=”; b     write ('Введите длину 1 катета   '); 40 c=sqrt(a^2+b^2)   readln (a);

write ('Введите длину 2 катета   ');

50 s=a*b/2 readln (b);

60 p=a+b+c

c:=sqrt(sqr(a)+sqr(b));

                                                        70 PRINT “s=”; s                                 write ('s=');

                                                        80 PRINT “p=”; p                                 writeln (0.5*a*b);

                                                        90 END                                                                                      write ('p=');

writeln (a+b+c); end.

                                                                                                                    Проверка работы программы:

Введите длину 1 катета   2 Введите длину 2 катета   5

s=5 p=12.38

Ввести длину ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. Вывести полученные

значения.

QBASIC

10 CLS

20 INPUT “a=”; a

30 s=a^2

40 s1=s*6

50 v=s*a

60 PRINT “Площадь грани”; s

70 PRINT “Площадь поверхности”; s1

80 PRINT “Объем куба=”; v 90 END

PASCAL

begin var a: real; write ('Введите длину ребра куба   '); readln (a); write ('Площадь грани равна   '); writeln (sqr(a)); write ('Площадь поверхности куба равна   '); writeln (6*sqr(a)); write ('Объем куба равен   '); writeln (exp(3*ln(a))); end.

                                                                                                                   Проверка работы программы:

Введите длину ребра куба   1

Площадь грани равна   1

Площадь поверхности куба равна   6

Объем куба равен   1

Найти длину окружности и площадь круга заданного радиуса R. В качестве значения pi использовать 3.14. Вывести полученные значения.

                                                                                                                   QBASIC                                                           PASCAL

                                                              10 CLS                                           begin

                                                              20 pi=3.14                                       var r: real;

                                                              30 INPUT “r=”; r          write ('Введите радиус окружности   ');

                                                              40 s=pi*r^2                                      readln (r);

write ('s=');

50 l=2*pi*r writeln (pi*sqr(r));

60 PRINT “s=”; s

write ('l=');

                                                              70 PRINT “l=”; l                                writeln (2*pi*r);

                                                              80 END                                                                                      end.

                                                                                                                   Проверка работы программы:

Введите радиус окружности   1 s=3.14 l=6.28

Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2). В качестве значения pi использовать 3.14. Ввести радиусы R1 и R2. Вывести полученное значение.

                                                                                                                   QBASIC                                                           PASCAL

                                                              10 CLS                                           begin

                                                              20 pi=3.14                                      var r1, r2: real;

                                                              30 INPUT “r1=”; r1   write ('Введите радиус большой окружности');

                                                              40 INPUT “r2=”; r2                               readln (r1);

write ('Введите радиус малой окружности');

50 s1=pi*r1^2 readln (r2);

60 s2=pi*r2^2

write ('Площадь кольца равна');

^{70 s=s1–s2}   writeln (pi*(r1-r2)*(r1+r2)); 80 PRINT “s=”; s      end.

80 END

                                                                                                                   Проверка работы программы:

Введите радиус большой окружности   2

Введите радиус малой окружности   1

Площадь кольца равна   9.42

 Ввести длину окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения pi использовать 3.14. Вывести полученное значение.

                                                                                                                   QBASIC                                                           PASCAL

                                                              10 CLS                                           begin

                                                              20 pi=3.14                                       var l, r: real;

                                                              30 INPUT “l=”; l           write ('Введите длину окружности   ');

                                                              40 r=l/(2*pi)                                    readln (l);

r:=l/(2*pi);

50 s=pi*r^2 write ('Площадь круга равна   ');

60 PRINT “s=”; s

writeln (pi*sqr(r));

                                                              70 END                                                                                      end.

                                                                                                                   Проверка работы программы:

Введите длину окружности   8 Площадь круга равна   5.09

 Ввести длину и ширину прямоугольника. Найти его площадь и периметр. Вывести полученные значения.

                                                                                                                   QBASIC                                                           PASCAL

                                                              10 CLS                                           begin

                                                              20 INPET “a=”;a                             var a, b, s, p: real;

                                                              30 INPUT “b=”; b       write ('Введите длину прямоугольника   ');

                                                              40 s=a*b                                         readln (a);

write ('Введите ширину прямоугольника   ');

50 p=2*(a+b) readln (b);

60 PRINT “s=”; s

s:=a*b;

                                                              70 PRINT “p=”; p                                 p:=2*(a+b);

                                                              80 ^END                                  write ('Площадь прямоугольника равна   ');

writeln (s);

write ('Периметр прямоугольника равен   '); writeln (p); end.

                                                                                                                   Проверка работы программы:

Введите длину прямоугольника   2

Введите ширину прямоугольника   3

Площадь прямоугольника равна   6

Периметр прямоугольника равен   10

 Ввести два положительных числа a и b (a>b). Опеределить на сколько первое число больше второго и во сколько раз первое число больше второго. Результаты вывести на экран.

                                                                                                                   QBASIC                                                           PASCAL

                                                              10 CLS                                           begin

                                                              20 INPET “a=”;a                             var a, b, c, d: real;

                                                              30 INPUT “b=”; b                    write ('Введите число а   ');

                                                              40 с=a-b                                         readln (a);

write ('Введите число b   ');

50 d=a/b readln (b);

60 PRINT “c=”; c

c:=a-b;

                                                              ^{70 PRINT “d=”; d}          write ('Число a больше числа b на   ');

                                                              80 END                                                                                      writeln (c);

d:=a/b;

write ('Число a больше числа b в   '); write (d); writeln ('   раз(a)'); end.

                                                                                                                   Проверка работы программы:

Введите число а   10

Введите число b   2

Число a больше числа b на   8

Число a больше числа b в   5   раз(a)

Задачи для самостоятельного выполнения

Задача №1. В пяти тестовых опросах мальчик получил оценки. Составьте алгоритм и программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

Задача №2. Имеется садовый участок, имеющий форму прямоугольника со сторонами А метров и В метров. Составьте алгоритм и программу, которая определит сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 10 см.

Задача №3. В магазине продается костюмная ткань. Ее цена В руб. за квадратный метр. Составьте алгоритм и программу, которая подсчитает и выведет на экран стоимость куска этой ткани длиной Х метров и шириной 80 см.

Задача №4. Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна А метров, а высота - В метров. Рулон обоев имеет длину 12 метров и ширину K см. Составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона К руб.

Задача №5. Фруктовый магазин продает яблоки по А руб. за кг., груши по В руб. за кг., апельсины по С руб. за кг. В первые два дня недели продано: понедельник – Х кг. яблок, Y кг. груш, Z кг. апельсинов; вторник – X кг. яблок, Y кг. груш, Z кг. Апельсинов (X, Y, Z — принимают разные значения в понедельник и во вторник). Напишите программу, которая будет вычислять, на какую сумму продал магазин фруктов в каждый из этих дней и за оба дня вместе.

Используемая литература

1. Угринович Н.Д. Информатика и ИКТ. Учебник для 9 класса. 6-е изд. - М.: 2012. – 295 с.