Thảo luận Pascal nâng cao!

[hangdambao00]

Biến hóa 1 chút cái test tớ cho nhé:
9 9 9 9 9
9 5 100 2 9
9 8 8 8 9
9 2 2 2 9
9 8 8 8 8
---------------------------------Bài viết đã được trộn ---------------------------------

Chưa học đồ thị thì sao học hình học anh. Em học rồi nhưng không thích dùng đồ thị lắm nên thử xài QHD.

test này bạn cho có khác chi test kia, có đổ thêm nước vào được nữa đâu ???
kq vẫn rứa : 9

[nguyennam19]

Chưa học đồ thị thì sao học hình học anh. Em học rồi nhưng không thích dùng đồ thị lắm nên thử xài QHD.

Còn anh thì học QHĐ sau đó học tới hình học và cuối cùng là đồ thị.

[nanivodoi]

Code bài hệ thống xăng trên các đảo.

Uses Crt;
Const fi = 'DAO.INP'; fo = 'DAO.OUT';
Var F : Text;
    i, n, m, u, v, d, c, so : Integer;
    td : Array[1..2, 1..200] Of Integer;
    dau : Array[1..200] Of Boolean;
    tr, hd, kq : Array[1..200] Of Byte;

Procedure DocDuLieu;
Begin
        Assign(f, fi);
        Reset(f);
        Readln(f, n, m, u, v);
        For i := 1 To n Do
                Readln(f, td[1, i], td[2, i]);
        Close(f);
        FillChar(dau, SizeOf(dau), True);
        tr[1] := 0;
        so := 0;
        Assign(f, fo);
        Rewrite(f);
End;

Function KC(i, j : Integer): Real;
Var x, y : Real;
Begin
        x := td[1, i] - td[1, j];
        y := td[2, i] - td[2, j];
        kc := Sqrt(Sqr(x)+Sqr(y));
End;

Procedure Viet;
Begin
        While tr[c] > 0 Do
        Begin
                Inc(so);
                kq[so] := hd[c];
                c := tr[c];
        End;
        Inc(so);
        kq[so] := u;
        Writeln(f, so);
        For i := so Downto 1 Do Write(f, kq[i],' ');
        Close(f);
        Halt;
End;

Procedure Hangdoi;
Begin
        d := 1;
        c := 1;
        hd[1] := u;
        dau[u] := False;
        While d <= c Do
        Begin
                For i := 1 To n Do
                If dau[i] And (kc(i, hd[d]) <= m) Then
                Begin
                        Inc(c);
                        hd[c] := i;
                        dau[i] := False;
                        tr[c] := d;
                        If i = v Then Viet;
                End;
                Inc(d);
        End;
        Writeln(f, 'NO SOLUTION!');
        Close(f);
End;

BEGIN
        DocDuLieu;
        Hangdoi;
End.

[noithatdn]

bài em này !!!
ôn lại loang 1 tẹo !!!

const fi='DAO.INP';
      fo='DAO.OUT';
var f:Text;
    n,m,s,t:longint;
    kt:boolean;
    x,y,hd,dem,trc:array[1..200] of longint;
    dd:array[1..200] of boolean;
    a:array[1..200,1..200] of byte;
procedure docfile;
var i:longint;
    tg:longint;
begin
   assign(f,fi);
   reset(f);
   readln(f,n,m,s,t);
   tg:=s;
   s:=t;
   t:=tg;
   for i:=1 to n do readln(f,x[i],y[i]);
   close(f);
end;

procedure khoitao;
var i,j:longint;
begin
   fillchar(dd,sizeof(a),0);
   for i:=1 to n do
      for j:=1 to n do
         if sqrt(sqr(x[i]-x[j])+(sqr(y[i]-y[j])))<=m then
            begin
               a[i,j]:=1;
               a[j,i]:=1;
            end;
end;

procedure loang;
var d,c,u,v:longint;
begin
   kt:=true;
   fillchar(dd,sizeof(dd),true);
   d:=1;c:=1;
   hd[d]:=s;
   dem[s]:=0;
   dd[s]:=false;
   repeat
      u:=hd[d];
      for v:=1 to n do
         if dd[v] and (a[u,v]=1) then
            begin
               inc(c);
               hd[c]:=v;
               dd[v]:=false;
               trc[v]:=u;
               dem[v]:=dem[u]+1;
               if v=t then exit;
            end;
      inc(d);
   until d>c;
   kt:=false;
end;

procedure ghifile;
begin
   assign(f,fo);
   rewrite(f);
   if kt=false then writeln(f,'NO SOLUTION!')
   else
      begin
         writeln(f,dem[t]-1);
         repeat
            write(f,t,' ');
            t:=trc[t];
         until t=s;
         writeln(f,t);
      end;
   close(f);
end;

begin
   docfile;
   khoitao;
   loang;
   ghifile;
end.

[nuhoang]

test này bạn cho có khác chi test kia, có đổ thêm nước vào được nữa đâu ???
kq vẫn rứa : 9

Test đấy đổ thêm vào được mà, những ô 8 và 2 có thể cho nước tràn sang mà vẫn chưa tràn ra ngoài khu ruộng.
Anh Haso học hình trước đồ thị sao? Em thấy hình khó hơn mà. Nhưng thế cũng chẳng sao, có tiền bối chỉ dạy là tốt rồi.
NGHỈ DIỄN ĐÀN 1 TUẦN ÔN THI TỈNH (THỨ 3, 4 TUẦN SAU). HIC HIC NHỚ MỌI NGƯỜI LẮM.

[khanhnguyen12021]

Anh Haso có biết hàm theta không? Trong sách ghi là tính "góc" hợp bởi 2 điểm p1, p2 với phương ngang, tuy ko phải là góc chính xác, nhưng vẫn giữ nguyên thứ tự. Câu nè chẳng hiểu sách viết gì, anh biết ko giải thích cho em cái.
Mà cả phần xử lí bit nữa, mấy cái tắt, bật, đảo bit nữa, mới học qua chưa hiểu gì cả.

[linht1106k1]

Test đấy đổ thêm vào được mà, những ô 8 và 2 có thể cho nước tràn sang mà vẫn chưa tràn ra ngoài khu ruộng.

ý bạn là sao,
đổ nước cao tới 8 mà tràn được sang các ô cao 2 bên dưới àh ???
nói như thế thì cái test ban đầu liệu bạn có được đổ lên 5 ko ???
mà test sau này, muốn lan sang các ô 2 bên dưới thì nó phải đổ nước lên 9, mới vượt sang các ô 8 được chứ !!!
bạn muốn gì đây ???

[pesttykl]

Không đâu, bạn hiểu theo thực tế nhé, khi mực nước dâng tới 8 là bắt đầu tràn sang các ô 8, tràn sang ô 2 - chảy tới ô thấp nhất trước. NHư vậy thì nước vẫn sang được mấy ô 8 và 2. Thế mới hóc chứ. Tới giờ vẫn chưa làm được bài này test đúng 100%.
Sắp thi rồi mà còn nhiều vấn đề lơ mơ quá. Ai giúp mình cái hàm inside xác định 1 điểm có nằm trong 1 đa giác không với. Sao cài y như trong sách mà vẫn sai thế này.

[thomtomtit]

nếu thế thì bạn làm gì đổ nước lên 8 được, vì ko có cớ gì nước từ ô 8 tràn sang ô 2 được mà lại ko được tràn ra ngoài rìa !!!
và nếu thế thì cái test ban đầu bạn cũng đâu có được bơm lên 5, vì nó tràn ra rìa rồi còn đâu nữa

[tuanlucki]

Test đầu tiên coi như bỏ qua. Test thứ 2 mình cho là có các rìa đều là 9 nên thoải mái tràn qua 8 tới các ô nhỏ hơn mà chưa sợ tràn.