Решите пожалуйста мою задачу на поскале.

[Ivan357]

Задача состоит вот в этом : Определите,сколько в заданном тексте заданных букв.
Получилась программа:
var s:string;
n:real;
begin
write('vvedite text');
read(s);
n:=length(s);
writeln('n=',n:6:2);
readln(n);
end.

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

[Sm1Le]

Сообщение от Ivan357

Задача состоит вот в этом : Определите,сколько в заданном тексте заданных букв.
Получилась программа:

var s:string;
n:real;
begin
write('vvedite text');
read(s);
n:=length(s);
writeln('n=',n:6:2);
readln(n);
end.

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

То что вы написали бред Простите ... Но это так ... Задание не то что вы написали ... Вы просто посчитали Количество символов в строке ...

Ваша задача вот :

for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin
if str1[i]=str2[j] then
s:=s+1;
end;
end;

s-количество совпадений .... символов из строки 2 в строке 1 ... =) дерзайте =))

з.Ы. не пишите "решайте" ... очень плохо звучит ... пишите лучше помогите пожалуйста ... Это правильнее ... А решайте надо писать во Фрилансе ... да и то ... Надо еще подумать ...

[Ivan357]

большое спасибо за задачу и за совет.Приму к свединию..

[Ivan357]

Блин,прога не работает правильно. пишет всегда,что s=0 !!!

[Sm1Le]

Выложи полностью все ....

[Ivan357]

var str1:string; str2:string;
i,j:integer; s:real;
begin
write('vvedite text_');
read(str1);
for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin
if str1[i]=str2[i] then
s:=s+1;
end;
end;
writeln('s=',s:6:2);
readln(s);
end.

[Sm1Le]

program Oleg;
var str1,str2:string;
i,j,s:integer;
begin
s:=0;
for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin
if str1[i]=str2[j] then
s:=s+1;
end;
end;
end;

А то что вы вводите Это не очень понятно вам надо ввести набор символов среди которых вы ищите, и набор символов которые Вы ищете ...

[Ivan357]

я ввел так,как вы написали,но она вообще никаких функций не выполняет,т.е. нажимаю run - run ,экран переходит в черный фон и моментально опять возвращает в синий фон с программой...

[Sm1Le]

Да потому что на экран ничего не выводилось ... =)))

program Oleg;
var str1,str2:string;
i,j,s:integer;
begin
s:=0;
str1:='asdqfqweqweasdaqwe';
str2:='as';
for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin
if str1[i]=str2[j] then
s:=s+1;
end;
end;
writeln(s);
readln;
end.

На экране должна быть одна цифра количество совпадений символов ...=)

[Ivan357]

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