Дан массив строк. Напишите программу, проверяющую правильность вложения операторных скобок begin . end — каждому begin должен соответствовать end

01.07.2013, 16:51. **Показов** 2696. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу, проверяющую правильность вложения операторных скобок begin ... end — каждому begin должен соответствовать end.

@newyork7776 · 14.07.2013, 16:54

Кликните здесь для просмотра всего текста

Pascal

program Andrey59;
 
uses
  crt;
 
var
  sb, se: string;
  kb, ke: integer;
 
begin
  clrscr;ke := 0;kb := 0;
  Writeln('Enter string = ');read(sb);
  sb := ' ' + sb + ' ';
  se := sb;
  while pos('begin', sb) <> 0 do
  begin
    delete(sb, pos('begin', sb), length('begin') - 1);
    inc(kb);
  end;
  while pos('end', se) <> 0 do
  begin
    delete(se, pos('end', se), length('end') - 1);
    inc(ke);
  end;
  if (kb = ke) then begin Writeln('That`s great!     BEGIN = END');exit; end;
  if (kb > ke) then writeln('Error [end ', kb - ke, ' ]')
  else writeln('Error [end ', ke - kb, ' ]');
end.

так можна решить задачу

@forum-newb · 22.07.2013, 12:46

Так нельзя решить, после еnd'a идет ';' или '.', доя примера: begin text begin text; text2; end; end.

@newyork7776 · 23.07.2013, 03:23

Сообщение от Andrey59

каждому begin должен соответствовать end.

я так и сделал 1 begn = 1 end
а что стоит после слов неважно
P.S.можна только написать условие (только читаем текст который заканчиваеться end + .(точка))

Добавлено через 10 секунд
так или нет?

Andrey59
		1
	Дан массив строк. Напишите программу, проверяющую правильность вложения операторных скобок begin . end — каждому begin должен соответствовать end 01.07.2013, 16:51. Показов 2696. Ответов 3 Метки нет (Все метки) Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу, проверяющую правильность вложения операторных скобок begin ... end — каждому begin должен соответствовать end.

@forum-newb 1 / 1 / 0 Регистрация: 18.07.2013 Сообщений: 19
	22.07.2013, 12:46	3
	Так нельзя решить, после еnd'a идет ';' или '.', доя примера: begin text begin text; text2; end; end. 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	23.07.2013, 03:23	4
	Сообщение от Andrey59 каждому begin должен соответствовать end. я так и сделал 1 begn = 1 end а что стоит после слов неважно P.S.можна только написать условие (только читаем текст который заканчиваеться end + .(точка)) Добавлено через 10 секунд так или нет? 0

Опции темы