Dimka
Новичок
|
   
Люди хэлп!!! Скажите пожалуйста в чем ошибка. Мне кажется что после записи в файл сдвиг происходит, если да то как можно испраить?
reset(f);
for i:=1 to n-1 do
begin
seek(f,i-1);read(f,z1);
for j:=i+1 to n do
begin
seek(f,j-1);read(f,z2);
writeln (z1.reys);
writeln (z2.reys);
readln;
if (z1.reys>z2.reys) then
begin
seek(f,j-1);write(f,z1);
seek(f,i-1);write(f,z2);
end;
end;
end;
close(f);
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 26 дек. 2006 20:25 | IP
|
|
Dimka
Новичок
|
Все, уже не надо!!! Если понадобиться код всей программы всегда пожалуйста.
|
Всего сообщений: 2 | Присоединился: июнь 2010 | Отправлено: 26 дек. 2006 21:12 | IP
|
|
SPILLER
Удален
|
1)Нужно составить программу на основе алгоритма Дейкстры,желательно с пояснениями.
2)нужно составить программу на основе алгоритмаПрима-Краскала.
БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 26 дек. 2006 22:11 | IP
|
|
bekas
Долгожитель
|
У Дейкстры, мне помнится, много алгоритмов было...
|
Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 26 дек. 2006 23:15 | IP
|
|
Guest
Новичок
|
Люди,будьте людьми,помогите,а то зачёт медным тазом
накроется.У меня две задачки,кто может отзовитесь,вот они:
1)
____y_____ ,при[x]+[y]<=1,x>=0
x+ _2____
___6+\/x_+1__
U={ [y-x]+\/x
2
_[x-y]*(1+sin_(x+y))_ ,при[x]+[y]>1,x<>0
2x
И вторая задача:
Задана последовательность x=(x1,x2,...x10).
Сформировать из неё одномерный массив Y,каждый элемент которого определяется по правилу:
____
\/_i-1_
Yk= \/i+1
где i-индексы положительных элементов массива Y.Если таковых не окажется,вывести фразу"искомых элементов нет".Полученный массив напечатать в столбик.
x={0.12,0.2,1,9.3,0.5,-4.8,-2.1,0.5,1.2,0.3}.
Вот эти злосчастные задачи
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 27 дек. 2006 3:00 | IP
|
|
KMA 
Долгожитель
|
 
Guest, kakue udeu??? Pushu vse chto znaesh, privodu kod, svoi muslu, togda tebe pomogyt (kak munumym ya). Unache, tebe pomogyt tol'ko za dengu, mogy u ya pomoch (toge za dengu). Prosto reshat' zadachy nukto ne zainteresovan.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 27 дек. 2006 3:09 | IP
|
|
Guest
Новичок
|
Идеи собственно есть,вот:
1)Program lab_2;
uses crt;
label 3;
var u,x,y,:real;
Begin
clrscr;
3:write('x=');read(x);
write('y=');read(y);
if(abs(x)+abs(y)>1)and(x<0)then begin write('решения нет');goto 3 end
else begin
write('net');
writeln;
goto 3;
end;
if(abs(x)+abs(y)<=1)and(x>=0)then u:=ln(x)+(ln(y))/(6+(sqrt(sqr(x)+1)))/abs(y-x)+(sqrt(x));
if(abs(x)+abs(y)>1)and(x<>0)then u:=abs(x-y)*(1+cos(x+y))/(2*ln(x));
writeln;
End.
Проблема:какой бы я не ввёл x,y сис. пишет решения нет(что я только не делал)
ну и поповаду второй задачки,вот идейка:
Program lab_5;
uses crt;
const x:array[1..10] of real=(0.12,0.2,1.0,9.3,0.5,-4.8,-2.1,0.5,1.2,0.3);
var y:array[1..10] of real;
k,x,y:integer;
Begin
clrscr;
k:=0;
for i:=1 to 10 do
if(x>0)then
begin
k:=k+1;
y[k]:=sqrt(i-1)/sqrt(i+1);
end;
if(k=0)then writeln('no elements of array y')
else
for i=1 to k do writeln('y[',k:2,']=',y[k]:5);
end.
Пишет что ,я x дублирую,что мол x уже назначен,так он то мне нужен и там и там.Что делать с задачами,помогите,помогите!!!
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 27 дек. 2006 19:08 | IP
|
|
KMA
Долгожитель
|
Guest переделай запись в разделе описаний, на следующую:
type mas=array [1..10] of real;
const x: mas=(0.12, 0.2, 1.0, 9.3, 0.5, -4.8, -2.1, 0.5, 1.2, 0.3);
var y: mas ;
k, x, y: integer;
А в первой у тебя проблема, надо одно из goto 3 убирать. Подумай сам, какое.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 27 дек. 2006 21:26 | IP
|
|
Guest
Новичок
|
KMA я зделал как ты сказал,но он всё равно пишет что x дублируется
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 27 дек. 2006 22:33 | IP
|
|
KMA
Долгожитель
|
type mas=array [1..10] of real;
const x: mas=(0.12,0.2,1.0,9.3,0.5,-4.8,-2.1,0.5,1.2,0.3);
var y: mas;
k, i: byte;
Begin
k:=0;
for i:=1 to 10 do
if(x[ i ]>0)
then
begin
k:=k+1;
y[k]:=sqrt(i-1)/sqrt(i+1);
end;
if(k=0)then writeln('no elements of array y')
else for i:=1 to k do writeln('y[',i:2,']=',y[ i ]:5);
readLn;
end.
Блин, не мог переписать по нормальному??? У тебя твой x и как константа, и как какая-то перменная типа integer. Понятное дело что дублируются. Короче я те дал код, вот он работает.
(Сообщение отредактировал KMA 27 дек. 2006 23:29)
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 27 дек. 2006 23:29 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
