Опишите процедуру double (f), удваивающие в файле f все четные числа.
Всем заранее спасибо ;D
Ivs надеюсь на твою помощь и других знатоков Паскаля....
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файлы, и работа сними |
Geroi |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 29 Репутация: 0 |
Вот такая проблемка.
Цитата(Задача 1) Код type myfile = file of integer; Опишите процедуру double (f), удваивающие в файле f все четные числа. Цитата(Задача 2) Задан текстовый файл 'a.txt'. Написать программу, которая утраивает значения слов, являющиеся четными числами. Как её вообще делать? с чего начать?!?!!?!?!? ??? Имеется в виду, что не создание файла Всем заранее спасибо ;D Ivs надеюсь на твою помощь и других знатоков Паскаля.... |
Ivs |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 209 Репутация: 0 |
Ладно хватит паливать друг друга матом не из-за чего...
Вот прога, но я её мало тестил так что могут (да скорее всего они и есть) - быть глюки Код program for_Geroi; Var i,j,code,Num2 : Integer; S,Num : String; f,fn : Text; Begin Assign(f ,'a.txt'); Reset(f); Assign(fn,'b.txt'); Rewrite(fn); while not(EoF(f)) do begin Readln(f,S); i:=1; while i<=length(S) do begin Num:=''; while (S[i] in ['0'..'9']) do begin Num:=Num+S[i]; Inc(i); end; if Num<>'' then begin Val(Num,Num2,code); if Num2 mod 2 = 0 then begin Num2:=Num2*3; Str(Num2,Num); end; Write(fn,Num); end; if NOT(S[i] in ['0'..'9']) then Write(fn,S[i]); Inc(i); end; Writeln(fn); end; Close(f); Close(fn); Erase(f); Rename(fn,'a.txt'); End. Прогу не комментировал так что если чего непонятно - спрашивай. -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
Текстовая версия | 6.05.2024 8:42 |