 Одномерный символьный массив., Описать символьный массив длиной 80 символов. Массив просмотреть до т |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| arcan |
 26.11.2006 17:38
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация:  0   |
Помогите пожалуйста.Описать символьный массив длиной 80 символов.
Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слово максимальной длины. Вот у меня есть код программ. Код program pr; var maxlen, maxpos, lastsp, curlen, i, n: Integer; str: String; begin WriteLn('Vveidite stroku : '); ReadLn(str); n := Length(str); maxlen := 0; lastSp := 0; curlen := 0; for i:=1 to n do begin if str[i] = ' ' or str[i] = '.' then begin if curlen > maxlen then begin maxlen := curlen; maxpos := lastsp + 1; end; curlen := 0; lastsp := i; else Inc(curlen); end; if str[i] = '.' then Break; end; if maxlen > 0 then WriteLn('Stroka s max.dlinoj = ', Copy(str, maxpos, maxlen)) else WriteLn('Indjuk, ti vvel pustuju stroku'); ReadLn; end. Поправте его, чтобы было связано с массивами.А то со стрингом, лабу не примет(( Сообщение отредактировано: arcan - 26.11.2006 17:39 |
   |
 
|
| klem4 |
26.11.2006 17:49
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
в var вместо str: String; описывай массив str: array [1..80] of char;
ну и заменяй ввод и вывод
readln(n);
for i := 1 to n do readln(str[i]);
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| arcan |
26.11.2006 18:00
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 26.11.2006 17:49)  в var вместо str: String; описывай массив str: array [1..80] of char; ну и заменяй ввод и вывод
readln(n);
for i := 1 to n do readln(str[i]);
Так я и делал,только не получается.Поэтому и решил обратиться за помощью. |
|
|
|
| volvo |
26.11.2006 18:04
Сообщение
#4
|
|
Гость |
Ты сначала программу со строками сделай нормально, чтобы она хотя бы компилировалась, а потом будешь исправлять... У тебя же в программе структура полностью нарушена...
|
|
|
|
| arcan |
26.11.2006 19:04
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 26.11.2006 18:04) Ты сначала программу со строками сделай нормально, чтобы она хотя бы компилировалась, а потом будешь исправлять... У тебя же в программе структура полностью нарушена... Не понял.Измени пожалуйста. |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 0:23 |