Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Andrey59
0 / 0 / 0
Регистрация: 25.06.2013
Сообщений: 2
1

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

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

Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу, проверяющую правильность вложения операторных скобок begin ... end — каждому begin должен соответствовать end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
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;...

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

3
newyork7776
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,313
Завершенные тесты: 1
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
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
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,313
Завершенные тесты: 1
23.07.2013, 03:23 4
Цитата Сообщение от Andrey59 Посмотреть сообщение
каждому begin должен соответствовать end.
я так и сделал 1 begn = 1 end
а что стоит после слов неважно
P.S.можна только написать условие (только читаем текст который заканчиваеться end + .(точка))

Добавлено через 10 секунд
так или нет?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.07.2013, 03:23

Можно ли в паскале объявить массив после begin
можно ли в паскале объявить массив после begin Очень надо!!!!!!!!!!

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

Используя стек, проверить правильность вложений операторных скобок (begin/end)
В файле находится текст программы на pascal. используя стек проверить...


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

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

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