1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Talya |
Сообщение
#1
|
|
Гость |
Очень нужна ваша помощь! как можно решить данную задачу? Заранее огромное спасибо!
В текстовом файле подсчитать количество строк, которые начинаются и оканчиваются одной и той же буквой. |
мисс_граффити идешь по файлу, построчно считываешь...
если перва… 6.04.2007 15:12
Tan Вот о чём тебе говорит мисс_граффити :
uses crt;
C… 6.04.2007 15:21
мисс_граффити a:=Length(s);
if S[1] = S[a]
а зачем н… 7.04.2007 13:12
Tan да, я сам заметил, когда уже запостил, но не измен… 7.04.2007 15:13
sintanial Эмм вот тоже задали это же. Я её сделал сначало с … 23.05.2008 0:01
samec надо завести три переменных типа char (ch1, ch2 и … 23.05.2008 0:23
Client А можно со строкой и переменной типа char обойтись 23.05.2008 0:44
samec вот что то подобное должно получиться:
uses crt;
… 23.05.2008 0:50
sintanial А я сделал попроще =)
var x:real; s1,s2:char; f:t… 23.05.2008 1:42![]() ![]() |
|
Текстовая версия | 22.12.2025 23:09 |