Задачи с массивами

1. Программа ввода массива из 20-ти последовательных элементов:

Program VvodMass;

const n=20; //объявляем константу

var a: array [1..n] of integer; //объявляем массив

i:integer; //объявляем переменные

begin

a[1]:=1; //задаем значение первому элементу последовательности

write(a[1],' ');

For i:=2 to n do

begin

a[i]:=a[i-1]+1;

write(a[i],' ');

end;

end.

2. Программа ввода массива из 20-ти чётных элементов:

Program Posledovatelnost;

const n=20;

var a: array [1..n] of integer; //Объявление массива

i,k:integer; //объявляем переменные

begin

a[1]:=0;

write(a[1],' ');

for i:=2 to n do

begin

a[i]:=a[i-1]+2;

write(a[i],' ');

end;

end.

3. Программа ввода массива случайным образом, с помощью функции Random:

Program MassSluchayno;

Var a: Array[1..12] Of Integer; //объявляем массив из 12 чисел

i: integer;

begin

Randomize; //процедура генерации случайных чисел

for i:= 1 to 12 do

begin

a[i]:=random(18)-5 ;//генерируем числа в диапазоне -5..12

Write('a',I,'=',a[i]:2,' '); //результат

end;

writeln();

end.

4. Программа вычисления сумм отдельных строк матрицы:

Program SummStrok;

const n=3; m=3;

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

i,j,s,k,t:integer;

begin

for j:=1 to n do

begin

for i:=1 to m do

begin

a[i,j]:= random(101)-50;

write(a[i,j]:4);

s:= s+a[i,j];

end;

writeln(' s=',s);

s:=0;

end;

end.

5. Программа ввода матрицы вручную:

Program VvodVruch;

const n=4; m=3; var a: array [1..n,1..m] of integer;

i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

begin

readln(a[i,j]);

end;

end;

for i:=1 to n do

begin

for j:=1 to m do

begin

write(a[i,j]:3);

end;

writeln;

end;

end.

6. Программа сортировки элементов массива пузырьковым методом:

Program SortPuzyrok;

const n=20;

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

i,j,k,prom: integer;

begin

for i:=1 to n do

begin

a[i]:=random(101);

write(a[i],' ');

end;

writeln;

for i:=2 to n do

for j:=1 to n do

if a[i]<a[j] then

begin

prom:=a[j];

a[j]:=a[i];

a[i]:=prom;

end;

for i:=1 to n do

begin

write(a[i],' ');

end;

end.

7. Программа вычисления суммы элементов главной диагонали квадратной матрицы:

Program SummGlavDiag;

const n=3;

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

s,i,j:integer;

begin

s:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(101);

write(a[i,j]:5);

if i=j then s:=s+a[i,j];

end;

writeln;

end;

writeln('Сумма эл. главной диаг.',s);

end.

8. Программа вычисления суммы элементов вспомогательной диагонали:

Program SummVspomDiag;

const n=3;

var a: array [1..n,1..n] of integer; s,i,j:integer;

begin

s:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(101);

write(a[i,j]:5);

if i=n-j+1 then s:=s+a[i,j];

end;

writeln;

end;

writeln('Сумма элементов вспом. диаг.= ',s);

end.

Все программы решения задач протестированы.

Список источников и использованной литературы:

1. http://sunschool.math.rsu.ru/pabc/
2. Turbo Pascal 7.0: Начальный курс; Фаронов В.В.; КноРус; 2005 г.;
3. Turbo Pascal решение сложных задач Автор: В. В. Потопахин. Изд. БХВ-Петербург 2006г.
4. К.Поляков

5. Методическое пособие "Программирование на языке Turbo Pascal..”Пахомова А.В"

1. Макаренко А.Е. Готовимся к экзамену по информатике. М: Айрис-пресс. 2002г.
2. Л.В.Зайцева. Алгоритмические языки и программирование. М., МГГУ, 1996 (учебное пособие).
3. Основы программирования на Турбо-Паскаль
4. Полезные информатикам ссылки
5. http://comp-science.hut.ru/didakt_i.html
6. http://firststeps.narod.ru
7. Pascal 7.0. Практическое программирование. Издание 2. Климова., М., ОМЕГА - Л, 2001
8. Turbo Pascal в задачах и примерах. Культин, М., ОМЕГА - Л, 2001
9. Turbo Pascal. Практикум. Немнюгин, М., ОМЕГА - Л, 2001
10. Программирование в Turbo Pascal 7.0. Юбилейное изд., М., ОМЕГА - Л, 2001

Особая благодарность – Скрыльникову Дмитрию Михайловичу.