|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.12.2008, 14:28 | #1 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
"введите текст из 100 литер..."
введите текст из 100 литер, удалив повторные вхождения каждой литеры.
помогите пожалуйста решить,только без испольвания множеств- их мы не проходили ещё |
20.12.2008, 14:40 | #2 |
Linux C++ Qt ARM
Старожил
Регистрация: 30.11.2008
Сообщений: 3,030
|
хм... литер... Иммеются идущие подряд литеры? ( в английском алфавите меньше 100 букв+ знаков препинания)
на С++ это выглядит так Код:
Дилетант широкого профиля.
"Слова ничего не стоят - покажите мне код!" © Линус Торвальдс |
20.12.2008, 14:43 | #3 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
литеры я насколько поняла это просто буквы...то есть обычный текст...мне в паскале нужно
|
20.12.2008, 14:44 | #4 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
литер ? - Может букв,или символов лучше ?
Зачем множества ? Язык какой, программирования ? =))) - Одновременно =)))) Код:
Skype : UASm1Le.
Последний раз редактировалось Sm1Le; 20.12.2008 в 14:49. |
20.12.2008, 14:46 | #5 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
язык- паскаль...множества мне и не нужны, просто некоторые советовали с множестаами решать. ну просто буквы и пробелы вроде
|
20.12.2008, 14:53 | #6 |
Регистрация: 20.12.2008
Сообщений: 3
|
Всем привет))))помоги кто смже,надо решить программу турбо паскале:
в ппоследлвателности чисел выбрать все четные ,подсчитав их количество и смму .Нечетные числа превратить в четные ,умножив кждое из них на 2 |
20.12.2008, 14:53 | #7 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
спасибо большое...а что такое string и length...1ый курс- такого у нас не было ещё) мне преподавательница сказала вводить так:
const n=100; eot='@'; var A:array [1..n] of char; i,j,k:integer; ok:boolean; ch:char; begin writeln ('введите 100 литер'); i:=0; repeat repeat i:=i+1; read (A[i]) ; until (i=n) or eoln or (A[i]=eot); readln until (i=n) or (A[i]=eot); а что дальше, как дописать??) Последний раз редактировалось katya36; 20.12.2008 в 14:57. |
20.12.2008, 14:55 | #8 |
Регистрация: 20.12.2008
Сообщений: 3
|
пожалуйста мне в поидельник здать нужно ,а я из иста не хочу вылетать((((((((((
|
20.12.2008, 14:57 | #9 | |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Цитата:
К примеру у тебя есть массив чисел : Код:
Skype : UASm1Le.
|
|
20.12.2008, 14:59 | #10 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 51
|
спасибо большое...а что такое string и length...1ый курс- такого у нас не было ещё) мне преподавательница сказала вводить так:
const n=100; eot='@'; var A:array [1..n] of char; i,j,k:integer; ok:boolean; ch:char; begin writeln ('введите 100 литер'); i:=0; repeat repeat i:=i+1; read (A[i]) ; until (i=n) or eoln or (A[i]=eot); readln until (i=n) or (A[i]=eot); а что дальше, как дописать??) |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запрос с условием отбора [Введите фамилию] | spets | Microsoft Office Access | 9 | 21.01.2014 02:02 |
Введите данные в массив о N числа туристов | Fantoms01 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.11.2008 12:44 |
Задачка за 100-200 | NSvirus | Фриланс | 2 | 12.11.2008 02:27 |
Как узнать какой текст выделен в текст поле | mogul82 | JavaScript, Ajax | 2 | 02.11.2008 16:32 |