|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.12.2008, 17:19 | #1 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
ПОМОГИТЕ!!!!пожалуйста!!!
Задача состоит вот в этом : Определите,сколько в заданном тексте заданных букв.
Получилась программа: var s:string; n:real; begin write('vvedite text'); read(s); n:=length(s); writeln('n=',n:6:2); readln(n); end. Программа работает,но считает буквы вместе с пробелами между словами.Помогите пожалуйста,как это исправить и куда эту часть программы впечатывать. Последний раз редактировалось Ivan357; 09.12.2008 в 18:57. Причина: оч нужна помощь,а никто не помогает... |
09.12.2008, 18:27 | #2 | |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Цитата:
Ваша задача вот : 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 ... =) дерзайте =)) з.Ы. не пишите "решайте" ... очень плохо звучит ... пишите лучше помогите пожалуйста ... Это правильнее ... А решайте надо писать во Фрилансе ... да и то ... Надо еще подумать ...
Skype : UASm1Le.
Последний раз редактировалось Sm1Le; 09.12.2008 в 19:09. |
|
09.12.2008, 18:30 | #3 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
большое спасибо за задачу и за совет.Приму к свединию..
|
09.12.2008, 18:54 | #4 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
АААААААА!!не работает!!!
Блин,прога не работает правильно. пишет всегда,что s=0 !!!
|
09.12.2008, 18:56 | #5 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Выложи полностью все ....
Skype : UASm1Le.
|
09.12.2008, 19:02 | #6 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
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. |
09.12.2008, 19:09 | #7 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Код:
А то что вы вводите Это не очень понятно вам надо ввести набор символов среди которых вы ищите, и набор символов которые Вы ищете ...
Skype : UASm1Le.
Последний раз редактировалось Sm1Le; 09.12.2008 в 19:11. |
09.12.2008, 19:20 | #8 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
я ввел так,как вы написали,но она вообще никаких функций не выполняет,т.е. нажимаю run - run ,экран переходит в черный фон и моментально опять возвращает в синий фон с программой...
|
09.12.2008, 19:22 | #9 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Да потому что на экран ничего не выводилось ... =)))
Код:
Skype : UASm1Le.
Последний раз редактировалось Sm1Le; 09.12.2008 в 19:25. |
09.12.2008, 19:29 | #10 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
|
Снова попробовал ваше решение и снова безрезультатно...(спасибо,что вы помогаете такому дубу в програмировании как я)..я немогу ввести текст,в котором бы программа считала буквы...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите в Паскале написать программу, пожалуйста. | Saaashka | Помощь студентам | 5 | 20.04.2010 19:02 |
Помогите написать программу на паскале | mTl | Помощь студентам | 17 | 24.03.2009 10:15 |
Помогите написать программу в Паскале | Saaashka | Помощь студентам | 1 | 11.06.2008 11:30 |
помогите поправить! | koyot | Работа с сетью в Delphi | 4 | 13.02.2008 18:46 |
помогите написать программу в паскале | death | Помощь студентам | 3 | 22.10.2007 10:05 |