Приклади, завдання

Задача.

Знайти корені квадратного рівняння 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 ax2 + 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.

7. Виведення 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 цілих чисел знайти найбільший і найменший елементи, поміняти їх місцями і вивести змінений масив.