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


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

Лінійні масиви. Частина 2

Program Sort;

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

I, j, min, k, a: integer;

Begin

Min:=mas[i]; k:=i;

For j:=1 to 10 do

If min>mas[j] then

Begin

Min:=mas[j];

K:=j;

End;

A:=mas[i];

Mas[i]:mas[k];

Mas[k]:=a;

End;

Writeln (’Відсортований масив’);

For i:=1 to 10 do

Write (mas[i]:3)

End.

Запишемо тепер як розв’язується ця задача на мові програмування Pascal.

 

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

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

Задача.

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

Program Sort;

Var mas:array [1..12] of integer;

I, j, min, k, a: integer;

Begin

Min:=mas[i]; k:=i;

For j:=1 to 12 do

If min<mas[j] then

Begin

Min:=mas[j];

K:=j;

End;

A:=mas[i];

Mas[i]:mas[k];

Mas[k]:=a;

End;

Writeln (’Відсортований масив’);

For i:=1 to 12 do

Write (mas[i]:3)

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