Масиви.Частина 3 - Інформатика - Уроки, реферати, виховні роботи та багато іншого - Обмін досвідом


Форма входу

Вітаю Вас Гість!

Пошук

чат

200

Наше опитування

Чи потрібне зовнішнє оцінювання
Усього відповідей: 235

Статистика


Усього онлайн: 1
Гостей: 1
Користувачів: 0
Головна » Стаття » Інформатика

Масиви.Частина 3

IV. Закріплення нового матеріалу.

(Фронтальне опитування)

1.     Що ми називаємо масивом?

– Масив – це впорядкований іменований набір із фіксованої кількості однотипних даних.

2.     Що можна об’єднувати у масиви?

– У масиви можна об’єднувати результати експериментів, списки прізвищ співробітників, різні складні структури даних.

3.     Які бувають масив?

– Одновимірні і двовимірні.

4. Що називається одновимірним масивом?

Якщо кожний елемент масиву визначається за допомо­гою одного номера, то такий масив називається одновимірним.

5.     Що називається двовимірним масивом?

Якщо кожний елемент масиву визначається за допомо­гою двох номерів, то такий масив називається двовимірним.

6. Яке спеціальне слово ми використовуємо для запису масиву?

Слово array, що означає масив.

7. Назвіть приклад запису масиву?

    const n = 10;

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

Добре. А зараз давайте застосуємо ці знання при складанні програм. Запишіть собі таку умову задачі:

Задача 1. У заданій послідовності цілих чисел визначити кількість і суму елементів, кратних 10.

program zadaha1;

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

    i,k,s:integer;

begin

  for i:=1 to 10 do

      readln(mas[i]);

  k:=0; s:=0;

  for i:=1 to 10 do

    begin

      if mas[i] mod 10 =0 then

                            begin

                              k:=k+1;

                              s:=s+mas[i];

                            end;

    end;   writeln(k,s:10)

end.

Задача 2. Напишіть програму для відшукання найбільшого елементу масиву [1..n], де  n = 117.

program MAX;

const n=117;

var a: array [1..n] of integer; max, і : integer;

begin

              for i := 1 to n do

begin

                      write ('a[', i,']= ');

                      readIn (a[i]);

end;

    max := a[1];

    for i := 2 to n do

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

write ('найбільший елемент масиву max =', max)

end.

V. Домашнє завдання.

Вивчити конспект лекції, а також пункт 2.8 за підручником Верлань Апатова “Інформатика 10-11” і розв’язати наступні задачі.

Задача 1. Знайдіть суму всіх цілих чисел від 1 до 100?

program sum;

const n = 100;

var а : array [1..n] of real; s: real; і : integer;

begin

write (' вводьте елементи масиву – ');

write (n, ' дійсних чисел через пропуск ');

for і := 1 to n do

read (a[i]);

s:=0;

for і :=1 to n do

s := s + a [i];

writeln;

writeln(' сума елементів масиву s = ',s)

end.

Задача 2. Дано n чисел. Замінити всі від’ємні числа їх модулями.

program zadaha2;

const n=10;

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

    i,k,s: integer;

begin

  for i:=1 to n do

      readln (mas[i]);

  for i:=1 to n do

      if mas[i]<0 then mas[i]:=-mas[i];

  for i:=1 to n do

    writeln (mas[i])

end.

Категорія: Інформатика | Додав: stdynzosh (23.03.2009) | Автор: Олександр
Переглядів: 664 | Рейтинг: 0.0/0
Усього коментарів: 0
Додавати коментарі можеть тільки зареєстровані користувачі.
[ Реєстрація | Вхід ]