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

Выпуск № 424
от 17.07.2007, 18:35

Вопрос № 94.817

Уважаемые эксперты! Пожалуйста,помогите решить задачи: 1. Дана строка ‘d1(+-)d2(+-)d3(+-)…(+-)dn’, где di – цифра. Например, ‘9+7–6–5+2–0+4’. Разработайте алгоритм нахождения значения арифметического выражения. 2. Найти сумму натуральных чисел, присутствующих в тексте. Замечание: процедуры преобразования строки в число использовать нельзя. Пример: исходная строка – «16 июля 2002 года» результат – 2018 (16+2002=2018) 3. Дано слово. Составить алгоритм, который дописывает к нему его "зеркальное отображение". Пример: ОляялО 4. Даны две строки. Определить, можно ли из символов первой строки и пробелов составить вторую строку. Разрешается использовать не все символы первой строки, и каждый символ можно использовать несколько раз. Например, из строки «ВЕРТИКАЛЬ» можно составить строку «ВЕТКА ЕЛИ». Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 11.07.2007, 19:07 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gh0stik Здравствуйте, Ласточка! Пожайлуста ответы на задачи №3 и №4. 3) {var s,sn:string; i:integer; begin s:='Name'; {Вы же можете организовать ввод с клавиатуры} sn:=s; for i:=length(s) downto 1 do sn:=sn+s[i]; {добавляем к строке посимвольно ее отражение} writeln(sn); {выводим результат} end. 4) В этой задаче просто расскажу идею: Вам достаточно "пройти" по всем символам второй строки и просто проверить есть ли данный символ в первой строке или же он является пробелом, если в процессе прохода все символы соответсвовали данному условию, то можно смело делать вывод, что из символов первой строки и пробелов составить вторую строку var s1,s2:string; i:integer; b:boolean; begin s1:='vertikal'; s2:='vetka eli'; b:=true; for i:=1 to length(s2) do if (pos(s2[i],s1)=0) and (s2[i]<>' ') then begin b:=false; break;end; if b then writeln('yes') else writeln('no'); end. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 11.07.2007, 19:32 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за варианты решения задач, Gh0stik! Попробую разобраться в них. Вы мне очень помогли. Спасибо.

Отвечает: Coupler Здравствуйте, Ласточка! В приложении решение 1 и 3 задачи. Решение по 3 задаче предлагаю без дополнительной строки. Приложение: {1 задача} program Project2; var s: string; i, z: integer; sum: integer; begin writeln('Vvedite stroku'); readln(s); i := 1; z := 1; while i <= length(s) do begin if (ord(s[i]) >= 48) and (ord(s[i]) <= 57) then sum := sum + z * (ord(s[i])-48) else if s[i] = '+' then z := 1 else z := -1; i := i + 1; end; writeln(sum); readln; end. {3 задача} program Project1; var s:string; i,l:integer; begin writeln ('Vvedite stroku'); readln (s); l:=length (s); for i:=1 to l do s:=s+s[l-i+1]; writeln (s); readln; end.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 11.07.2007, 19:42 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за варианты решения,Coupler! Пока только посмотрела их, ещё не успела проверить, но в любом случае очень рада, что вы мне помогли!

Отвечает: Louken Здравствуйте, Ласточка! Решение трех задач (№1, №3, №4) в приложении: Приложение: ========== Первая задача ========== program z1; uses Crt; var s,s1: string; i,t,c: integer; sum: integer; {результат выражения} zn: integer; {Знак последующего числа} begin ClrScr; Writeln('Vvedite matem. virajenie:'); Readln(s); sum:=0; zn:=1; s1:=''; for i:=1 to Length(s) do begin {Обрабатываем цифру} if s[i] in ['0'..'9'] then begin s1:=s1+s[i]; end; {Обрабатываем арифметические знаки и конец строки} if (s[i] in ['+','-']) or (i=Length(s)) then begin Val(s1,t,c); sum:=sum+t*zn; {Производим суммирование с учетом знака числа} if s[i]='+' then zn:=1 else zn:=-1; s1:=''; end; end; Write('Result: ',sum); Readln; end. ========== Третья задача ========== program z3; uses Crt; var s: string; i: integer; begin ClrScr; Writeln('Vvedite slovo:'); Readln(s); for i:=Length(s) downto 1 do s:=s+s[i]; Writeln('Result: '); Writeln(s); Readln; end. ========== Четвертая задача ========== program z4; uses Crt; var s1,s2: string; mn: set of char; {Множество всех символов первой строки} i: integer; b: boolean; begin ClrScr; Writeln('Vvedite stroku 1:'); Readln(s1); Writeln('Vvedite stroku 2:'); Readln(s2); {Заполняем множество всеми символами первой строки} for i:=1 to Length(s1) do mn:=mn+[s1[i]]; {Проверяем, что все символы второй строки, есть в первой строке или это пробелы} b:=true; for i:=1 to Length(s2) do if not ((s2[i] in mn) or (s2[i]=' ')) then begin b:=false; Break; end; Writeln; Writeln('Result: '); if b then Writeln('true') else Writeln('false'); Readln; end.

Ответ отправил: Louken (статус: 10-ый класс) Ответ отправлен: 11.07.2007, 19:53 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за ваши варианты решения задач, Louken! С комментариями намного легче понять смысл операций. Вы мне очень помогли. Спасибо.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! Решение 2-ой задачи в приложении. Удачи! Приложение: program q94187; var s:string; a,b,c:integer; begin write('input text:'); readln(s); a:=1;{позиция в строке} b:=0;{текущее число} c:=0;{сумма чисел} while a<=length(s)do{проверяем всю строку} begin if (s[a]<'0') or (s[a]>'9')then begin{не цифра добавляем к сумме} c:=c+b; b:=0; end else begin{цифра формируем число} b:=b*10+ord(s[a])-ord('0'); end; a:=a+1; end; {проверка если строка заканчивается цифрой} if (s[a-1]>='0') and (s[a-1]<='9')then c:=c+b; writeln('summa:',c);{вывод суммы чисел} end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 11.07.2007, 21:00 Оценка за ответ: 5 Комментарий оценки: Безмерно вам благодарна, Константин Николаевич! Мне важно было знать, как правильно решить эту задачу. Большое спасибо за качественный ответ!

Отвечает: Дмитрий С. Здравствуйте, Ласточка! 3.var s,s1: string; begin s := 'abrakadabra'; s2 := ''; for i:=length(s) to 1 do s2 := s2 + s[i]; s := s + s2; end. --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 2-ой класс) Ответ отправлен: 14.07.2007, 13:29

Вопрос № 94.831

Уважаемы эксперты! Пожалуйста,помогите решить три задачи: 1. Известны фамилия, имя и отчество пользователя. Найти число его личности. Правило получения числа личности: каждой букве сопоставлено число – порядковый номер буквы в алфавите. Эти числа складываются, если полученная сумма не является однозначным числом, то цифры числа снова складываются и так до тех пор, пока не будет получено однозначное число. Пример: исходная строка – «ИВАНОВ ИВАН ИВАНОВИЧ» код личности – 6 ((9+3+1+14+15+3)+(9+3+1+14)+(9+3+1+14+15+3+9+24)=150 -> 1+5+0=6) 2. 20 мая 2002 года в магазине Ив-Роше пройдет грандиозная акция – будут вручены подарки двум покупателям: мужчине и женщине, которые сделают самую большую (по стоимости) покупку среди представителей своего пола. По статистическим данным за день продавцы магазина успевают обслужить в среднем 200 покупателей. При покупке фиксируется имя покупателя, его пол и стоимость сделанной им покупки. Определите имена победителей. 3. Разведчик послал сообщение, состоящее из русских букв, в Россию, зашифровав его следующим образом: число, являющееся порядковым номером первой встреченной в шифровке русской буквы в алфавите, означает, что из шифровки нужно выбирать лишь те буквы, позиция которых в шифровке, кратна этому числу (при этом найденную первую русскую букву в расшифрованное сообщение включать не надо). Каждая встреченная в шифровке точка, означает разделение между словами в сообщении. Все остальные символы принимать во внимание не следует. Расшифруйте полученную в России шифровку. Входные данные: строка символов шифровки. Выходные данные: строка символов расшифрованного сообщения. Пример: Входные данные: ВБУП4РZ3А2С!.ОПТУОZ3Б!:ЕУКДРЕАРО!ЛД Выходные данные: УРА! ПОБЕДА! Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 11.07.2007, 20:36 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 14)

Отвечает: Louken Здравствуйте, Ласточка! По первой задаче вроде вопросов нет. Во второй задаче Вы не указали, где у Вас храниться список, не будете же Вы вводить с клавиатуры 200 имен покупателей, поэтому я решил хранить и загружать список из файла 1.txt, его содержимое примерно такое: 10 Andrey m 1756 Pety m 485 Anna w 3847 Katya w 3375 Alex m 8574 Vanya m 2478 Jenya w 1038 Sonya w 5869 Sergey m 5285 Tanya w 9573 где в первой строке количество покупателей в списке. В третьей задаче, либо Вы не правильно указали условие, либо не правильно привели пример. Суть в том, что непонятна фраза: "... Все остальные символы принимать во внимание не следует...", ведь в примере эти символы принимаются во внимание. Вообщем, Вашу шифровку, моя программа расшифровывает. Приложение: ========== Первая задача ========== program z1; uses Crt; var s: string; i,sum: integer; begin ClrScr; Writeln('Vvedite stroku:'); Readln(s); {Ищем первую сумму} sum:=0; for i:=1 to Length(s) do sum:=sum+Ord(s[i])-127; {Далее ищем сумму всех цифр, каждой новой суммы} While sum>9 do begin Str(sum,s); sum:=0; for i:=1 to Length(s) do sum:=sum+Ord(s[i])-48; end; Write('Result: ',sum); Readln; end. ========== Вторая задача ========== program z2; uses Crt; type rec = record name: string[12]; {Имя покупателя} pol: char; {Его пол} summa: integer; {Его сумма покупок} end; var kol: integer; {Количество покупателей} m: array[1..1000] of rec; {Список покупателей} {Процедура считывания списка покупателей из файла} procedure LoadList; var i: integer; r: rec; ch: char; f: text; begin Assign(f, '1.txt'); Reset(f); Readln(f, kol); for i:=1 to kol do begin Read(f,r.name); Read(f,ch); r.pol:=UpCase(ch); Read(f,r.summa); Readln(f); m[i]:=r; end; Close(f); end; {Распечатать данные об n-ом покупателе} procedure PrintPeople(n: integer); begin With m[n] do begin Write(name:14); Write(pol:4); Writeln(summa:8); end; end; {Ищем покупателей-победителей} procedure SearchList; var i,nmen,nwomen,summen,sumwomen: integer; begin nmen:=-1; summen:=Low(summen); nwomen:=-1; sumwomen:=Low(sumwomen); for i:=1 to kol do begin if m[i].pol='M' then begin if m[i].summa>summen then begin summen:=m[i].summa; nmen:=i; end; end else if m[i].pol='W' then begin if m[i].summa>sumwomen then begin sumwomen:=m[i].summa; nwomen:=i; end; end; end; PrintPeople(nmen); PrintPeople(nwomen); end; var i: integer; begin ClrScr; LoadList; for i:=1 to kol do PrintPeople(i); Writeln; SearchList; Readln; end. ========== Третья задача ========== program z3; uses Crt; var s,s1: string; i,j,n: integer; begin ClrScr; Writeln('Vvedite stroku:'); Readln(s); {Номер в алфавите первой буквы} n:=Ord(s[1])-127; s1:=''; {Пробегаем по всей строке и выбираем из нее каждую букву кратную n} for i:=1 to Length(s) do begin if s[i]='.' then s1:=s1+' ' else if i mod n=0 then begin s1:=s1+s[i]; j:=0; end; end; Writeln('Result:'); Writeln(s1); Readln; end.

Ответ отправил: Louken (статус: 10-ый класс) Ответ отправлен: 11.07.2007, 22:04 Оценка за ответ: 5 Комментарий оценки: Безмерно благодарна за помощь, Louken! Спасибо, что не пожалели своё время на решение моих задач. Сама бы ни за что их решить не смогла. Вы мне очень помогли!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! Смотрите приложение. Удачи! Приложение: program q94831a; var a:string; b,c,i:integer; begin {вводим имя} write('input name:'); readln(a); {тут будем считать сумму} b:=0; {считаем} for i:=1 to length(a) do if a[i]<>' ' then b:=b+ord(a[i])-ord('A'); {преобразуем к цифре} c:=0; while b>0 do begin c:=c+ b mod 10; b:=b div 10; end; {выводим} writeln('name:',a,' number:',c); end. program q94831b; const n=200; var a:array[1..n]of string; b,c:array[1..n] of integer; i,j,m,w:integer; begin {я за сгенерированные има не отвечаю} randomize; {создаем покупателя} for i:=1 to n do begin {его имя} a[i]:=''; for j:=1 to 10 do a[i]:=a[i]+chr(random(25)+65); {его пол} b[i]:=random(n)mod 2; {его покупку} c[i]:=random(n); end; {поиск Адама} m:=0; for i:=1 to n do if (m=0)and(b[i]=0)then m:=i; {поиск Евы} w:=0; for i:=1 to n do if (w=0)and(b[i]>0)then w:=i; {начинаем поиск лутших} for i:=1 to n do if b[i]=0 then begin{для "Адамов"} if c[m]<c[i] then m:=i; end else begin{для "Ев"} if c[w]<c[i] then w:=i; end; {все выводим} writeln('men name:',a[m],' summ:',c[m]); writeln('women name:',a[w],' summ:',c[w]); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 11.07.2007, 22:42 Оценка за ответ: 5 Комментарий оценки: Программы работают отлично! Огромное спасибо за помощь решении моих задач, Зенченко Константин Николаевич. Вы мне очень помогли!

Вопрос № 94.841

Уважаемы эксперты! Пожалуйста,помогите решить 4 задачи: 1. Дан текст, в начале которого имеются пробелы и в котором имеются цифры. Найти порядковый номер максимальной цифры, считая, что первый номер имеет первый не пробел. Если максимальных цифр несколько, то должен быть найден номер первой из них. 2. Дан текст. Проверить правильность расстановки круглых скобок в тексте. Скобки в тексте расставлены правильно, если количество открывающих скобок k( равно количеству закрывающих скобок k) равны и для любой подстроки с первого по j-ый символ k(<=k). Пример: ()(()())(()) – правильная расстановка скобок, ()())()(() – неправильная. 3. Дан текст. Составить слово из символов текста, стоящих на позициях, соответствующих простым числам 4. Дан текст, в котором слова разделены одним или несколькими пробелами. Найти количество слов-палиндромов (слово – палиндром, если оно одинаково читается справа налево и слева направо). Пример: исходная строка – «На картине шалаш, а рядом казак» количество слов-палиндромов – 2 (слова: «шалаш», «казак») Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 11.07.2007, 22:01 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Louken Здравствуйте, Ласточка! Решение трех задач (№2, №3, №4) в приложении: Приложение: ========== Вторая задача ========== program z2; uses Crt; var s: string; i,k: integer; begin ClrScr; Writeln('Vvedite stroku:'); Readln(s); k:=0; for i:=1 to Length(s) do begin case s[i] of '(': begin if k<0 then Break; {Скобка не на своем месте} Inc(k); end; ')': begin Dec(k); if k<0 then Break; {Скобка не на своем месте} end; end; end; if k=0 then Write('true') else Writeln('false'); Readln; end. ========== Третья задача ========== program z3; uses Crt; {Проверяет, является ли число n простым числом} function Prost(n: integer): boolean; var i: integer; b: boolean; begin b:=true; {ищем делители числа n, если их нет, то число простое} for i:=2 to n-1 do if n mod i=0 then begin b:=false; Break; end; Prost:=b; end; var s,s1: string; i,k: integer; begin ClrScr; Writeln('Vvedite stroku:'); Readln(s); s1:=''; for i:=1 to Length(s) do begin if Prost(i) then s1:=s1+s[i]; end; Writeln('Result:'); Writeln(s1); Readln; end. ========== Четвертая задача ========== program z4; uses Crt; var s,s1 : string; i: integer; b: boolean; begin ClrScr; Writeln('Vvedite stroku: '); Readln(s); {Удаляем лишние пробелы} While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1); if s[1]=' ' then Delete(s,1,1); if s[Length(s)]=' ' then Delete(s,Length(s),1); {Далее получем каждое слово} While s<>'' do begin if Pos(' ',s)>0 then begin s1:=Copy(s,1,Pos(' ',s)-1); Delete(s,1,Pos(' ',s)); end else begin s1:=s; s:=''; end; {в переменной s1 храниться очередное слово} b:=true; {сравнивает первую половину слова со второй} for i:=1 to Length(s1) div 2 do if s1[i]<>s1[Length(s1)-i+1] then begin b:=false; Break; end; if b then Writeln(s1); end; Readln; end.

Ответ отправил: Louken (статус: 10-ый класс) Ответ отправлен: 11.07.2007, 22:41 Оценка за ответ: 5 Комментарий оценки: Спасибо, спасибо, спасибо, Louken! Ваша помощь неоценима. Очень вам благодарна за то, что не пожалели времени ответить на мои вопросы.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! 1-я задача. Непонятно, что делать с пробелами в средине строки. В приложении вариант который исключает все пробелы. Если в средине строки пробелы нужно оставить, то замените строку if a[b]<>' ' then{исключаем пробелы} на if (a[b]<>' ')or(c>0)then Удачи! Приложение: program q94841; var a:string; b,c,e:integer; d:char; begin {вводим текст} write('input text:'); readln(a); {начинаем работу} c:=0;{счетчик позиции} d:=' ';{максимальная цифра} for b:=1 to length(a) do{проверяем весь текст} if a[b]<>' ' then{исключаем пробелы} begin c:=c+1;{увеличиваем счетчик} if (a[b]<='9')and(a[b]>='0')and(a[b]>d)then{проверяем цифру} begin{новая цифра} d:=a[b]; e:=c; end; end; if d<>' 'then{выводим если нашли максимальную цифру} writeln(' number:',d,' index:',e) end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 12.07.2007, 14:10 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, Зенченко Константин Николаевич! Мне очень нравится ваш способ представления решений задач. Вы мне очнень помогли в этом вопросе.

Вопрос № 94.846

Пожалуйста,помогите решить 4 задачи: 1. Дана строка. Сформировать новую строку, исправив ошибки в расстановке пробелов в исходной строке (слова должны разделяться ровно одним пробелом, перед знаками препинания пробелы не ставятся, после знаков препинания должен быть один пробел). 2. Дана строка. Сформировать новую строку, отличающуюся от данной тем, что символы, начиная с первого, упорядоченные по возрастанию, отделены от остальной части строки знаком «*». Примеры: Исходная строка: Результирующая строка: 1) «dkuzppmazz» «dkuz*ppmazz» 2) «dkpquz» «dkpquz*» 3) «mkuzppmazz» «m*kuzppmazz» 3. Разработать алгоритм подсчета количества в предложении слов, содержащих три слога, и вывода их на экран (в каждом слоге содержится ровно одна гласная буква). 4. текст, в котором слова отделяются друг от друга одним или несколькими пробелами. Найти в нем слова-рифмы для слова максимальной длины (рифма – совпадение трех последних символов). Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 11.07.2007, 23:08 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Louken Здравствуйте, Ласточка! Решение двух задач (№2, №3) в приложении: Приложение: ========== Вторая задача ========== program z2; uses Crt; var s,s1: string; i,k: integer; ch: char; begin ClrScr; Writeln('Vvedite stroku: '); Readln(s); ch:=#0; k:=0; for i:=1 to Length(s) do begin if s[i]<ch then begin s1:=s1+'*'; Inc(k); end; s1:=s1+s[i]; ch:=s[i]; end; if k=0 then s1:=s1+'*'; Writeln('Result:'); Writeln(s1); Readln; end. ========== Третья задача ========== program z3; uses Crt; const mn: set of char = ['Ђ','…','р','€','Ћ','“','›','ќ','ћ','џ', ' ','Ґ','с','Ё','®','г','л','н','о','п']; {Необращайте на абра - кадабру, в DOSE все будет нормально} var s,s1: string; i,k,kol: integer; begin ClrScr; Writeln('Vvedite stroku: '); Readln(s); {Udalyaem lishnie probeli} While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1); if s[1]=' ' then Delete(s,1,1); if s[Length(s)]=' ' then Delete(s,Length(s),1); kol:=0; While s<>'' do begin if Pos(' ',s)>0 then begin s1:=Copy(s,1,Pos(' ',s)-1); Delete(s,1,Pos(' ',s)); end else begin s1:=s; s:=''; end; k:=0; for i:=1 to Length(s1) do if s1[i] in mn then Inc(k); if k=3 then begin Writeln(s1); Inc(kol); end; end; Writeln('Kolichestvo slov = ',kol); Readln; end.

Ответ отправил: Louken (статус: 10-ый класс) Ответ отправлен: 11.07.2007, 23:47 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за решения моих задач! Вы мне очень помогли, Louken! У вас это очень хорошо получается

Отвечает: Denisss Здравствуйте, Ласточка! См. примеры решения 1-й и 4-й задач в приложении. Если я в первой задаче забыл про какие-то знаки препинания, то добавьте их в константу znPrep. Четвертая задача решается в два этапа: поиск слова максимальной длины, поиск рифм. Выделение слов из строки производится по одному алгоритму. Если длина слова меньше 3-х символов, то у него не может быть рифм (поскольку слово максимальной длины не может являться само себе рифмой). Удачи! Приложение: Задача №1: program Q94846_1; uses Crt; var fStr, nStr: String; i: Integer; const znPrep: Set of Char = ['.', ',', '?', '!', ' ']; begin {Очистка экрана} ClrScr; {Ввод строки} Writeln('Vvedite stroku:'); ReadLn(fStr); {Инициализация} nStr:= ''; {Удаление лишних пробелов} if (Length(fStr) > 1) then begin for i:= 1 to Pred(Length(fStr)) do if (fStr[i] <> ' ') then nStr:= nStr + fStr[i] else if not (fStr[Succ(i)] in znPrep) then nStr:= nStr + fStr[i]; if (fStr[Length(fStr)] <> ' ') then nStr:= nStr + fStr[Length(fStr)]; end; {Вывод результата} WriteLn; WriteLn('Ispravlennaya stroka:'); WriteLn(nStr); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn('Press any key...'); ReadLn; end. ================================ ================================ Задача №4: program Q94846_4; uses Crt; var fStr, maxWord: String; fRhyme: String; aStrt, aLen: Integer; i: Integer; fFound: Boolean; begin {Очистка экрана} ClrScr; {Ввод строки} Writeln('Vvedite text:'); ReadLn(fStr); {Инициализация} maxWord:= ''; aStrt:= 1; aLen:= 1; fFound:= False; {Поиск слова максимальной длины} for i:= 2 to Length(fStr) do begin if (fStr[i] = ' ') or ((i = Length(fStr)) and (fStr[i] <> ' ')) then begin aLen:= i - aStrt; if (i = Length(fStr)) then inc(aLen); if (aLen > Length(maxWord)) then maxWord:= copy(fStr, aStrt, aLen); aStrt:= Succ(i); end; end; {Вывод самого длинного слова} WriteLn; WriteLn('Slovo maximalnoj dliny:'); WriteLn(maxWord); WriteLn; WriteLn('Najdennye rifmy:'); {Поиск рифм} aStrt:= 1; for i:= 2 to Length(fStr) do begin if (fStr[i] = ' ') or ((i = Length(fStr)) and (fStr[i] <> ' ')) then begin aLen:= i - aStrt; if (i = Length(fStr)) then inc(aLen); fRhyme:= copy(fStr, aStrt, aLen); aStrt:= Succ(i); {У слов длиной менее 4-х символов не может быть рифм} if (aLen > 3) then begin {Само себе слово не может являться рифмой} if (maxWord <> fRhyme) and {Сравнение трех последних символов} (copy(fRhyme, Length(fRhyme) - 2, 3) = copy(maxWord, Length(maxWord) - 2, 3)) then begin {Вывод найденной рифмы} WriteLn(fRhyme); fFound:= True; end; end; end; end; {Рифм не найдено} if not fFound then WriteLn('Ne najdeno!'); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn('Press any key...'); ReadLn; end.

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 12.07.2007, 13:42 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, Denisss! Я пока только просмотрела ответы, ещё не разбиралась в них, но в любом случае, очень приятно, что вы нашли возможность ответить на мои вопросы.

Отвечает: Дмитрий С. Здравствуйте, Ласточка! первая задача: CONST mn = [',', '.', ';', ':', '-']; var s: string; i: integer; begin // ввести строку S for i:=1 to length(s) do if (s[i] in mn) and not (s[i+1]=' ') then insert(s, i, ' '); end. --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 2-ой класс) Ответ отправлен: 14.07.2007, 13:07

Вопрос № 94.896

!!!Вопрос жизни и смерти!!! Пожалуйста, помогите решить три задачи: 1. Сформировать с помощью генератора случайных чисел прямоугольную матрицу А, состоящую из N строк и M столбцов. Упорядочить строки матрицы по неубыванию количества простых чисел в соответствующих строках матрицы. Вывести полученную матрицу на экран. Простое число – это число, которое делится без остатка только на единицу и на само себя. Пример Исходная матрица (курсивом выделены простые числа), N=4, M=5 5 7 3 56 23 3 6 4 12 13 4 13 6 34 12 34 2 7 4 8 Результат 4 13 6 34 12 3 6 4 12 13 34 2 7 4 8 5 7 3 56 23 2. Дано натуральное число k. Вывести на экран k-ю цифру последовательности 112358132134…, в которой выписаны подряд все числа Фибоначчи. Числа Фибоначчи (Fn) определяются формулами: F1=F2=1; Fn=Fn-1+Fn-2 Пример k=11, первая строка – номера цифр, вторая строка – числа Фибоначчи. 1 2 3 4 5 6 7 8 9 10 11 12 1 1 2 3 5 8 1 3 2 1 3 4 Ответ: 3 3. Дано натуральное число k. Вывести на экран k-ю цифру последовательности 1491625364964…, в которой выписаны подряд все квадраты натуральных чисел. Пример k=10, первая строка – номера цифр, вторая строка – последовательность квадратов. 1 2 3 4 5 6 7 8 9 10 11 1 4 9 1 6 2 5 3 6 4 9 Ответ: 4 Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 12.07.2007, 13:47 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Ласточка! В приложении решение 3 задачи. 2 решается аналогично, только a := sqr(j); заменяется на вычисление очередного числа Фибоначчи. Приложение: program Project2; var i, j, k, n, w: integer; a, t: longint; begin write('Vvedite k='); readln(k); j := 0; a := 1; i := 0; repeat j := j + 1; a := sqr(j); t := a; while t > 0 do {считаем количество цифр в числе и добавляем к общему количеству} begin t := t div 10; i := i + 1; end; until i >= k; t := a; while i >= k do {возвращаемся по цифрам последнего числа до нужной} begin w := t mod 10; t := t div 10; i := i - 1; end; writeln('k-ya tsifra:', w); readln; end.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 12.07.2007, 14:07 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо ответ, Coupler! Попытаюсь сейчас разобраться в вашем способе решения моей задачи. Вы мне очень помогли!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! В приложении 1-я задача. Поле в массиве введенно для контроля кол-ва простых чисел. Удачи! Приложение: program q94896; const n=4; m=5; type massiv=packed array[1..n,0..m]of integer; var a:massiv; i,j,x,y:integer; function check(var b:massiv;c:integer):integer; var d,e,f:integer; begin d:=0;{счетчик} for e:=1 to m do{перебираем все числа в строке} begin f:=a[c,e]-1;{предидущее число} while ((a[c,e]mod f)>0)and(f>1)do{если число простое остаток больше 0} begin f:=f-1;{следующее число} end; if f=1 then d:=d+1;{если 1 то число простое} end; check:=d; end; begin randomize; {создаем массив} for i:=1 to n do for j:=1 to m do a[i,j]:=10+random(89); {выводим} writeln('before'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; {контроль} for i:=1 to n do a[i,0]:=check(a,i); {сортируем массив по строках} for i:=1 to n-1 do for j:=i+1 to n do begin if check(a,i)>check(a,j) then for x:=0 to m do begin{меняем строки местами} y:=a[i,x]; a[i,x]:=a[j,x]; a[j,x]:=y; end; end; {выводим} writeln('after'); for i:=1 to n do begin for j:=0 to m do write(a[i,j]:3); writeln; end; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 12.07.2007, 17:24 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь, Зенченко Константин Николаевич! Мне было важно узнать решение хотя бы одной из этих задач. Вы мне очень помогли.

Вопрос № 94.898

Уважаемые эксперты! Пожалуйста, помогите решить две задачи: 1. На празднике Нового года друзья отсняли полностью пленку FUDJI 18 кадров. На следующий день они проявили пленку и решили отпечатать фотографии. Друзья составили список тех фотографий, которые нужно отпечатать, при этом, некоторые ребята заказали себе фотографии размером 10*15, некоторые – 9*13. Друзья собрали определенное количество денег для печати фотографий. Определить, хватит ли им денег на печать. Входные данные: N – количество собранных денег Cost1 – стоимость печати одной фотографии 10*15 Cost2 – стоимость печати одной фотографии 9*13 M – количество друзей, сделавших заказ (1(<=)M(<=)10) Два массива А1 и А2, размерностью M*18. Каждый элемент массива А1 (A1[i,j], где 1(<=)i(<=)M, 1(<=)j(<=)18) обозначает число фотографий размером 10*15 для печати с j-того кадра пленки, заказанных i-тым другом. Каждый элемент массива А2 (A2[i,j], где 1(<=)i(<=)M, 1(<=)j(<=)18) обозначает число фотографий размером 9*13 для печати с j-того кадра пленки, заказанных i-тым другом. Выходные данные: TRUE – если денег на печать хватит и FALSE иначе. 2. В престижном районе города Кирова строится новый дом. Хорошо обеспеченная семья из M человек намерена приобрести квартиру в этом доме. Но, к сожалению, в доме нет ни одной квартиры, количество комнат в которой соответствовало бы количеству человек в данной семье (количество комнат в квартире должно быть больше как минимум на одну гостевую комнату, чем количество человек в семье). Поэтому глава семьи решил приобрести две соседние квартиры и объединить их в одну. При объединении двух квартир в одну за счет сноса стены количество комнат в результирующей квартире уменьшится на одну по сравнению с суммарным количеством комнат двух отдельных квартир. Определить, сможет ли семья найти в строящемся доме подходящие 2 квартиры. Входные данные: M – количество человек в семье R – количество квартир вдоль одной стены строящегося дома С – количество квартир вдоль другой стены строящегося дома Массив А размерностью R*С целых чисел, каждый элемент которого соответствует количеству комнат в соответствующей квартире. При этом А[i,j]<M (1(<=)i(<=)R, 1(<=)j(<=)C). Две квартиры считаются соседними, если у них есть общая стена Выходные данные: 4 целых числа – номер строки и номер столбца первой квартиры и номер строки и номер столбца второй квартиры, если в доме есть подходящие для семьи квартиры и слово FALSE, если таких квартир нет. Пример: Входные данные: M=4; R=2; C=3; А: 3 2 3 1 1 3 Выходные данные: 1 3 2 3 Если это возможно, то в наиболее упрощённом варианте и с пояснениями. Заранее большое спасибо. Swallow.

Отправлен: 12.07.2007, 14:01 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, Ласточка! См. решение первой задачи в приложении. Поскольку Вы не указали типов данных, то для подсчета денег я взял тип Real, чтобы можно было указывать с копейками (центами или что там у Вас). Удачи! Приложение: program Q94898_1; uses Crt; var M: Byte; N: Real; Cost1, Cost2: Real; A1, A2: array[1..10, 1..18] of Integer; i, j: Byte; SumCost: Real; begin {Очистка экрана} ClrScr; {Ввод данных} repeat Write('Vvedite M (Kol-vo chelovek) [1..10]: '); ReadLn(M); until ((M > 0) and (M < 11)); Write('Vvedite N (Kol-vo deneg, RUB): '); ReadLn(N); Write('Vvedite Cost1 (Stoimost'' foto 10x15): '); ReadLn(Cost1); Write('Vvedite Cost2 (Stoimost'' foto 9x13): '); ReadLn(Cost2); for i:= 1 to M do begin WriteLn; WriteLn('Zakaz cheloveka[', i, ']:'); for j:= 1 to 18 do begin Write('Kadr #', j, ' (10x15, sht.): '); ReadLn(A1[i, j]); Write('Kadr #', j, ' (9x13, sht.): '); ReadLn(A2[i, j]); end; end; {Инициализация} SumCost:= 0; {Подсчет общей суммы} for i:= 1 to M do for j:= 1 to 18 do SumCost:= SumCost + A1[i, j]*Cost1 + A2[i, j]*Cost2; {Вывод результата} WriteLn; Write('Result: '); if (SumCost > N) then WriteLn('FALSE') else WriteLn('TRUE'); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn('Press any key...'); ReadLn; end.

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 12.07.2007, 17:10 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь в решении моей задачи, Denisss! Вы мне очень помогли. Ещё не проверяла, но не сомневаюсь, что работает правильно.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! Смотрите приложение. Удачи! Приложение: program q94898; const c=2; r=3; m=4; var a:packed array[1..c,1..r]of integer; n,i,j:integer; b:boolean; begin {считаем нужное кол-во комнат +гостинная и +пропадающая комната} n:=m+2; {вводим комнаты} for i:=1 to c do for j:=1 to r do begin write('number',char(39),'s[',i,',',j,']:'); readln(a[i,j]); end; {истина комнат нет} b:=true; {поиск смежных комнат в доль одной стены} for i:=1 to c-1 do for j:=1 to r do if (a[i,j]+a[i+1,j])>=n then begin writeln('room[',i,',',j,'] and room[',i+1,',',j,']'); b:=false; end; {поиск вдоль другой стены} for j:=1 to r-1 do for i:=1 to c do if (a[i,j]+a[i,j+1])>=n then begin writeln('room[',i,',',j,'] and room[',i,',',j+1,']'); b:=false; end; {сорри комнат нет} if b then writeln('oop"s'); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 12.07.2007, 20:29 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, Зенченко Константин Николаевич! Вообще, мне очень нравится этот сайт. В особенности все эксперты, которые не мне так помогают!

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.53 beta от 09.07.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru