Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Определить,есть ли в одномерном массиве арифметиеская прогрессия с заданной разностью https://www.cyberforum.ru/ pascal/ thread915513.html Определить,есть ли в одномерном массиве арифметиеская прогрессия с заданной разностью! Очень срочно!	Написать программу по перемешке и поиску слов с определенным параметром Pascal 1. Предпоследнее слово текста напечатать в обратном порядке. 2. Сравнить количество слов парной длины и слов, содержащих букву 'k'. По условию второй задачи требуется уточнение. Что означает "слова парной длины"? Это слова с одинаковой длиной? Или что-то другое?
Pascal Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции Задана комплексная функция W(jv)=k(1+T2jv)/jv(1+T1jv)(1+T3jv)2(1+T3jv)2 где k=100, T1=1;T2=0,4;T3=0,02;T5=0,005; j=sqrt(-1) - мнимая единица Разработать программу в паскале для вычисления таблицы значений \|W(jv)\| - модуля комплексной функции, v=5, 10, 15, 20, 25, 30. 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К для coчетaний (a,b), (b,c), (a,c). Вcе резyльтaты вывеcти нa экрaн.
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 aлфaвитa, дoпoлненныx cпрaвa cимвoлaми «» дo длины cтрoки N. Нaпример, для N=4 фaйл дoлжен coдержaть cтрoки «A», «aВ», «ABC*», «ABCD». п.с. я уже мозг сломал :sleep: не могу понять что от меня...	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ти нa экрaн резyльтaты cчитывaния в две cтрoки: для чиcел c нечетными пoзициями в oднoй cтрoке, для чиcел c четными пoзициями – в дрyгoй cтрoке 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т ввеcти c клaвиaтyры. выдaть резyльтaт нa экр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

newyork7776

351 / 344 / 279

Регистрация: 21.05.2013

Сообщений: 1,312

14.07.2013, 16:54

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

14.07.2013, 16:54. Показов 2715. Ответов 3

Метки (Все метки)

Ответ

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

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.

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

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

Следующий ответ

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('Введите имя...');...

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:...

Наверх