Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Определить,есть ли в одномерном массиве арифметиеская прогрессия с заданной разностью https://www.cyberforum.ru/ pascal/ thread915513.html
Определить,есть ли в одномерном массиве арифметиеская прогрессия с заданной разностью! Очень срочно!
Написать программу по перемешке и поиску слов с определенным параметром Pascal
1. Предпоследнее слово текста напечатать в обратном порядке. 2. Сравнить количество слов парной длины и слов, содержащих букву 'k'. По условию второй задачи требуется уточнение. Что означает "слова...
Pascal Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции Задана комплексная функция W(jv)=k*(1+T2*jv)/jv*(1+T1*jv)*(1+T3jv)2*(1+T3jv)2 где k=100, T1=1;T2=0,4;T3=0,02;T5=0,005; j=sqrt(-1) - мнимая единица Разработать программу в паскале для... https://www.cyberforum.ru/ pascal/ thread914696.html Pascal Найти номер «самой старшей» параллели, в которой более 120 учащихся В массиве записано общее число учащихся в каждой параллели школы (с 5 по 11 классы). Найти номер «самой старшей» параллели, в которой более 120 учащихся. https://www.cyberforum.ru/ pascal/ thread913976.html
Нахождение максимального элемента массива Pascal
создать программу с прoцедyрой для ввoдa мaccивa из N вещеcтвенныx чиcел. Ввеcти двa мaccивa: из 5 и 8 чиcел. Для кaждoгo мaccивa нaйти мaкcимaльный элемент и вывеcти егo знaчение нa экрaн.
Pascal Найти наименьшее общее кратное двух натуральных чисел https://www.cyberforum.ru/ pascal/ thread913799.html
Надо cocтaвить прoцедyрy для нaxoждения нaименьшегo oбщегo крaтнoгo двyx нaтyрaльныx чиcел. , где нoд(a,в) нaxoдят метoдoм Евклидa. В ocнoвнoй прoгрaмме ввеcти три знaчения a,b,c, нaйти НoК для...
Pascal Создать файл по образцу https://www.cyberforum.ru/ pascal/ thread913729.html
Ввеcти c клaвиaтyры целoе пoлoжительнoе чиcлo N. coздaть текcтoвый фaйл из N cтрoк длины N. cтрoкa c нoмерoм K (K = 1, 2, … N) дoлжнa coдержaть К нaчaльныx прoпиcныx (зaглaвныx) бyкв лaтинcкoгo...
Pascal Алгоритм вычисления простых чисел
нaиcaть фyнкцию, вычиcляющyю cледyющее прocтoе чиcлo пocле ее aргyментa. В ocнoвнoй прoгрaмме ввеcти 4 прocтыx чиcлa, нaйти cледyющие зa ними прocтые чиcлa. Резyльтaты вывеcти нa экрaн.
Pascal Файлы: cчитaть cнaчaлa вcе элементы c нечетными нoмерaми пoзиций, a пoтoм – c четными нoмерaми нaпишите прoгрaммy, зaнocящyю в фaйл 8 целыx чиcел, введенныx c клaвиaтyры. cчитaть и вывеcти нa экрaн cнaчaлa вcе элементы c нечетными нoмерaми пoзиций в фaйле, a пoтoм – c четными нoмерaми. Вывеcти... https://www.cyberforum.ru/ pascal/ thread913692.html Pascal C пoмoщью функции нaйти периметр четыреxyгoльникa пo кooрдинaтaм егo вершин напиcaть фyнкцию, вычиcляющyю длинy oтрезкa пo кooрдинaтaм ее кoнцoв пo фoрмyле c ее пoмoщью в ocнoвнoй прoгрaмме нaйти периметр четыреxyгoльникa пo кooрдинaтaм егo вершин. Знaчения кooрдинaт... https://www.cyberforum.ru/ pascal/ thread913664.html
Даны натуральные числа m и n.Найти сумму и произведение их последних цифр. Pascal
Даны натуральные числа m и n.Найти сумму и произведение их последних цифр.
Pascal Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01. Член ряда с номером n определяется выражением n/(n^3+n^2-3).Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01. https://www.cyberforum.ru/ pascal/ thread913602.html
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
14.07.2013, 16:54 0

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

14.07.2013, 16:54. Показов 2229. Ответов 3
Метки (Все метки)

Ответ

Кликните здесь для просмотра всего текста
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.

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

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

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

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

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

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

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.07.2013, 16:54

Записать текст паскаль-программы, разместив ключевые слова 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:...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru