удаление из файла строки min длины, и модуль обработки последовательности символов |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
удаление из файла строки min длины, и модуль обработки последовательности символов |
Лысый |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
1.Пусть дан текстовый файл. Удалите из этого файла строку минимальной длины.
2.Написать модуль, содержащий две процедуры: 1) пусть вводится последовательность не более 10 символов, признаком конца ввода служит точка. Определите сколько прописных букв латинского алфавита входит в эту последовательность; 2) Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов. Помогите па-па-па-п-пожалуйста. Сообщение отредактировано: мисс_граффити - |
GLuk |
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: 0 |
А что у тебя конкретно Лысый не получается??
Или все не получается? от Oleg_Z И писать 2 раза одно и тоже не надо! Сообщение отредактировано: Oleg_Z - |
Лысый |
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Если можно, то пожалуйста сейчас:
Написать модуль, содержащий две процедуры: 1) пусть вводится последовательность не более 10 символов, признаком конца ввода служит точка. Определите сколько прописных букв латинского алфавита входит в эту последовательность; 2) Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов. Горит зачёт. P.S С прежним ошибочка вышла. P.P.S "Помогая друг другу, мы справимся с любыми трудностями!" Может когда подрасту - подпишусь под этой строкой. Фотка просто бомба!! Сообщение отредактировано: Лысый - |
Altair |
Сообщение
#4
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
>>>Пусть дан текстовый файл. Удалите из этого файла строку минимальной длины.
Вот решение Код Var f,ff:text; i:word; fn,s:string; maxst:byte; nm:word; nmin:word; begin maxst:=255; Writeln('File name '); Readln(s); Assign(f,s); Reset(f); While not EOF(f) do begin inc(nm); readln(f,fn); If ORD(s[0])<Maxst then begin maxst:=ord(s[0]); nmin:=nm; end; end; nm:=0; Close(f); {теперь строка минимальная имеет номер nmin} Assign(ff,'temp.dat'); Reset(f); rewrite(ff); while not eof(f) do begin inc(nm); readln(f,fn); If nm<>nmin then writeln(ff,fn); end; Close(f); Close(ff); Erase(f); rename(ff,s); End. >>>Написать модуль, содержащий две процедуры: >>>1) пусть вводится >>>последовательность не более 10 символов, признаком конца ввода служит точка. >>>oпределите сколько прописных букв латинского алфавита входит в эту >>>последовательность; >>>2) Замените каждый элемент массива средним арифметическим всех предшествующих >>>ему элементов. Код Unit test; INTERFACE const maxk=15; Type massivType=array[1..maxk] of integer; procedure 1(var b:byte); procedure 2(var b:massivType; kolelmas:integer); IMPLEMENTATION uses crt; procedure 1; var c:byte; s:string; max:byte; begin s:=''; repeat c:=ORD(readkey); s:=s+CHR(c) until c=46; For c:=1 to ord(s[0]) do If (ord(s[c])>64) and (ORD(s[0])<91) then inc(max); b:=max; end; Procedure 2(var b:massivType; kolelmas:integer); var i,k:integer; sum,sa:Integer; begin for i:=1 to kolelmas do begin for k:=1 to i-1 do sum:=sum+b[k]; sa:=rtunc(sum/k); b[i]:=sa; end end; Begin End. Цитата Фотка просто бомба!! Автопортрет. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Catty |
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Где этот автопортрет??
Покажите мне .... ..я тоже хочу посмотреть!!! -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
Altair |
Сообщение
#6
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
[offtop]
Чуть ниже надписи Oleg_Z есть мой портрет. А может это фото. Давно это было, уже и не вспомню. Это меня Френк Хориган фотографировал. Мы друзьями были, пока этом му*** избранный не пришел к нам в Анклав и не убил его. [/offtop] -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Лысый |
Сообщение
#7
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Да-а, давненько я у вас не появлялся. Sorry всем, кому не ответил.
Попытаюсь загладить вину. ОгрОмнОе спасибо всем тем, кто откликнулся на мою просьбу и принял участие в моей нелёгкой студенческой жизни. Я смотрю, вы продвинулись по служебной лестнице. С новыми званиями! Как вы это отмечаете? Уж не по старому ли солдатскому обычаю!? Oleg_Z, ты верно догадался, это то самое фото, но как я успел заметить ты изменился. Это фото тебе больше подходит: вроде как Вещий твой тёзка. Catty, а ты не меняешься. В чём секрет? Может - в каких-нибудь чудодейственных кремах? Если не ломает, ответьте. Буду :P … очень. |
BlackShadow |
Сообщение
#8
|
Гость |
У Catty пол такой... У неё менятся удаётся только до достижения совершенства, а потом что-то как-то и подвисаеть... :D
|
APAL |
Сообщение
#9
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Переместить что ли тему в свободное общение? :P
-------------------- |
BlackShadow |
Сообщение
#10
|
Гость |
Наверно так будет проще...
|
Текстовая версия | 23.12.2024 20:35 |