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.
Все программы решения задач протестированы.
Список источников и использованной литературы:
- http://sunschool.math.rsu.ru/pabc/
- Turbo Pascal 7.0: Начальный курс; Фаронов В.В.; КноРус; 2005 г.;
- Turbo Pascal решение сложных задач Автор: В. В. Потопахин. Изд. БХВ-Петербург 2006г.
- К.Поляков
5. Методическое пособие "Программирование на языке Turbo Pascal..”Пахомова А.В"
- Макаренко А.Е. Готовимся к экзамену по информатике. М: Айрис-пресс. 2002г.
- Л.В.Зайцева. Алгоритмические языки и программирование. М., МГГУ, 1996 (учебное пособие).
- Основы программирования на Турбо-Паскаль
- Полезные информатикам ссылки
- http://comp-science.hut.ru/didakt_i.html
- http://firststeps.narod.ru
- Pascal 7.0. Практическое программирование. Издание 2. Климова., М., ОМЕГА - Л, 2001
- Turbo Pascal в задачах и примерах. Культин, М., ОМЕГА - Л, 2001
- Turbo Pascal. Практикум. Немнюгин, М., ОМЕГА - Л, 2001
- Программирование в Turbo Pascal 7.0. Юбилейное изд., М., ОМЕГА - Л, 2001
Особая благодарность – Скрыльникову Дмитрию Михайловичу.