 Сокращение массива |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| mihas |
 27.08.2003 21:14
Сообщение
#1
|
|
Гость  |
??? Люди помогите зделать задачу: Дан одномерный массив с 10 элементами. Сжать массив, отбросив каждый второй элемент ( дополонительный массив не использовать )
|
 
|
|
| mvg |
27.08.2003 21:30
Сообщение
#2
|
 Новичок  Группа: Пользователи Сообщений: 36 Репутация:  0  |
а если вот так
Код ... var m:array[1..10] of ... i,j:word; begin .. read array ... j:=1; for i:=1 to 5 do begin m[i]:=m[j];j:=j+2;end; ... типа все.....(или задача не понята 8)) Сообщение отредактировано: volvo - 17.12.2004 13:43 -------------------- Да пребудет паскаль вовеки!
|
   |
|
| mihas |
28.08.2003 9:04
Сообщение
#3
|
|
Гость |
??? Привет, спасибо за ответ. Наверно так и надо. Сегодня праверю!!! Еще раз спасибо!
Слышь а ты не мог бы подумать еще над такой задачей: Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше - русских букв или цифр. |
|
|
|
| mvg |
28.08.2003 9:28
Сообщение
#4
|
|
Новичок Группа: Пользователи Сообщений: 36 Репутация: 0 |
а если попробовать вот что
Код Const Rus='АБВГДЕ....ЭЮЯабв....эюя';{..=ост. русские буквы} Num='0123456789'; Var Nr,Nb,i:longint; f:file of byte; s:string; Begin Nr:=0;Nb:=0; assign(f,'file.ext'); {имя файла} reset(f); repeat read(f,cool.gif; {!!!!! опиши B:byte;} for i:=1 to lenght(RUS) do if chr(b=RUS[i] then NR:=NR+1; for i:=1 to lenght(NUM) do if chr(b=NUM[i] then NB:=NR+1; until Eof(f) close (f); s:='Букв больше'; if nb=nr then s:='равное количество'; if nb<nr then s:='Цыфр больше'; writeln (s); ... видимо должно работать.... Сообщение отредактировано: volvo - 17.12.2004 13:45 -------------------- Да пребудет паскаль вовеки!
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.07.2025 15:09 |