Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 189 ∙ повысить рейтинг >>

Шичко Игорь Статус: Практикант Рейтинг: 148 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 115 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 759
от 19.12.2008, 06:35

Вопрос № 154194: Уважаемые эксперты,помогите пожалуйста с решением данной задачи Обработка текстов. Задан текст,состоящий из строк произвольной длины. Текст заканчивается комбинацией двух специальных символов,отличных от разделителя.(между строками-это разд...

Вопрос № 154.194

Уважаемые эксперты,помогите пожалуйста с решением данной задачи Обработка текстов. Задан текст,состоящий из строк произвольной длины. Текст заканчивается комбинацией двух специальных символов,отличных от разделителя.(между строками-это разделители между прелдложениями) Задание: а) установить порядковые номера(считая от начала текста) определенных слогов,которые задаются в исходном тексте. б) сформировать новый текст, в котором каждый такой слог заключен в кавычки. сама программа(ей пример выглялит примерно вот так) Исходный текст Мама мыла раму(два спец символа) слоги которые нужно нумеровать: ма ла му (например так) программа ставит порядковый номер слога по первой его букве тоесть( слог ма- в тексте идет 1,второй слог ма-3 так как первая буква по счету 3,ну и тд(пробел это 1 символ) в итоге плучается готовый текст в виде "Ма" "ма" мы"ла" ра"му". Вообщем как смог объяснил,помогите пожалуйст а!

Отправлен: 13.12.2008, 14:54 Вопрос задал: Котенков Алексей Андреевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Verena Здравствуйте, Котенков Алексей Андреевич! Ну, хорошо, вот Вам изменённый вариант программы. Конечно, задача в той форме, как я поняла её раньше, была интереснее (относительно сложнее), но зато этот вариант совсем простой. В общем, всё как в Вашем предыдущем вопросе, только мы ищем не порядковый номер слога, а позицию его вхождения. Код в приложении. Удачи! Приложение: uses crt; {Модуль для вызова процедур clrscr и readkey} Type sylls = array [1..20] of string [3]; {Тип, описывающий массив слогов} function FindSyllable (txt: string; s: string; t: integer): word; {Поиск первого вхождения слога s в текст txt, начиная с позиции t} Var i, j: integer; f: boolean; begin FindSyllable:= 0; {Изначально предполагаем, что вхождений нет} for i:= t to length (txt) do {До конца текста} begin if UpCase (txt[i])=UpCase (s[1]) then {Нерегистрозависимо сравниваем первый символ слога с текущим символом строки} begin {Если совпало} f:= true; {Флаг сравнения} for j:= 1 to length (s)-1 do {Сравниваем следующие символы, при одном несовпадении ставим флаг и прерываемся} if UpCase (txt[i+j])<>UpCase (s[j+1]) then begin f:= false; break; end; if f then begin FindSyllable:= i; break; end; {Если флаг не скинут - слог найден, возвращаем его позицию и выходим} end; end; end; Var txt: string; {текст} s: sylls; {слоги} bs: string [3]; {буфер} bp: word; {буфер} l, n, i, j: integer; {счётчики} begin clrscr; {очистка экрана} writeln ('Vvedite text (<=255 simvolov, okochanie - .<enter>:'); readln (txt); {ввод текста} l:= length (txt); if (txt[l]<>'.') then {добавление точки при её отсутствии} begin writeln ('Dobavlenie tochki'); txt:= txt+'.'; inc (l); end; {Ввод слогов} writeln ('Vvedite kolichestvo slogov (<=20):'); readln (n); writeln ('Vvedite slogi po odnomu na stroku'); for i:=1 to n do readln (s[i]); for i:= 1 to n do {Нахождение первых вхождений слогов} writeln (s[i], ': ', FindSyllable (txt, s[i], 1)); {Выводим позиции первых вхождений слогов} for j:=1 to n do {для каждого из слогов} begin i:= 1; {начиная с начала текста} while i<=length (txt) do {и до конца} begin i:= FindSyllable (txt, s[j], i); {присваиваем счётчику позицию слога в тексте от текущей позиции} if i=0 then break; {если не найден - все замены произведены, выходим} insert ('"', txt, i); {вставляем кавычку перед слогом} inc (i, length(s[j])+1); {передвигаемся за слог} insert ('"', txt, i); {ставим кавычку после слога} inc (i); {пропускаем кавычку} end; end; writeln ('Izmenennii tekst:'); writeln (txt); {выводим полученный текст} readkey; {ждём нажатия клавиши} end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Специалист) Ответ отправлен: 13.12.2008, 20:14 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238535 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: спасибо большое!!!

Вопрос № 154.196

Уважаемые эксперты помогите пожалуйста составить следующую программу по языку Pasal! Определить, сколько нулей лежит вне минимального и максимального значений массива X[1..N]. Числа, расположенные между минимальным и максимальным значениями, рассортировать по возрастанию. ( пожалуйста,по ходу действий комментируйте каждую строку )

Отправлен: 13.12.2008, 15:00 Вопрос задал: Aliyev Orxan Faxri-oglu (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шевченко Дмитрий Здравствуйте, Aliyev Orxan Faxri-oglu! В приложении код программы со всеми пояснениями. С уважением, Дмитрий. Приложение: program z154196; const N = 24;{количество элементов в массиве} type elem = Integer;{тип элементов массива} mas = array[1..N] of elem; Function FMin(m:mas; x,max:Integer):Integer;{ищем мин элемент среди элементов с x+1 до max} var i,min:Integer; begin min:=x+1;{считаем x+1й за минимальный} For i := x+2 to max-1 do IF m[i] < m[min] then{если нашли меньший - } min:=i;{запоминаем его} FMin:=min; end; Procedure sort(var m:mas; min,max:Integer);{сортируем элементы между макс. и мин.} var tmp:elem; i,minimum:Integer; begin For i := min+1 to max-2 do begin minimum:=FMin(m,i,max);{ищем минимальный} tmp:=m[i];{меняем местами с текущим} m[i]:=m[minimum]; m[minimum]:=tmp; end; end; Procedure FindMinMax(m:mas; var A,B:Integer);{поиск диапазона сортировки} var i:Integer; Min,Max:Integer; begin min:=1;{считаем первый максимальным и минимальным} max:=1; For i:= 2 to N do IF m[i] < m[min] then{Если нашли меньше минимального - } min:=i{запоминаем его} Else IF m[i] > m[max] then{Если нашли больше максимального} max:=i;{запоминаем} IF min < max then{создаём дапазон от A до B, чтобы A было меньше B} begin A:=Min; B:=max; end else begin A:=Max; B:=Min; end; end; procedure vivod(m:mas);{вывод массива} var i:Integer; begin For i:= 1 to N-1 do{перебираем массив} Write(m[i],' ');{выводим элемент} WriteLn(m[N]);{выводим последний элемент и переводим курсор на следующую строку} end; var m:mas; i,a,b,kol:Integer; begin {Если надо вводить массив вручную:} For i := 1 to N do begin Write('Enter m[',i,']: '); ReadLn(m[i]); end; vivod(m); {Если произвольно заполнить:} Randomize; For i := 1 to N do m[i]:=Random(21)-10; vivod(m); {основная часть:} kol:=0; FindMinMax(m,a,b);{Ищем диапазон поиска нулей и сортировки} For i:= 1 to a-1 do{перебираем все элементы, за исключением диапазона A..B} IF m[i] = 0 then inc(kol);{считаем кол-во нулей} For i:= b+1 to N do IF m[i] = 0 then inc(kol); sort(m,a,b);{сортируем} vivod(m);{выводим отсортированный} WriteLn('kol-vo "0" = ',kol);{выводим кол-во нулей} ReadLn(); end.

Ответ отправил: Шевченко Дмитрий (статус: 7-й класс) Ответ отправлен: 15.12.2008, 18:03 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238699 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.200

Помогите с лабораторкой, пжалста!! Срочно надо!! Определить с помощью подпрограммы минимальные элементы столбцов матрицы А(7,7) целого типа.

Отправлен: 13.12.2008, 15:14 Вопрос задал: Напылов Алексей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Напылов Алексей! Решение с пояснениями в приложении. Приложение: uses crt; const n=7; {размер матрицы} type Tmatr=array[1..n,1..n] of integer;{тип матрицы} Function Min(a:integer; x:Tmatr):integer;{функция для поска минимального в столбце входные параметры номер столбца и матрица} var b,mn:integer; begin mn:=maxint;{принимаем за минимум самое большое число} for b:=1 to n do if x[b,a]<mn then mn:=x[b,a];{ищем в столбце самое маленькое} Min:=mn;{присваиваем его значению функции} end; var m:Tmatr; {раздел переменных программы} i,j:integer; begin {начало программы} clrscr; randomize; writeln('Matrica M:'); for i:=1 to n do begin for j:=1 to n do begin m[i,j]:=random(20); write(m[i,j]:4); end; writeln; end; for j:=1 to n do {идем по всем столбцам и ищем минимальное} writeln('Minimalnyj v stolbce ',j,'=',Min(j,m)); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 13.12.2008, 15:52 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238512 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.247

Уважаемые эксперты помогите написать программу на Паскаль (используя процедуры и функции) Задача:Для каждого из слов указать сколько раз оно встречается в тексте. Примечания -обрабатываемый текст содержится в одной строке; -слова текста разделяются одним или несколькими пробелами; -в начале и в конце ткста могут быть пробелы;

Отправлен: 13.12.2008, 21:39 Вопрос задал: Gudvin (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Gudvin! В приложении программа использующая строковые функции и процедуры. Если нужно ещё и саму программу разбить на подпрограммы - обращайтесь в мини-форум вопроса. Удачи! Приложение: var a,b:string; c:integer; begin {вводим строку} write('Enter string:'); readln(a); {удаляев начальный пробел} while pos(' ',a)>0 do delete(a,pos(' ',a),1); {удаляем начальный пробел и добавляем пробел в конце если его нет} if a[1]=' ' then delete(a,1,1); if a[length(a)]<>' 'then a:=a+' '; repeat {выделяем слово и удаляем его со строки, счетчик слов в 1} b:=copy(a,1,pos(' ',a)); delete(a,1,pos(' ',a)); c:=1; {в цикле считаем количество слов в данной строке, каждый раз удаляя найденное слово} while(length(a)>0)and(pos(b,a)>0)do begin inc(c); delete(a,pos(b,a),length(b)); end; {выводим результат} writeln(b,':=',c); until length(a)=0; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 15.12.2008, 17:27 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238696 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.254

Здравствуйте, помогите мне пожалуйста написать бинарный поиск на Паскале (Turbo)

Отправлен: 13.12.2008, 23:00 Вопрос задал: Grega (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Кулик Александр Сергеевич Здравствуйте, Grega! Пример. Поиск в упорядоченном по возрастанию массиве первого вхождения числа X. Решение в приложении. Приложение: program Poisk3a; var A:array[1..100] of integer; N,X,left,right:integer; begin read(N); {N<=100} write('введите упорядоченный по возрастанию массив'); for i:=1 to N do read(A[i]); read(X); left:=1; right:=N; {левая и правая граница фрагмента для поиска} while left begin c:=(left + right) div 2; {середина с округлением в меньшую сторону} if X>A[c] then {если массив упорядочен по убыванию, то if X left:=c+1 {выбираем правую половину без середины, меняя left} else right:=c; {выбираем левую половину с серединой, меняя right} end; if X=A[left] then {здесь left = right, но не всегда = c} write('первое вхождение числа ',X,' в массив A на ',left,' месте') else write('не нашли'); end. --------- нет ничего невозможного!

Ответ отправил: Кулик Александр Сергеевич (статус: 3-й класс) Ответ отправлен: 13.12.2008, 23:25 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238549 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.262

ПОМОГИТЕ!!! КАК ПОСЧИТАТЬ КОЛИЧЕСТВО СЛОВ В ПРЕДЛОЖЕНИИ

Отправлен: 14.12.2008, 01:15 Вопрос задал: Poitbest (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Кулик Александр Сергеевич Здравствуйте, Poitbest! Решение в приложении, все вопосы, в личку. Приложение: Program Predl; Var Pr : String; i, n, Ks : Integer; Begin Ks := 0; Write('Введите предложение'); Readln(Pr); n := Length(Pr); {Длина предложения} For i := 1 to n do If Pr[i] = ' ' Then Ks:= Ks + 1 If Pr[n]<> ' ' Then Ks:=Ks+1; {если в конце предложения нет пробела} Writeln('Количество слов в предложении равно ',Ks); End. --------- нет ничего невозможного!

Ответ отправил: Кулик Александр Сергеевич (статус: 3-й класс) Ответ отправлен: 14.12.2008, 01:24 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238559 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru