Лабораторная работа №11
Вариант – 3
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Program Ballance;
{************************************************************}
{ Имя программы в банке программ: Lab11v3.pas }
{ Программа: Ballance, Лабораторная работа №11, Вариант 3. }
{ Цель: изучить основные правила составления программ }
{ с использованием массивов. }
{ Описание параметров и переменных: }
{ Nmax - постоянная; }
{ a,b - постоянные, балланс которых нужно найти, }
{ str - массив символов, }
{ k - переменная цикла, }
{ n - количество проверяемых символов, }
{ bal1,bal2 - дополнительные переменные. }
{ Требуемые подпрограммы: нет. }
{ Метод: использование в программе массивов. }
{ Программист: Борискин Д.В.,гр.243 }
{ Проверил: Новичков В.С.,кафедра ВПМ }
{ Дата написания: 16.12.2002 год. }
{************************************************************}
uses Crt;
Const
nmax=100;
a='(';
b=')';
var
str:array [1..nmax] of char;
bal1,bal2,k,n:integer;
begin {Ballance}
clrscr;
writeln('Какое количество символов будете вводить для проверки баланса скобок ?');
readln(n);
writeln('Введите ',n:3,' символов.');
for k:=1 to n do
readln(str[k]);
writeln('Ваш текст: ');
write(' ');
for k:=1 to n do
write(str[k]); {Эхо-печать}
for k:=1 to n do
begin
if str[k]=a
then inc(bal1);
if str[k]=b
then inc(bal2)
end;
writeln;
if bal1=bal2
then write(' Балланс скобок в тексте присутствует.')
else write(' Балланс скобок в тексте отсутствует.')
end.{Ballance}