Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти сумму строк матрицы, среднее значение элементов матрицы и минимальный элемент Сумма строк (сделать это все в Паскаль) Задана двумерная матрица размером 10х10 элементов, заполненная случайными числами из диапазона . Найти сумму строк матрицы, среднее значение элементов матрицы и минимальный элемент матрицы, вывести результаты на экран и записать в файл "output.txt" сумму элементов четных строк таблицы. https://www.cyberforum.ru/ pascal/ thread1946036.html	Pascal Вывести количество участников, прошедших на городскую олимпиаду Уровень A. На вход программы подаются данные о результатах районной олимпиады. В первой строке – количество участников N, а следующие N строк имеют следующий формат: <Фамилия> <Имя> <Баллы> Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> – целое число, обозначающее общее количество баллов, набранное участником. Все...
Pascal Из файла символов удалить все символы, равные данному https://www.cyberforum.ru/ pascal/ thread1944927.html Здравствуйте , задача в чем : "из файла символов удалить все символы равные данному ". есть условия к программе : 1)работа с параметрами(название файла и символ) 2)программа записывается в тот же файл 3)запуск через консоль.	Pascal Определить количество чисел в наиболее длинной подпоследовательности https://www.cyberforum.ru/ pascal/ thread1944901.html 3)Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Pascal Определить, образуют ли числа возрастающую последовательность 2)Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность	Pascal Вычислить k-й член последовательности https://www.cyberforum.ru/ pascal/ thread1944899.html 1)Имеется целое k>0. Вычислить k-й член последовательности {x}, где x1=1 и xn=nxn-1+1/n при n=2, 3, 4..
Pascal Как выйти по Esc https://www.cyberforum.ru/ pascal/ thread1944531.html Допустим есть некая программка (в данный момент нет никакой программки - это просто для примера): program proba; uses Crt; var a,b,c:real; begin repeat write('Ввести число а: '); readln(a);	Для каждого из слов строки, указать, сколько раз оно встречается в данной строке Pascal Для каждого из слов строки, указать, сколько раз оно встречается в данной строке. ДЛЯ КАЖДОГО СЛОВА Добавлено через 8 часов 59 минут var x:array of string; s1,s2: string; i,j,k,n:integer; begin readln(s1); s1+=' ';
Pascal Организовать циклическую перестановку слов Для фразы на русском языке, в которой нет знаков препинания, а слова отделяются одним единственным пробелом, организовать циклическую перестановку слов. Например: Исходная фраза: ВЕЧЕРАМИ МЫ СМОТРИМ ТЕЛЕВИЗОР Циклическая перестановка слов: МЫ СМОТРИМ ТЕЛЕВИЗОР ВЕЧЕРАМИ СМОТРИМ ТЕЛЕВИЗОР ВЕЧЕРАМИ МЫ ТЕЛЕВИЗОР ВЕЧЕРАМИ МЫ СМОТРИМ ВЕЧЕРАМИ МЫ СМОТРИМ ТЕЛЕВИЗОР Добавлено через 7 часов 2... https://www.cyberforum.ru/ pascal/ thread1944430.html	Pascal Удаление элемента перед первым отрицательным в двунаправленном списке https://www.cyberforum.ru/ pascal/ thread1944161.html Доброе время суток. Помогите реализовать процедуру удаления элемента перед первым отрицательным. //Удаление элемента перед первым отрицательным. procedure DelElemPredFirstNeg(var aList:TDList); var aPElem,tmp:ukaz; begin If (aList.PFirst = nil) then begin begin writeln('Error!');
Операция неприменима к операндам этого типа Pascal Program zadacha1; Var Sum,Pro:integer; b,a,x:real; Begin Writeln ('Введите x'); Readln (x); a:=x div 10; b:=x mod 10; Sum:=a+b; Pro:=a*b;	Pascal Создать модуль позволяющий проводить проверку правильности строения арифметического выражения Создать модуль позволяющий проводить проверку правильности строения арифметического выражения (арифметическое выражение строится из целых чисел и круглых скобок. Разрешены операции сложения, вычитания, умножения и деления). Используя модуль, написать программу, которая вводит выражение, проверяет правильность его и вычисляет его значение. https://www.cyberforum.ru/ pascal/ thread1944090.html

Joy

2386 / 1298 / 1492

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

Сообщений: 4,661

26.03.2017, 09:36

Выведите количество подстрок строки a, являющихся циклическими сдвигами строки b - Pascal - Ответ 10258132

26.03.2017, 09:36. Показов 4888. Ответов 8

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

Ответ

задача с acmp № 50
прошло все тесты,

Pascal

uses Strutils;
var
  a,b:string;
  i,j,c,k,l:integer;
  t:array of string;
begin
  readln(a);
  readln(b);
  for i:=1 to length(b) do begin
     b:=copy(b,2,length(b))+b[1];
     l:=0;
     for j:=0 to k-1 do if t[j]=b then l:=1;
     if l=0 then begin
       k:=k+1;
       setlength(t,k);t[k-1]:=b;
       j:=PosEx(b,a,1);
       while j>0 do begin c:=c+1;j:=posEx(b,a,j+1);end;
     end;
   end;
   write(c);
end.

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

Повторы тоже можно считать по-разному, выше считается, что 'аа' в 'ааааа' содержится 2 раза, но возможен вариант, когда 4. Тогда в строке 11 будет j:=PosEx(b,a,j+1)

в предыдущем коде у меня косяк - нужно было считать количество вхождений только для уникальных строк, полученных циклическим сдвигом.

Добавлено через 7 минут

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

Если правильно путаю, ваш код можно переписать сильно короче:

у вас считает только первое вхождение, а надо все.
abcabc
abc
1:cab
2:bca
3:abc -- а этих вхождений 2
3

Вернуться к обсуждению:
Выведите количество подстрок строки a, являющихся циклическими сдвигами строки b Pascal

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

26.03.2017, 09:36

Готовые ответы и решения:

Найти количество символов строки, не являющихся буквами
Строки в языке Pascal 3. Вводим с клавиатуры произвольные строки определить и вывести на экран...

Даны две строки: S1 и S2. Удалить из строки S1 последнюю подстроку, совпадающую с S2. Если таких подстрок нет, то вывести S1 без изменений
Вот условие: Даны две строки: S1 и S2. Удалить из строки S1 последнюю подстроку, совпадающую с S2....

Запись подстрок строки в массив
Пользователь вводит строку из букв и пробелов. Записать все слова из этой строки (разделены одним и...

Строки. Даны строки S и So. Найти количество вхождений строки So в строку S
Помогите пожалуйста, как сделать эту задачу без этих вот строчек... B:=TRUE; и без команды INC......

	26.03.2017, 09:36

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

26.03.2017, 09:36

Помогаю со студенческими работами здесь

Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. Если совпадений подстрок нет, то вывести S без изменений.
Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. Если совпадений...

Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки
Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной...

Заполнить строки матрицы циклическими перестановками первой строки
всем привет!нужна ваша помощь!вот разбираюсь в паскале очень хорошо,а в си ни как не шарю я вот на...

Определить количество символов строки, не являющихся цифрами
разработать алгоритм обработки строки символов,которая может содержать буквы английского...

Наверх