Переменные в программе.
В программе могут использоваться локальные и глобальные переменные.
Локальные переменные действуют в пределах заданного участка программы (в процедуре или в функции), а глобальные – в пределах всей программе. Каждый вид переменных описывается в программе отдельно, в разных местах.
Описание: Эта программа запрашивает у пользователя матрицу (массив чисел). Затем с помощью специальной процедуры, заменяет элементы матрицы, которые меньше 1, на 0, а которые больше или равны 1 на 1.
Текст программы:
{Пример программы с различными переменными -> проект «Begin … end!» (www.tolks.narod.ru)}
Program Program7;
Uses crt;
Type
MatrType = array [1..50, 1..50] of real;
var {Глобальные переменные программы}
k, i, j, n : integer;
A: MatrType;
{Процедура для изменения матрицы}
procedure Change(var Matr:MatrType; k,n:integer);
var
i,j :integer; {Локальные переменные процедуры}
begin
for i := 1 to k do
for j := 1 to n do
if Matr[i,j]<1 then Matr[i,j] := 0
else Matr[i,j] := 1;
end;
{Основная программа}
Begin
{Очистка экрана}
clrscr;
{Ввод значений}
Writeln ('Введите k, n: ');
Readln(k, n);
for i := 1 to k do
for j := 1 to n do
begin
Write ('Введите A[',i,',',j,'] = ');
Readln(A[i,j]);
end;
{Использование процедуры}
Change(A, k, n);
{Вывод результатов}
Writeln('Полученная матрица: ');
for i := 1 to k do
begin
for j := 1 to n do
Write (A[i,j]:5:1);
Writeln;
end;
{Ожидание нажатия клавиши перед закрытием программы – для просмотра результатов}
Writeln(' Нажмите любую клавишу для завершения …‘);
Readkey;
end.
Примечания:
Попробуйте поэкспериментировать с текстом программы для лучшего понимания:
Посмотрите на изменения в выполнении программы после каждого изменения её текста.
Напечатано с сайта «Begin … end!» (www.tolks.narod.ru).
{Примечания:
1. Если Вы не смогли найти ответы на вопросы о программе, то Вы можете связаться с авторами. Для этого посетите страничку "Обратная связь".
2. Размещать приведённые материалы с сайта проекта "Begin ... end!" (www.tolks.narod.ru) на других сайтах (как полностью, так и частично) можно только с согласия авторов проекта и только с обязательным указанием адреса проекта "Begin ... end!" (www.tolks.narod.ru).}