Лабораторная работа №11
Структурированные типы данных”
Вариант – 7
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор Власов О. А.
Задание:
Проверить, правильно ли в заданном тексте расставлены круглые скобки.
Алгоритм:
Программа:
program lab16;
uses
crt;
type
simb=array[1..255]of string[1];
var
str:string;
s:simb;
k,n,m,i:byte;
begin
clrscr;
writeln (‘Введите текст для проверки’);
readln(str);
k:=length(str);
for i:=1 to k do
s[i]:=copy(str,i,1);
n:=0; m:=0;
for i:=1 to k do
if s[i]='(‘
then n:=n+1
else if s[i]=’)’
then m:=m+1;
if n=m
then writeln(‘Баланс скобок соблюден’)
else writeln(‘Баланс скобок не соблюден’);
writeln(‘Нажмите любую клавишу для выхода’);
readkey;
end.