создать модуль. работа со строками. функции.

02.04.2010, 00:19. Показов 990. Ответов 0

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

Студворк — интернет-сервис помощи студентам

создать модуль и разработать ниже перечисленные функции, затем выполнить задание с текстом.

MoveEnd - перенести заданную подстроку в конец.
MyPos – определение первого вхождения подстроки
WordN – выделяет N-ное слово
CountWord– определяет количество слов в тексте
Sovpad проверяет совпадение двух строк без учета регистров, пробелов и знаков препинания

Поменять местами в тексте первое и последнее слово. Даны две строки, содержащие слова, написанные в разных регистрах. Найти какие слова в первой строке совпадают со словами из второй строки.

p.s. нельзя использовать стандартные функции работы со строками, допускается лишь использование length.

Добавлено через 52 минуты
есть такие вот наработки в количестве трёх функций из нужных 5и и решения самой задачи.......

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
29
30
31
32
33
34
35
36
37
function moveend(s1,s2:string):string;
begin
moveend:=s1+s2
end;
function mypos(s1,s2:string):integer;
var i,j  : longint;
   m,n : longint;
Begin
readln(s1); readln(s2);
n:=length(s1); m:=length(s2);
for i:=1 to n-m+1 do
begin
 j:=0;
 while (j<m) and (s2[j+1]=s1[i+j]) do 
 j:=j+1;
 if j=m then 
 writeln('Образец входит в текст начиная с ',i,'-ого символа'); 
end;
end;
 function countword(s: string): integer;
 var
 i, cnt: integer;
 begin
 cnt:=0; i:=1;
 while i <= length(s) do
 begin
  while (i <= length(s)) and (s[i] = ' ') do
  inc(i);
  if i <= length(s) then
 begin
  inc(cnt);
 while (i <= length(s)) and not (s[i] = ' ') do
  inc(i)
 end
 end;
 countword:=cnt
 end;

Добавлено через 45 минут
з.ы. очень очень прошу помочь - завтра сдавать.. Т_Т

Добавлено через 4 часа 31 минуту
всё ещё очень надеюсь на помощь...........Т__Т

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

02.04.2010, 00:19

Ответы с готовыми решениями:

Создать модуль функции корень 3 степени из х
Создать модуль функции корень 3 степени из х.

Создать модуль, содержащий, процедуры и функции в соответствии с заданием
Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Само задание:...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

02.04.2010, 00:19

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

Создать модуль, содержащий, процедуры и функции в соответствии с заданием
Создать модуль, содержащий, процедуры и функции в соответствии с заданием. Применить данные процедуры в основной программе. Задание: Дано...

Создать модуль и создать программу, которая будет использовать этот же модуль
Требуется создать модуль и создать программу,которая будет использовать этот же модуль. При работе с программой проблема с переменной...

Работа со строками. Функции работы со строками
Дана строка символов. В заданном тексте определить позицию первой точки ‘ . ‘.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Наверх