IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> файлы, посмотрите пожалуста
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Процедура удвоение цифр..., А надо сделать чтоб удваивались ЧИСЛА, т.е. 45 у меня будет 810 а надо что было 90....помогите ...


Прикрепленные файлы
Прикрепленный файл  __________________.txt ( 437 байт ) Кол-во скачиваний: 245
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


ну сиго товарищи, никто не поможет?...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


?
***

Группа: Пользователи
Сообщений: 283
Пол: Мужской

Репутация: -  4  +


в твой процедуре преведена ерунда полная....
ты даже не привел тип файла какие они у тебя тектовые или типизированиые....
если тебе нужно в новом файле(и они типизированы) сохранять то делаеш просто


while not eof(f1) do
begin
read(f1,a);
a:=2*a;
write(f2,a);
end;



и все...

Сообщение отредактировано: amega -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


чувак... ты где ерунду увидел ...
uses crt;
var f1,f2:text;
st,b,a:string;
mn:set of char;
i,j,x,y,kol:byte;
cod:integer;
procedure vivod(var t:text);
begin
reset(t);
while not eof(t) do
begin
readln(t,a);
writeln(a);
end;
close(t);
end;
procedure double(var t : byte);
begin
mn:=['0'..'9'];
reset(F1);
rewrite(F2);
while not eof (F1) do
begin
readln(F1,a);
i:=1;
repeat
if a[i] in mn then
begin
b:=a[i];
val(b,j,cod);
j:=j*2;
str(j,b);
delete(a,i,1);
insert(b,a,i);
if j>=10 then i:=i+1;
end;
inc(i);
until i>length(a);
writeln(F2,a);
end;
close(F2);
end;
begin
clrscr;
assign(F1);
vivod(F1);
writeln;
y:=2;
assign(F2);
reset(F1);
kol:=0;
while not eof (F1) do
begin
readln(F1,st);
inc(kol);
j:=kol;
end;
writeln;
vivod(F2);
double(y );
vivod(F2);
readln;
end.


Добавлено через 5 мин.
а в твоем случае ничего не работает...

Сообщение отредактировано: Anton12 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Anton12 @ 17.05.2009 23:51) *
чувак... ты где ерунду увидел ...
Да везде. Начать с того - а чего ты хочешь? Ты можешь нормально условие поставить? Что у тебя в файле?
Короче, вроде как твоя процедура должна типа удваивать все встреченные цифры, что она делает, правда, странным и смешным образом (особенно мне понравился параметр t, который нигде не не используется).

Еще короче - если тебе надо что-то сделать, то и спрашивай про то, что тебе надо сделать. А разбирать идиотские программы, которые где-то там нашел, чтобы только понять, а чего же твоей душеньке угодно - на фига оно сдалось?

Напиши нормально условие. Тогда будет разговор по делу.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Задание: Описать процедуру:double ( t ), удваивающую в строке t каждую цифру;
Новое задание: Описать процедуру:double ( t ), удваивающую в строке t числа;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Anton12 @ 18.05.2009 7:55) *
Описать процедуру:double ( t ), удваивающую в строке t числа;

Вот как-то так попробуй:
  i:=0;
l:=0;
repeat
Inc(i);
if (i<=Length(t)) and (t[i] in ['0'..'9']) then begin
if l=0 then j:=i;
Inc(l)
end
else if l>0 then begin
Val(Copy(t,j,l),n,e);
Str(2*n,s);
Delete(t,j,l);
Insert(s,t,j);
l:=0;
i:=j+Length(s)
end
until i>Length(t);




--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


?
***

Группа: Пользователи
Сообщений: 283
Пол: Мужской

Репутация: -  4  +


Цитата
а в твоем случае ничего не работает...

послушай если ты неотличаеш текстовый файл от типизированого то эт твои проблемы...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name