Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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.  

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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 убирать. Подумай сам, какое.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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)

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 27 дек. 2006 23:29 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com