динамические переменные

@киб · Регистрация: 11.05.2010

Author24 — интернет-сервис помощи студентам

1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g наименьшое из значений компонент с непарными номерами файла f.
2. Дано число к и текстовый файл. Уничтожить из файла строку с номером к (строки нумеруются от 0). Если строки с таким номером нет, то оставить файл без изменений.
3. Дан текстовый файл f, каждое слово которого видокремлено от других символом пробела. Записать в файле g, в алфавитном порядке, все слова длиной у n символов.

Добавлено через 1 минуту
1 задача. что-то делал но не получаеться

Pascal

const l=20;
var
f:file of real;
p,n,n1:string;
a:array[1..l] of integer;
x,m:real;
i,j:integer;
begin
writeln('Введiть шлях до файлу');
readln(p);
writeln('Введiть iмя вхiдного файлу');
readln(n);
randomize;
for j:=1 to l  do
write(f,random(l));
writeln('Введiть iмя вихiдного файлу');
readln(n1);
assign(f,p+'\'+n);
i:=1;
read(f,m);
while not eof(f) do
begin
read(f,x);
i:=i*(-1);
if i=1 then
begin
if x<m then m:=x;
end;
end;
close(f);
assign(f,p+'\'+n1);
write(f,m);
close(f);
end.

А можна как то зделать что бы путь не вводить?

Добавлено через 58 секунд

Pascal

Program z2;
var
k,i:integer;
f,f1:text;
p,n:string;
begin
writeln('Введiть значення k');
read(k);
writeln('Введiть шлях до файлу');
read(p);
writeln('Введiть iмя файлу');
read(n);
assign(f,p+'\'+n);
reset(f);
assign(f1,p+'\tmp.tmp');
rewrite(f1);
i:=0;
while not eof(f) do
begin
readln (f);
if k<>i then writeln(f1);
i:=i+1;
end;
close(f);
close(f1);
assign(f,p+'\'+n);
erase(f);
assign(f1,p+'\tmp.tmp');
rename(f1,p+'\'+n);
close(f1);
end.

вторая задача тажа проблема((((

@thexqn · 11.05.2010, 20:22

Чтобы не вводить путь - AssignFile(f, 'имя файла');
Только вайл положите в папку с программой.

Добавлено через 6 минут
1)

Pascal

const l=20;
var
f, f1:file of real;
p,n,n1:string;
a:array[1..l] of integer;
x,m, tmp:real;
i,j:integer;
begin
 randomize;
 assign(f,'000');
 rewrite(f);
 for j:=1 to l do
 tmp := random(l);
 write(f, tmp);
 Close(f);
 i:=1;
 reset(f);
 read(f,m);
 while not eof(f) do
  begin
   read(f,x);
   i:=i*(-1);
   if i=1 then
     begin
      if x<m then m:=x;
     end;
end;
close(f);
assign(f1,'111');
rewrite(f1);
write(f1,m);
close(f1);
writeln(m);
readln
end.

@киб · 11.05.2010, 20:41 **[ТС]**

но программа не работает

Pascal

const l=20;
var
f:file of real;
p,n,n1:string;
a:array[1..l] of integer;
x,m:real;
i,j:integer;
begin
randomize;
for j:=1 to l  do
write(f,random(l));
assign(f,1.txt);
i:=1;
read(f,m);
while not eof(f) do
begin
read(f,x);
i:=i*(-1);
if i=1 then
begin
if x<m then m:=x;
end;
end;
close(f);
assign(g,2.txt);
write(g,m);
close(g);
end.

Добавлено через 32 секунды
час попробую

Добавлено через 12 минут
работает, но почему в файл не записует?

Добавлено через 2 минуты
там нужно что бы результат в файлу g записался

@thexqn · 11.05.2010, 23:14

Ну а это что?

Pascal

1	write(g,m);

@киб · 12.05.2010, 20:52 **[ТС]**

компилюеться, но программа не роботает!

Pascal

var f,g,e:text;
i,j,k,l,p,p1,m,n,u:integer;
s,s1,pr:string;
b:array of string;
begin
assign(f,'c:\f.txt');
assign(g,'c:\g.txt');
assign(e,'c:\e.txt');
 
reset(f);
rewrite(g);
writeln('Введiть довжину слова:');
readln(n);
l:=0;
 
while not(eof(f)) do begin
readln(f,s);
for i:=1 to length(s) do begin
 
if i=1 then begin
for j:=1 to length(s) do begin
if s[j]=''then begin
pr:=copy(s,l,j-1);
if length(pr)=n then begin
writeln(g,pr);
l:=l+1;
end;
break;
end;
end;
end;
 
if s[i]='' then begin
 for j:=i+1 to length(s) do begin
  if(s[j]='') or (j=length(s)+1) then begin
  pr:=copy(s,i+1,j-i-1);
  if length(pr)=n then begin
  writeln(g,pr);
  l:=l+1;
  end;
  break;
  end;
  end;
  end;
  end;
  end;
 
 
  close(f);
  close(g);
 
 reset(g);
 setlength(b,l-1);
 i:=0;
 
while not(eof(g)) do begin
readln(g,s);
b[i]:=s;
i:=i+1;
end;
 
j:=0;
for u:=0 to l-1 do
writeln(b[u]);
 
for p:=(l-1) downto 1 do begin
for m:=0 to p-1 do begin
if b[m]>b[m+1] then begin
s1:=b[m];
b[m]:=b[m+1];
b[m+1]:=s1;
end;
end;
end;
 
writeln;
for u:=0 to l-1 do
writeln(b[u]);
 
rewrite(e);
 
for u:=0 to (l-1) do begin
writeln(e,b[u]);
end;
 
close(e);
readln;
end.

	12.05.2010, 20:52

Опции темы