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

Выпуск № 411
от 26.06.2007, 16:05

Вопрос № 92.252

Всем доброго времени суток! Есть задача: вводится строка символов.Вывести множество символов, кот встречаются только 1 раз. Идея такая: Создать два одномерных массива. Загнать введенную строку в первый массив и дальше обращатся к его элементам по индексу, в цикле сравнивая каждый элемент по очереди со всеми остальными. Элементы, кот встретились только 1 раз поместить во второй массив, кот и вывести на экран. Помогите реализовать с языком знаком только смутно...

Отправлен: 20.06.2007, 19:47 Вопрос задал: ATZATZ (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Устинов С.Е. Здравствуйте, ATZATZ! Можно сделать, например, как в приложении - для каждого символа вносим ее в множество 1 если его там еще нет, или в множество 2 если он уже есть в множестве 1. В конце перебираем все символы и смотрим - если символ входит в множество 1 и не входит в множество 2, то выводим его. Удачи! Приложение: var s:string; m1,m2: set of char; i:integer; c:char; begin writeln('Vvedite stroku'); readln(s); for i:=1 to length(s) do if s[i] in m1 then m2:=m2+[s[i]] else m1:=m1+[s[i]]; for c:=chr(0) to chr(255) do if (c in m1) and not(c in m2) then write(c); writeln; readln; end. --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов С.Е. (статус: Профессионал) Украина, Славянск Организация: SlavComp WWW: Физико-математический факультет СГПУ ICQ: 6755675 ---- Ответ отправлен: 20.06.2007, 20:05

Отвечает: Градов Юрий Михайлович Здравствуйте, ATZATZ! В приложении решение Вашей задачи Удачи!!! Приложение: program Q92252; {$APPTYPE CONSOLE} uses SysUtils, CRT32 in '..LibCRT32.pas'; var mnogo: boolean; SetWd: Set of Char; St,Tmp: string; i: integer; begin Writeln('Input string :'); Read(St); St:=St+' '; mnogo:=False; for i:=1 to Length(St) do begin if St[i]<>' ' then begin if Not (St[i] in SetWd) and (mnogo=False) then begin SetWd:=SetWd+[St[i]]; tmp:=tmp+St[i]; end else begin tmp:=''; SetWd:=[]; mnogo:=True; end; end else begin if mnogo=False then Writeln(tmp); tmp:=''; mnogo:=False; end; end; ReadKey; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Практикант) Ответ отправлен: 20.06.2007, 20:28

Отвечает: Denisss Здравствуйте, ATZATZ! См. пример в приложении. Комментарии в примере. Массивы: m1, m2. Если нужно массив 2 выводить отдельно, то удалите строчку write(m2[c2]); и после следующего end; впишите: for i:= 1 to c2 do write(m2[i]); В конце, если во второй массив не занесено ни одного символа, то выдается результат: "Нет ни одного символа, встречающегося всего один раз." Удачи! Приложение: program q92252; uses Crt; var S: String; m1, m2: array[1..256] of Char; c1, c2: Byte; i: Integer; s1, s2: Set of Char; begin {Очистка экрана} ClrScr; {Ввод строки} writeln('Vvedite text:'); readln(S); {Инициализация} c1:= Length(S); c2:= 0; s1:= []; s2:= []; {Переносим строку в массив и запоминаем множество символов} for i:= 1 to c1 do begin m1[i]:= S[i]; if (m1[i] in s1) then s2:= s2 + [m1[i]] else s1:= s1 + [m1[i]]; {В результате множество s1 будет содержать все символы, которые встречаются один и более раз, а множество s2 - более 1-го раза} end; {Копируем во второй массив только символы, которые встречаются всего один раз в тексте} for i:= 1 to c1 do {Если символ не попал во второе множество, значит он встречается в тексте всего один раз} if not (m1[i] in s2) then begin {с2 - количество элементов во втором массиве} inc(c2); {Заносим символ во второй массив} m2[c2]:= m1[i]; {Сразу же выводим символ пользователю, чтобы лишний раз массив не перебирать} write(m2[c2]); end; if (c2 = 0) then write('Net ni odnogo simvola, vsrechayushegosya vsego odin raz.'); {Даем пользователю возможность насладиться результатом} writeln; write('Press any key...'); readln; end.

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 20.06.2007, 23:59

Вопрос № 92.267

Доброго дна эксперты. Имеется EXE файл -результат трансляции исходника на Паскале на пентиуме 2 под WIN 98. При его запуске на пентиуме 4 выдается ошибка runtime 200. Слышал,что есть программы, которые адаптируют подобные файлы дла работы на быстрых машинах.

Отправлен: 20.06.2007, 22:07 Вопрос задал: Votik (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Градов Юрий Михайлович Здравствуйте, Votik! Попробуйте Пуск>Все программы>Стандартные>Мастер совместимости программ Пальцем в небо! При чем тут совместимость? Это ошибка CRT-модуля в Turbo Pascal. Эксперт sir henry --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Практикант) Ответ отправлен: 20.06.2007, 22:47

Отвечает: sir henry Здравствуйте, Votik! Загляните сюда, там есть рекоммендация, как исправить эту ошибку: http://pascal.sources.ru/faq/err200.htm Но будет намного лучше, если Вы найдете исходник программы и перекомпилируете его современным компилятором, например FreePascal'ем (http://www.freepascal.org/), т.к. это избавит программу от других, менее очевидных ошибок.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 21.06.2007, 10:55

Вопрос № 92.294

Здравствуйте!Требуется решение задачи: Ввести одномерный массив А(4).Построить по формуле массив В(4x4):B(i,j)=A(i)(умножить)A(j).С помощью п\п 2 найти сумму массивов S=B+B.С помощью п\п 1 найти минимальные элементы каждой строки массива S. п\п1-подпрограмма ищущая мин.значения массива. п\п 2-подпрограмма складывающая двумерные массивы 4x4. Заранее огромное спасибо!!!

Отправлен: 21.06.2007, 01:31 Вопрос задал: Dimas328 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Gh0stik Здравствуйте, Dimas328! Вот код с комментариями: const n=4; type arr=array [1..n,1..n] of integer; function pp1(x:arr; ns:integer):integer; {подпрограмма ищущая мин.значения строки массива} var mn,k:integer; begin mn:=x[ns,1]; for k:=2 to n do if mn > x[ns,k] then mn:=x[ns,k]; pp1:=mn; end; procedure pp2(x,y:arr;var r:arr); {подпрограмма складывающая двумерные массивы 4x4.} var q,w:integer; begin for q:=1 to n do for w:=1 to n do r[q,w]:=x[q,w]+y[q,w]; end; var a:array [1..n] of integer; b,s:arr; i,j:integer; begin randomize; for i:=1 to n do begin a[i]:=random(15)-5;write(a[i]:3);end; {генерируем произвольным образом элементы массива А и выводим их на экран, при необходимости просто замените этот блок на ручной ввод} writeln;writeln; for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=a[i]*a[j]; write(b[i,j]:4);end; {строим массив В по формуле: B(i,j)=A(i)*A(j)} writeln; end; for i:=1 to n do writeln(pp1(b,i)); {находим и выводим на экран минимальные элементы каждой строки массива В} pp2(b,b,s); {найдем сумму массивов S=B+B} for i:=1 to n do begin for j:=1 to n do write(s[i,j]:4); {выводим на экран результат суммы} writeln; end; end. Чтобы найти минимальные элементы строк S, достаточно добавить такие операторы: for i:=1 to n do writeln(pp1(s,i)); Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 21.06.2007, 01:55 Оценка за ответ: 5 Комментарий оценки: моя признательность не знает границ)5 баллов!!!))

Отвечает: Градов Юрий Михайлович Здравствуйте, Dimas328! Получайте решение и пользуйтесь. Удачи!!! Приложение: type TArr= Array[1..4] of integer; var A: TArr; B,S: array[1..4] of TArr; i,j,min: integer; begin Writeln('Vvedite elemtety massiva :'); for i:=1 to 4 do begin Write('Element N',i,'='); Read(A[i]); end; for i:=1 to 4 do for j:=1 to 4 do B[i,j]:=A[i]*A[j]; Writeln('Massiv B[4x4]'); for i:=1 to 4 do begin for j:=1 to 4 do Write(B[i,j],' '); Writeln; end; min:=B[1,1]; for i:=1 to 4 do for j:=1 to 4 do if min>B[i,j] then min:=B[i,j]; Writeln('Min znachenie massiva = ',min); for i:=1 to 4 do for j:=1 to 4 do S[i,j]:=B[i,j]+B[i,j]; Writeln('Summa massivov B[4x4]+B[4x4]'); for i:=1 to 4 do begin for j:=1 to 4 do Write(S[i,j],' '); Writeln; end; Readln; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Практикант) Ответ отправлен: 21.06.2007, 01:56 Оценка за ответ: 5 Комментарий оценки: Спасибо за 2ой ответ,вроде все понятные,спасибо большое!)

Вопрос № 92.295

Здравствуйте!требуется решение задачи: Найти решение ур-я: y=(x-2)^4 - 7 c точностью 10^3 на отрезке [2,6]; пояснение: ^-степень))) Заранее большое спасибо!!!

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

Отвечает: Gh0stik Здравствуйте, Dimas328! Воспользуемся методом дихотомии (половинного деления): program dihotomiya; var a,b,x,eps:real; function f(x:real):real; begin f:=sqr(sqr(x-2))-7; {описание самой функции (уравнения)} end; begin a:=2; b:=6; eps:=0.001; {входные параметры, при желании можно ввести с клавиатуры} write('e='); while abs(f(a)) > eps do begin x:=(a+b)/2; if f(x)*f(b) < 0 then a:=x else b:=x; end; writeln('x=',a:5:4); end. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 21.06.2007, 02:08 Оценка за ответ: 5 Комментарий оценки: млин,сложно чего то)курсовая и того проще)))все равно спасибо,буду разбираться)

Вопрос № 92.371

люди помогите пожалуйста с программой!!! нужно сделать через указатели. просто плохо знаком со списками... Заменить 3-ю, 4-ю и 5-ую записи на три новых записи. P.S. заранее спасибо

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

Отвечает: Omickron Здравствуйте, Мусаев Руслан Ризванович! Для доступа к третьей записи, нужно просмотреть сначала две предыдущие. Затем изменить третью, перейти к 4й, изменить 4ю, ну и так далее. см. приложение. Приложение: Type TTP=^TP; TP=record i:integer; n:TTP; end; var i:integer; start,p:TTP; ====================== p:=start; i:=0; while (p<>nil) and (i<=2) do begin inc(i) p:=p^.n; end; writeln ('Enter the 3rd number'); readln (i); p^.i:=i; p:=p^.n; writeln ('Enter the 4th number'); readln (i); p^.i:=i; p:=p^.n; writeln ('Enter the 5th number'); readln (i); p^.i:=i; ======================

Ответ отправил: Omickron (статус: 2-ой класс) Ответ отправлен: 21.06.2007, 15:45 Оценка за ответ: 2 Комментарий оценки: она ни фига не работает :-(

Отвечает: Louken Здравствуйте, Мусаев Руслан Ризванович! Код в приложении. В программе определены две процедуры и одна функция: NewZap - создает новую запись, помещает в нее числовое значение и возращает указатели на первый и последний элементы списка, в программе указатель на последний элемент списка нигде не используется, но может быть Вам он потребуется. Print - распечатывает список, в эту процедуру надо просто передать указатель на первый элемент списка. GetNumZap - функция возращает указатель на элемент списка, с номером num. Изучайте и разбирайтесь, пример я Вам дал. Удачи. Приложение: program z92371; uses Crt; type pzap = ^zap; zap = record num: integer; p: pzap; end; procedure NewZap(var first, last: pzap; number: integer); var z: pzap; begin New(z); z^.num:=number; z^.p:=nil; if first=nil then begin first:=z; last:=z; end else last^.p:=z; last:=z; end; procedure Print(first: pzap); begin While first<>nil do begin Write(first^.num:5); first:=first^.p; end; end; function GetNumZap(first: pzap; num: integer): pzap; var i: integer; begin i:=1; While i<num do begin first:=first^.p; i:=i+1; end; GetNumZap:=first; end; var firstzap, lastzap, z: pzap; i,n: integer; begin ClrScr; firstzap:=nil; for i:=1 to 6 do begin Write('Vvedite znachenie zapisi #',i,': '); Readln(n); NewZap(firstzap, lastzap, n); end; Writeln; Print(firstzap); Writeln; Writeln; z:=GetNumZap(firstzap, 3); Write('Vvedite novoe znachenie zapisi 3: '); Readln(n); z^.num:=n; z:=z^.p; Write('Vvedite novoe znachenie zapisi 4: '); Readln(n); z^.num:=n; Writeln; Print(firstzap); Writeln; Readln; end.

Ответ отправил: Louken (статус: 8-ой класс) Ответ отправлен: 21.06.2007, 17:57 Оценка за ответ: 5 Комментарий оценки: спасибо большое! всё работает без ошибок, только пришлось добавить в конце еще кода для того чтобы менять 5-ый элемент, или может вы это специально оставили для того, чтобы я понял смысл работы программы...вобщем спасибо!!!!

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