VPF::[Delphi] Импорт кода паскаля - Форум программистов

innocuous

Дата 30.5.2008, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.5.2008

Репутация: нет
Всего: нет

может кто-нибудь помочь с переделыванием это с паскаля на delphi?

Код


program p;
uses crt;

type
  matr=array [1..10,1..10] of real;
  vec=array [1..10] of real;
var
  mt:matr;    
  m2:matr;      
  v:vec;        
  r:vec;        
  nm:integer;   
  n,m:integer;  
  d:real;       


function opr(mt:matr;nm:integer):real;
var
  n,m,d:integer;
  s:real;       
  m2:matr;      
begin

  if nm=2 then begin
    s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1];
  end else begin

    s:=0;

    for d:=1 to nm do begin

      m2:=mt;
      for n:=d to nm do
        for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1];

      if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1)
        else s:=s-mt[nm,d]*opr(m2,nm-1);
    end;
  end;

  opr:=s;
end;

function input(var mt:matr):integer;
var
  x,y:integer;  
  nm:integer;   
  c:char;       
  n,m:integer;  
  pr:real;      
begin
  textcolor(15);
  textbackground(0);
  x:=1;y:=1;nm:=2;

  for n:=1 to 10 do for m:=1 to 10 do mt[n,m]:=0;
  repeat


    clrscr;
    for n:=1 to nm do
      for m:=1 to nm do begin
        if (n=x)and(m=y) then textbackground(1) else textbackground(0);
        gotoxy(n*8,m);
        writeln(mt[n,m]:7:3);
    end;
    textbackground(0);
    gotoxy(1,24);
    write(' +,- добавление, esc-выход, стрелки двигать');

    c:=readkey;
    if c=#0 then c:=readkey;
    case c of

      #72:if y>1 then y:=y-1;
      #80:if y<nm then y:=y+1;
      #75:if x>1 then x:=x-1;
      #77:if x<nm then x:=x+1;

      #13:begin
        gotoxy(x*8,y);
        write('         ');
        gotoxy(x*8,y);
        readln(mt[x,y]);
      end;

      '/':begin
        gotoxy(x*8,y);
        write('/        ');
        gotoxy(x*8+1,y);
        readln(pr);
        mt[x,y]:=mt[x,y]/pr;

        x:=x+1;
        if (x>nm) then begin
          x:=1;
          if (y<nm) then y:=y+1;
        end;
      end;
      '+':if nm<10 then nm:=nm+1;
      '-':if nm>2 then nm:=nm-1;
    end;
{ ‚ле®¤ Ї® ESC }
  until (c=#27);
  input:=nm;
end;

begin

  nm:=input(mt);

  d:=opr(mt,nm);
  writeln;
  if (d<>0) then begin

    writeln(' ‚ўҐ¤ЁвҐ ўҐЄв®а: ');
    for n:=1 to nm do read(v[n]);

    for n:=1 to nm do begin
      m2:=mt;
      for m:=1 to nm do m2[n,m]:=v[m];
      r[n]:=opr(m2,nm)/d;
    end;

    clrscr;
    writeln(' ‘ЁбвҐ¬ : ');
    for n:=1 to nm do begin
      for m:=1 to nm-1 do write(mt[m,n]:6:2,'*X',m:1,'+');
      writeln(mt[nm,n]:6:2,'*X',nm:1,'=',v[n]:6:2);
    end;
    writeln;
    writeln(' ђҐиҐЁҐ: ');
    for n:=1 to nm do writeln('X',n:1,' = ',r[n]:10:6);
  end else writeln(' ђҐиҐЁп Ґ бгйҐбвўгҐв! ');
  writeln;
  writeln(' Ќ ¦¬ЁвҐ ESC... ');
  repeat until readkey=#27;
end.

Alexeis

Дата 30.5.2008, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 30.5.2008, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 3
Всего: 329

создай в дельфи консольный проект, и туда вставь код

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »