Вопросец.Паскаль!

[Atlant]

Доброй всем ночи

Вобщем мне нужно написать программу по условию:
Дан текст из строчных латинских букв, за которым следует точка. Составить программу для распечатки всех букв, входящих в текст не менее двух раз.

Если не трудно помогите пожалуйста. Заранее благодарен.

 

[bubuka]

Доброй всем ночи

Вобщем мне нужно написать программу по условию:
Дан текст из строчных латинских букв, за которым следует точка. Составить программу для распечатки всех букв, входящих в текст не менее двух раз.

Если не трудно помогите пожалуйста. Заранее благодарен.

если еще актуально то отпищись и я напишу алгоритм
так же несколько вопросов
текст дан или же всетаки строка?
все буквы идут подряд без пробелов? т.е просто набор букв?

 

[Atlant]

Да, еще актуальна.
Дана строка, буквы идут подряд без пробелов.

Спасибо, что откликнулся

 

[Призрак]

1. создаешь массив чисел, где номер ячейки равен коду символа и обнуляешь его (записываешь нули).
2. проходишь посимвольно всю строку и увеличиваешь на единицу значение той ячейки массива, номер которой равен коду обнаруженного символа.
3. по окончании строки символов перебираешь ячейки массива и выводишь символы, код которых равен номеру ячейки значение которой больше единицы.

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

 

[bubuka]

Var
S:string;
Mas1:array [1..255] of string;
Mas2:array [1..225] of integer;
I,d,k,j,fl,l:integer;
Begin

Writeln(‘Vvedite stroku’);
Readln(s);
D:=longth(s);

Mas1[1]:=s[1];
Mas2[1]:=1;
K:=1;

For i:=2 to d do
begin

for j:=1 to k do
if mas[j]=s then begin fl:=1; l=j; break; end else fl:=0;

if fl=1 then
mas2[l]:=mas2[l]+1
else
begin
k:=k+1;
mas1[k]:=s;
mas2[k]:=1;
end;

end;

for i:=1 to k do
if mas2=>2 then writeln(mas1,’ ‘,mas2);

end.

 

[bubuka]

не гарантию обсалютную правильность кода так как писал в ворде и не отлаживал

но если возникнут вопросы или нужны буду коментарии то обьясню либо до 17-00 сего дня либо только завтра вечером

 

[AlexZir]

bubuka
length(s) будет правильно, а вырезку символа из строки можно реализовать командой copy(s,1,i)

 

[bubuka]

bubuka
length(s) будет правильно, а вырезку символа из строки можно реализовать командой copy(s,1,i)

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

 

[AlexZir]

Тогда с именами массивов подразобраться надо , а то во внутреннем цикле имя массива не определено . Там ведь должно быть mas1[j], я правильно понял?

 

[Atlant]

всем большое спасибо за помощь (прощу прощения, что так долго не отписывался, уезжал)

 

[bubuka]

Тогда с именами массивов подразобраться надо , а то во внутреннем цикле имя массива не определено . Там ведь должно быть mas1[j], я правильно понял?

да именно так
я ж говорю не проверял на отладчике

 

[Tanjasuperpuper]

nec dvd rw nd-3500ag

Пжлста помогите найти драйвер!))

 

[Miracle]

здесь поискать можно. http://mirsofta.ru/finddr.php?find=%E4%F0%E0%E9%E2%E5%F0+NEC+DVD-RW+ND-3500AG

 

[Кира_А]

http://pchelpforum.ru/f33/t7955/ Пост №5.