Тема: Інструктаж з БЖД. Повторення вивченого матеріалу в 8 класі.

1. Теоретичний матеріал

1. Згадай зарезервовані слова середовища Паскаль

 

 

2. Лінійні програми

2. скласти в правильному порядку лінійну програму-обчислити квадрат введеного числа

 

Завдання. 

1. Знайти середнє арифметичне трьох чисел a, b, c. Числа a, b, c ввести з клавіатури.
2. Написати програму для обчислення квадратного кореня з модуля різниці двох заданих чисел.
   При виведенні результату передбачити одну цифру після коми.
3. Обчислити катет прямокутного трикутника, знаючи гіпотенузу і другий катет.
      
   Завдання-підказка 

Створи пари і запиши в зошиті незнайомі команди

 

3.Склади в правильному порядку програму з розгалуженням

Тема уроку: Табличні величини.

Тема 1. Табличні величини

1. Опис масива із 25 цілих чисел:

var mas:array[1..25] of integer;

mas - імя масива, що може змінюватися;

array -зарезервоване слово (в перекладі з англ. означає масив);

integer вказує на тип даних;

2. Опис масива із 100 дійсних чисел:

var a: array [1..100] of real ;

3. Введення елементів масиву із клавіатури

For i : =1 to 5 do read(a[i]);

4. Знаходження суми елементів масиву із 5 чисел:

Для знаходження суми елементів масиву потрібно:

     1.Завести величину-суматор для накопичення суми чисел.

     2.Обнулити її. (Присвоїти значення 0).

     3.Організувати цикл проходження по масиву та додавання елементів величини-суматора.

     4.Вивести результат на екран.

   var A: array [1..5] of real ;

   i: integer; S: Real;

begin

For i : =1 to 5 do read(a[i]);

     S : = 0;

    For i : =1 to 5 do

    Begin

        S : = S + A[ i ];

    End;

    Writeln('S=',S);

    End.

5.        Добуток елементів масиву знаходиться абсолютно аналогічно. Треба лише замінити дві команди в попередній програмі.

А саме:

    S : = 0; на S : = 1;

                та

   S : = S + A[ i ]; на S : = S * A[ i ];

var A: array [1..5] of real ;

   i: integer; S: Real;

begin

  For i : =1 to 5 do read(a[i]);

     S : = 1;

    For i : =1 to 5 do

    Begin

        S : = S * A[ i ];

    End;

    Writeln('S=',S);

    End.

 6 . Знайти суму і кількість додатніх елементів масиву.

var A: array [1..15] of real ;

 к,  i: integer; S: Real;

begin

For i : =1 to 15 do read(a[i]);

     S : = 0; k:=0;

    For i : =1 to 15 do if a[i] > 0 then

    Begin

        S : = S + A[ i ];

       k:=k+1;

    End;

    Writeln('S=', S);

     Writeln('k=', k);

    End.

 

6. Виведення 20 елементів масиву

For i : =1 to 5 do writeln(a[i]);

8. Знаходження найбільшого елемента масива  із 100 дійсних чисел

var A: array [1..100] of real ;

   i: integer; max: Real;

begin

  For i : =1 to 100 do read(a[i]);

     max : =a[1] ;

    For i : =2 to 100 do

        if  max<a[i]  then max:=a[i];

       Writeln('max=', max);

    End.

9. Знаходження номера найбільшого елемента масива із 50 дійсних чисел

var A: array [1..50] of real ;

   i: integer; max: Real; N_max: integer;

begin

  For i : =1 to 50 do read(a[i]);

     max : =a[1] ;

    For i : =2 to 50 do

        if  max<a[i]  then

begin

                       max:=a[i];

                       N_max:=i;

end;

       Writeln('max=', max);

   Writeln('N_max=', N_max);

    End.

10. Як поміняти значення змінних А і В , використовуючи додаткову змінну R

 R:=A;

A:=B;

B:=R;

 

 Завдання на опрацювання масивів

Завдання № 1.

Знайти суму всіх елементів масиву із 12 цілих чисел.

 

Завдання № 2.

Знайти суму всіх елементів масиву із 12 дійсних чисел.

 

Завдання № 3.

В масиві із 9 цілих чисел замінити парні елементи числом 100 і вивести змінений масив .

 

Завдання № 4.

В масиві із 11 цілих чисел замінити непарні елементи числом 200 і вивести змінений масив .

 

Завдання № 5.

В масиві із 10 цілих чисел знайти суму і кількість елементів масиву, кратних 3.

 

Завдання № 6.

В масиві із 11 цілих  чисел знайти суму і кількість елементів масиву, кратних 5.

 

Завдання № 7.

В масиві із 12 цілих  чисел знайти середнє арифметичне непарних елементів масиву.

 

Завдання № 8.

В масиві із 12 цілих  чисел знайти середнє арифметичне непарних елементів масиву.

 

Завдання № 9.

В масиві із 12 цілих  чисел знайти середнє арифметичне елементів масиву, що мають парні індекси.

 

Завдання № 10.

В масиві із 12 цілих  чисел знайти середнє арифметичне елементів масиву, що мають непарні індекси.

 

Завдання № 11.

В масиві із 12 цілих  чисел знайти найбільший елемент, замінити його на число 200 і вивести змінений масив.

 

Завдання № 12.

В масиві із 12 цілих  чисел знайти найменший елемент, замінити його на число 600 і вивести змінений масив.

 

Завдання № 13.

В масиві із 13 цілих  чисел знайти найбільший і найменший  елементи, поміняти їх місцями і вивести змінений масив.

Виконати тестові завдання

 Домашнє завдання:

Скласти програму для реалізації задачі

В масиві із 12 цілих  чисел знайти середнє арифметичне непарних елементів масиву.

 

 

Матеріали для повторення

  

Знайомство із середовищем програмування Pascal

Задача.

Знайти корені квадратного рівняння ax² + bx + c = 0 із діапазону від -100 до 100.

Рівняння             x² +  4x  - 5  = 0                              Program koren;

   var a,b,c,x: Integer;

   begin

a:=1;

b:= 4;

c:=-5;

For x : =-100  to 100  do

If ax² + bx + c = 0 then      Writeln(' корінь',x);

    End.

 

Тема 1. Табличні величини

1. Опис масива із 25 цілих чисел:

var mas:array[1..25] of integer;

mas - імя масива, що може змінюватися;

array -зарезервоване слово (в перекладі з англ. означає масив);

integer вказує на тип даних;

2. Опис масива із 100 дійсних чисел:

var a: array [1..100] of real ;

3. Введення елементів масиву із клавіатури

For i : =1 to 5 do read(a[i]);

4. Знаходження суми елементів масиву із 5 чисел:

Для знаходження суми елементів масиву потрібно:

     1.Завести величину-суматор для накопичення суми чисел.

     2.Обнулити її. (Присвоїти значення 0).

     3.Організувати цикл проходження по масиву та додавання елементів величини-суматора.

     4.Вивести результат на екран.

   var A: array [1..5] of real ;

   i: integer; S: Real;

begin

For i : =1 to 5 do read(a[i]);

     S : = 0;

    For i : =1 to 5 do

    Begin

        S : = S + A[ i ];

    End;

    Writeln('S=',S);

    End.

5.        Добуток елементів масиву знаходиться абсолютно аналогічно. Треба лише замінити дві команди в попередній програмі.

А саме:

    S : = 0; на S : = 1;

                та

   S : = S + A[ i ]; на S : = S * A[ i ];

var A: array [1..5] of real ;

   i: integer; S: Real;

begin

  For i : =1 to 5 do read(a[i]);

     S : = 1;

    For i : =1 to 5 do

    Begin

        S : = S * A[ i ];

    End;

    Writeln('S=',S);

    End.

 6 . Знайти суму і кількість додатніх елементів масиву.

var A: array [1..15] of real ;

 к,  i: integer; S: Real;

begin

For i : =1 to 15 do read(a[i]);

     S : = 0; k:=0;

    For i : =1 to 15 do if a[i] > 0 then

    Begin

        S : = S + A[ i ];

       k:=k+1;

    End;

    Writeln('S=', S);

     Writeln('k=', k);

    End.

 

6. Виведення 20 елементів масиву

For i : =1 to 5 do writeln(a[i]);

8. Знаходження найбільшого елемента масива  із 100 дійсних чисел

var A: array [1..100] of real ;

   i: integer; max: Real;

begin

  For i : =1 to 100 do read(a[i]);

     max : =a[1] ;

    For i : =2 to 100 do

        if  max<a[i]  then max:=a[i];

       Writeln('max=', max);

    End.

9. Знаходження номера найбільшого елемента масива із 50 дійсних чисел

var A: array [1..50] of real ;

   i: integer; max: Real; N_max: integer;

begin

  For i : =1 to 50 do read(a[i]);

     max : =a[1] ;

    For i : =2 to 50 do

        if  max<a[i]  then

begin

                       max:=a[i];

                       N_max:=i;

end;

       Writeln('max=', max);

   Writeln('N_max=', N_max);

    End.

10. Як поміняти значення змінних А і В , використовуючи додаткову змінну R

 R:=A;

A:=B;

B:=R;

 

 Завдання на опрацювання масивів

Завдання № 1.

Знайти суму всіх елементів масиву із 12 цілих чисел.

 

Завдання № 2.

Знайти суму всіх елементів масиву із 12 дійсних чисел.

 

Завдання № 3.

В масиві із 9 цілих чисел замінити парні елементи числом 100 і вивести змінений масив .

 

Завдання № 4.

В масиві із 11 цілих чисел замінити непарні елементи числом 200 і вивести змінений масив .

 

Завдання № 5.

В масиві із 10 цілих чисел знайти суму і кількість елементів масиву, кратних 3.

 

Завдання № 6.

В масиві із 11 цілих  чисел знайти суму і кількість елементів масиву, кратних 5.

 

Завдання № 7.

В масиві із 12 цілих  чисел знайти середнє арифметичне непарних елементів масиву.

 

Завдання № 8.

В масиві із 12 цілих  чисел знайти середнє арифметичне непарних елементів масиву.

 

Завдання № 9.

В масиві із 12 цілих  чисел знайти середнє арифметичне елементів масиву, що мають парні індекси.

 

Завдання № 10.

В масиві із 12 цілих  чисел знайти середнє арифметичне елементів масиву, що мають непарні індекси.

 

Завдання № 11.

В масиві із 12 цілих  чисел знайти найбільший елемент, замінити його на число 200 і вивести змінений масив.

 

Завдання № 12.

В масиві із 12 цілих  чисел знайти найменший елемент, замінити його на число 600 і вивести змінений масив.

 

Завдання № 13.

В масиві із 13 цілих  чисел знайти найбільший і найменший  елементи, поміняти їх місцями і вивести змінений масив.