Andrey59
1

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

01.07.2013, 16:51. Показов 2201. Ответов 3
Метки нет (Все метки)

Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу, проверяющую правильность вложения операторных скобок begin ... end — каждому begin должен соответствовать end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.07.2013, 16:51
Ответы с готовыми решениями:

Проверить правильность расстановки операторных скобок 'begin' и 'end'
Доброго времени суток )))) Помогите пожалуйста : проверка правильности расстановки операторных...

Не получается сделать программу работоспособной. Скорее всего ошибка с Begin и End
Задание: найти индексы минимального элемента матриц (Одного элемента в каждой матрице),...

Баланс BEGIN-END
Баланс BEGIN-END. Дан текстовый файл, содержащий программу на языке Паскаль. Проверить в нем...

Оператор for. Для чего в коде дополнительные begin-end
Program DimanRu; Var name, surname: string; i:integer; Begin; Writeln('Введите имя...');...

3
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
14.07.2013, 16:54 2
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.

так можна решить задачу
0
1 / 1 / 0
Регистрация: 18.07.2013
Сообщений: 19
22.07.2013, 12:46 3
Так нельзя решить, после еnd'a идет ';' или '.', доя примера: begin text begin text; text2; end; end.
0
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.07.2013, 03:23

Записать текст паскаль-программы, разместив ключевые слова begin и end по одному на строку
Ребята помогите пожалуйста . Я студент на практике не могу решить поставленные задачи. 1....

Встречено 'end', а ожидалось begin
uses Crt; Const MaxRec = 4; Type String11 = String; String25 = String; ...

Встречено 'End', а ожидалось begin
Что-то не так с циклами видимо, может свежий взгляд обнаружит ошибку? В строку 48 ругается. ...

Встречено 'end', а ожидалось begin
Не могу найти ошибку. uses GraphABC, ABCObjects; var a: ABCObjects.PictureABC; b:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.