Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Строки и буквы |
| симав |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 24 Пол: Женский Репутация:  0   |
Кто-нибудь, помогите! Училка задала программы, а тему даже не объяснила!
 Помогите сделать их.1. Подсчитать, каких букв в тексте больше: "а" или "о". Текст взять любой. 2. Поменять местами первую и последнюю букву в заданном тексте. Текст любой. 3. Подсчитать кол-во предложений в тексте. Текст любой. Заранее спасибо! :D |
   |
 
|
симав Строки и буквы 23.03.2005 21:13
klem4 ДЕСЯТКИ аналогичных задач решены на форуме.. польз… 23.03.2005 21:29 симав Я обыскала все! Нигде ничего похожего даже нет… 3.04.2005 22:22
volvo
А что собственно неясно в заданиях? Для начала - … 3.04.2005 22:34 klem4 1) Обнуляешь счетчики Na=0;No=0; просматриваешь те… 4.04.2005 10:39 Altair
Зачем? просто считаем число символов, которое кон… 4.04.2005 16:26 klem4 Ну так, для красоты ;)
PS да, действителнь, что-то… 4.04.2005 17:15 симав :molitva: :rolleyes: Спасибо огромное!!… 4.04.2005 21:38 симав Вот написала, но не идет.
1)var
s,d,a,o:string… 5.04.2005 20:52 volvo Значит, так:
1. Не забудьте, что работаем - с симв… 5.04.2005 20:57 FreeMan Молодец, ты всё сделала почти правильно.
замени
… 5.04.2005 21:01 volvo FreeMan, нехорошо... Это даже не скомпилится :)
5.04.2005 21:05 klem4 Вот чтобы не задумываться лучше всегда так :
for… 5.04.2005 21:06 FreeMan
А я и не собираюсь!!!! :D 5.04.2005 21:07 симав 3)var
st:string;
k:integer;
begin
writeln… 5.04.2005 21:10 volvo 3. (Почти правильно)... ;)
var st:string;
k… 5.04.2005 21:16 симав У меня вопрос.
Что такое ink?
То есть всегда нужно… 5.04.2005 21:20 klem4 inc(i)<=>i:=i+1;
Удаляем из п… 5.04.2005 21:25 симав Что такое inc :huh: ?
A bite-это integer?
А еще cl… 5.04.2005 21:29 klem4 про инк я сказал, byte - целый тип, как integer, н… 5.04.2005 21:32 симав Извини, про inc не заметила. :rolleyes: 5.04.2005 21:36 симав Большое спасибо, очень помогли! :D 5.04.2005 21:39 симав var st:string;
i,k:integer;
begin
k :=… 5.04.2005 22:29 klem4 in - операция вхождения в множество, в твоем случа… 5.04.2005 22:37 симав А можно как-нибудь без in обойтись? Ну, заменить … 5.04.2005 22:44 klem4 конечно можно. например так :
if (st[i… 5.04.2005 22:47 симав Извиняюсь!!!!!!!!… 5.04.2005 22:53 симав Всем спасибо за помощь! Поставили 5! Дали … 6.04.2005 17:17 симав И снова я! :D Три задачки:
1) Подсчитать коли… 7.04.2005 20:29 Altair 3.
var
s:string;
i:byte;
begin
readln(s);
if … 7.04.2005 21:01 klem4 2)
var s:string;
t:char;
i:b… 7.04.2005 21:15 симав А в 1-ой что ни так? 7.04.2005 21:16 Altair 1.
var
s:string;
r:set of char; i,k:byte;
begin
… 7.04.2005 21:23 симав Что-то с 3-ей задачей намудрил... :huh:
А зачем в … 7.04.2005 21:29 Altair симав, может т ыхочешь сказать, что она не работае… 7.04.2005 21:31 симав Извините, меня! В 9-ом классе этого не проходя… 7.04.2005 21:35 симав :mol: :naezd:
[b]Модератор: Это не наезд... Мы [… 7.04.2005 21:36  |
|
Текстовая версия | 21.12.2025 0:29 |
