Помощь - Поиск - Пользователи - Календарь
Полная версия: файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Anton12
Процедура удвоение цифр..., А надо сделать чтоб удваивались ЧИСЛА, т.е. 45 у меня будет 810 а надо что было 90....помогите ...
Anton12
ну сиго товарищи, никто не поможет?...
amega
в твой процедуре преведена ерунда полная....
ты даже не привел тип файла какие они у тебя тектовые или типизированиые....
если тебе нужно в новом файле(и они типизированы) сохранять то делаеш просто


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



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

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

Напиши нормально условие. Тогда будет разговор по делу.
Anton12
Задание: Описать процедуру:double ( t ), удваивающую в строке t каждую цифру;
Новое задание: Описать процедуру:double ( t ), удваивающую в строке t числа;
Lapp
Цитата(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);


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

послушай если ты неотличаеш текстовый файл от типизированого то эт твои проблемы...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.