Cho tứ giác ABCD nội tiếp (O;R). AB =  a, BC = b, CD = c, DA = d. Cho biết  Chứng minh ABCD là hình vuông

Ở đoạn Cho biết ấy..... là sao vậy bạn ,,mình không hiểu ...

Ông ấy đạt được giải Abel thế sao không thấy TV họ nói nhỉ ??

Ý bạn là sao ??/ mà giới hạn về cái gì chứ @@

Bạn làm đúng ý mình rồi đó.

Chuẩn hóa là làm tất cả các việc để đưa ra xau hoàn thiện nhất.

Vi dụ: Xau la:'     nGuyeN       tUNg     lAm       ' thì sau khi chuẩn hóa sẽ là:'Nguyen Tung Lam'.

Làm chuẩn đấy (Mất 2 ngày liền  chứ copy ở đâu được ) Ông xem thử đi, nếu có j góp ý thì cứ nói

Xài tệp vb à ?

Mà bạn viết ý tưởng nghe xem nha... .

chi tiết vào...

Làm chuẩn đấy (Mất 2 ngày liền  chứ copy ở đâu được ) Ông xem thử đi, nếu có j góp ý thì cứ nói

Bài có vấn đề hay do máy zậy mà sao mình copy vào ct free pascal mà chạy thì nó báo lỗi:

exited with

exitcode=2

Còn cái này để mai tôi up cho. Giờ tui phải ôn bài mai kiểm tra 

Haha,,ta làm được rồi      ....nhuuwng mà sao cái ct thì chạy được trên free mà không chạy được trên turbo,,,,lý giả mình vs ....

Bạn lý giải hộ rồi mình post bài lên cho ...

yahaha, cứ giữ thái độ đó đi, 

Còn lâu....

mình làm bằng turbo pascal mà

À vậy để mình tải turbo về chạy

Bài này tôi làm được rồi .Up lên để cho mọi người tham khảo

Bài làm nè:

  PROGRAM Sinh_hoan_vi;

CONST

  MAX = 100;

  INP = 'bai1.inp';

  OUT = 'bai1.out';

TYPE

  STR = array[0..max] of char;

VAR

  s   :str;

  f,g :text;

  n   :longint;  { so luong tu}

  time:longint ;

 

PROCEDURE Nhap_dl;

Begin

  Assign(f,inp);

  Assign(g,out);

  Reset(f);

  Rewrite(g);

  Readln(f,n);

End;

 

PROCEDURE DocDay(var s:str);

Begin

    Fillchar(s,sizeof(s),chr(0));

    While not eoln(f) do

      begin

        s[0]:=chr(ord(s[0])+1);

        read(f,s[ord(s[0])]);

      end;

End;

 

PROCEDURE VietDay(s:str);

Var i   :word;

Begin

  For i:=1 to ord(s[0]) do Write(g,s[i]);

End;

 

PROCEDURE Sap_xep(l,r:word);{ giai thuat Quicksort}

Var i,j    :word;

    tg,tam :char;

Begin

  i:=l;j:=r;

  tg:=s[(l+r) div 2];

  Repeat

     While ord(s[i]) < ord(tg) do inc(i);

     While ord(s[j]) > ord(tg) do dec(j);

     If i<=j then

       begin

          tam:=s[i];

          s[i]:=s[j];

          s[j]:=tam;

          inc(i);

          dec(j);

       end;

  Until i>j;

  If j>l then Sap_xep(l,j);

  If i<r then Sap_xep(i,r);

End;

 

PROCEDURE Sinh_hv(s:str);

Var vti,vtj,i,j:word;

    stop       :boolean;

    tam        :char;

Begin

  Writeln(g);

  VietDay(s);

  Repeat

     Stop:=true;

     For i:= ord(s[0]) downto 2 do

       If s[i] > s[i-1] then

         begin

            vti:=i-1;

            stop:=false;

            For j:=ord(s[0]) downto vti+1 do

              begin

                If (ord(s[j])>ord(s[vti])) then

                  begin

                     vtj:=j;

                     break;

                  end;

              end;

            tam:=s[vtj];

            s[vtj]:=s[vti];

            s[vti]:=tam;

            For j:=1 to ((ord(s[0]) - (vti+1))+1) div 2 do

              begin

                tam:=s[vti+j];

                s[vti+j]:=s[ord(s[0])-j+1];

                s[ord(s[0])-j+1]:=tam;

              end;

            Writeln(g);

            VietDay(s);

            break;

         end;

  Until stop;

End;

 

PROCEDURE Xu_ly;

Var i:longint;

Begin

  For i:=1 to n do

    begin

        DocDay(s);

        readln(f);

        Sap_xep(1,ord(s[0]));

        Sinh_hv(s);

        Writeln(g);

    end;

  Close(f);

  Close(g);

End;

 

BEGIN

  Nhap_dl;

  Xu_ly;

END.

Dài vãi...... .

Đây là làm được hay copy zậy

Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.

Code:

Uses Crt;

Code:

Program Bo_so_trung;
   Const
      Max=100;
   Var
   a:Array[1..Max] Of Integer;
   i,j,k,n:Integer;
Begin
   Writeln('XOA BO CAC SO TRUNG NHAU');
   Writeln('------------------------');
   Writeln;
   Write('-Nhap so phan tu mang: ');
   Readln(n);
   For i:=1 To N Do
      Begin
         Write('-Phan tu A[',i,']= ');
         Readln(a[i]);
      End;
   i:=2;
   While i <= N Do
      Begin
         j:=1;
         While a[j] <> a[i] Do
            j:=j+1;
         If j < i Then
            Begin
               For k:=i to n-1 Do
                  a[k]:= a[k+1];
               n:=n-1;
            End
         Else
            i:=i+1;
      End;
   Writeln;
   Write('-Mang con lai: ');
   For i:=1 to n Do
      Write(a[i]:8);
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc ');
   Readln
End.

Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Code:

program gt;

var d,m,y,n:integer;

Function      Songay(thang,nam: Integer):Integer;
Var             sn:Integer;
Begin
       Case thang of
                1,3,5,7,8,10,12 : sn:= 31;
                4,9,11             : sn:= 30;
                2:   If  (nam MOD 4 = 0) Then
                           sn:= 29
                      Else
                            sn:= 28;
        End;
        Songay:= sn;
End;
BEGIN
     Writeln('Nhap ngay thang nam');Readln(d,m,y);
     Writeln('Nhap N');Readln(N);
     d:=d+N;
     While d > Songay(m,y) Do
     Begin
         d:= d - Songay(m,y);
         m:= m+1;
         IF m > 12 Then
         Begin
              m:= 1;
              y:= y + 1;
         End;
    End;
Writeln('Ket qua ',d,'/',m,'/',y);
Readln;
END.

Dãy FIBONACI là dãy được xác định như sau: F(0) = 0; F(1) = 1 và F(n) = F(n-1) + F(n-2) với n = 2, 3...

Ví dụ: Với M=10 thì các số FIBONACI nhỏ hơn M là: 0, 1, 1, 2, 3, 5, 8. Số 5 là số nguyên tố lớn nhất trong các số FIBONACI nhỏ hơn M. Vậy cần đưa ra màn hình dòng thông báo kết quả: Số cần tìm là: 5.

Viết CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n phần tử.
var
  n,i,q,k,p:integer;
  a,b:array [1..1000] of integer;
begin
  write('n= ');readln(n);
  for i:=1 to n do
    begin
      write('a[',i,']= ');
      readln(a[i]);
    end; 
  write('Xoa pt co vi tri la: ');readln(p);
  q:=0;
  for i:=1 to n do
    if q<>p then
      begin
        inc(q);
        b[q]:=a[i];
      end;
  writeln('Mang sau khi xoa la: ');
  for i:=1 to q do
    write(b[i],' ');
  readln
end.

Hai số m,n gọi là bạn của nhau nếu tổng các ước của m bằng n và ngược lại.Tìm tất cả các số là bạn của nahu và nhỏ hơn 10001.

Ý tưởng: Thay vì chạy 2 vòng lặp để xét m và n, ta có thể chỉ cần chạy 1 vòng lặp kiểm tra xem m và uoc(m) có là bạn của nhau không.

PROGRAM timban;
FUNCTION uoc(k:INTEGER):longint;
VAR i,tong:INTEGER;
BEGIN
tong:=0;
FOR i:=1 TO k DIV 2 DO
IF k MOD i =0 THEN tong:=tong+i;
uoc:=tong;
END;
VAR m:longint;
BEGIN
for m:= 1 to 10001 do
   if uoc(uoc(m)) = m then writeln(m, ' va ', uoc(m),' la ban cua nhau');
readln
END.

Nhập vào 1 số tự nhiên n* và nhập vào m, sau đó tính tổng m các số tận cùng của n.

vd: n = 365 m =2 tổng = 5+6=11.
Cách 1:  
 

Cách 2: Sử dụng xâu: Xâu giúp lưu trữ thoải mái hơn kiểu số nguyên, nên ta có thể khái báo N có ở string thay vì Integer. Như vậy, ở những trường hợp lớn (vd N bao gồm 100 chữ số chẳng hạn) thuật toán vẫn có thể hoạt động bình thường. 

P/s: Bác nào thấy được thì mình xin ít     nhé  .

Dưới đây là đề và code của các bài pascal, các bạn có thể tham khảo.

À hay bài này phải tìm tìm các chữ số sau n! ?

Này,,, bạn vào gmail mình chat cho dễ

À! Nhân tiện cho hỏi 1 bài về xâu:

Bạn phải viết ct đưa ra tất cả các từ có thể có phát sinh từ 1 tập các chữ cái.

VD\

    .INP                                                 .OUT

    Abc                                                   abc

                                                             acb

                                                             bac

                                                             bca
                                                             cab

                                                             cba

Làm tương tự với cả xâu Acba nha 

Bài này sao giống bài của uyennhi thế....

Mà bài này mình cũng làm rồi nhưng còn 1 bước nữa để hoàn thiện, đó là làm sao để xoa các từ giống nhau trong 1 mảng <vì mình đưa các từ vào trong 1 mảng kiểu xâu mà>.

---->Khi nào làm xong thì post lên cho.

code của bạn ngây thơ vãi      . Muốn tìm hiểu vấn đề này có thể vào page qvluom, có công thức tổng quát cho nó.

Sao có ý kiến à....

Nếu vậy bạn nois ý tưởng xem nào 

BT pascal:

Bài 1 (3 điểm): Hai số tự nhiên n, m được gọi là nguyên tố tương đương nếu chúng có chung các ước số nguyên tố. Hãy viết chương trình nhập vào hai số n, m và kiểm tra chúng có là nguyên tố tương đương với nhau hay không.

Ví dụ: số 75 và số 15 là nguyên tố tương đương vì chúng có cùng các ước số nguyên tố là 3 và 5.

Bài 2 (3 điểm): Cho hệ phương trình bậc nhất hai ẩn:

      (I)

Hãy viết chương trình giải hệ phương trình trên, đồng thời xác định vị trí tương đối của hai đường thẳng d: ax+by=c và d’=a’x+b’y =c’ đã tạo nên hệ phương trình (I).

Đề:  Tìm chữ số sau số 0 của N!

Ý tưởng:
- Tính n!
- Chuyển kq của n! sang xâu
-Chạy xâu,nếu s[i]=0 thì viết ký tự thứ i+1 ra và thoát ra khỏi vòng lặp.
Code:
program gt;
uses crt;
var i,n,j,k,l:integer;
s,s1,s2:string;
begin
clrscr;
write('Nhap n=');readln(n);
t:=1;
for i:=1 to n do
t:=t*i;
str(t,s);
write('So sau so 0 cua ',n,'! la: ');
for i:=1 to length(s) do
if s[i]='0' then 
begin
write(s[i+1]);
break;
end;
readln
end.
 

Sao ở đây đông vui thế mà ở cái topic mình lập ra thì chẳng có ai tham gia thế ???

Mình nghĩ nếu 1/0 không tồn tại rồi thì $\dfrac{1}{\frac10}$ cũng không tồn tại đâu

Ừ bạn nói có lý thật.

* Phân tích đề:

Viết phương trình tính tổng S = 2 + 4 + 6 + 8 +...+ 2N

----> viết chương trình chứ bạn.

Code:

program tt;

uses crt;

var j,k,i,n:integer;

s:real;

begin

clrscr;

repeat

write('Nhap n=');readln(n);

if n>=1 then break;

writeln('Hay nhap n>=1');

until false;

s:=0;

for i:=1 to n do

s:=s+2*i;

writeln('Tong: ',s:4:2);

readln

end.

------- Ok rồi đó bạn -----------

hai cái này có liên quan ạ?

ngày này có sự kiện gì đặc biệt vậy ??

lại cho hỏi 1 bài nữa

 

Bài 2: (3,0 điềm) Xóa số                                               

Cho một số tự nhiên có n chữ số a = a₁a₂.. a_n với a_iÎ{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}           i = 1..n. Hãy tìm cách xoá bỏ m chữ số của a sao cho số thu được sau khi xoá m chữ số thì số thu được là nhỏ nhất.

Dữ liệu: vào từ file BAI2.INP có cấu trúc:

-   Dòng đầu ghi hai giá trị n, m cách nhau ít nhất một dấu cách. (1<= N <= 30)

-   n dòng tiếp theo ghi các chữ số của a theo trình tự từ trái qua phải.

Kết quả: ghi ra file BAI2.OUT gồm:

-   M dòng đầu tiên mỗi dòng chứa một chỉ số của số bị xoá trong số a ban đầu.

-   Dòng cuối cùng ghi ra số còn lại sau khi xoá, nếu là số có chứa số 0 ở đầu thì số 0 đó được coi là tự động được bỏ.

 

VD1:a = 1200123

Bài 1.inp                                                                    bài 1.out

 

7 2                                                                              1

1                                                                                 2

2                                                                                 123

0

0

1

2

3

 

VD2:a =  321987

 

Bài 1.inp                                                 bài 1.out

 

6 3                                                               1

3                                                                  2

2                                                                  4

1                                                                  187

9

8

7

 Cập nhập: Ở dòng output thi M dòng đầu tiên ghi vị trí của số đã xóa chứ không phải là số đâu nhá nên mọi người đừng nhầm(Làm nhanh hộ nha )

Program zzk;

uses crt;

var f,f1:text;

i,n,j,k,l,p:longint;

a,b,c,d:array[1..10000] of longint;

begin

clrscr;

assign(f,'b1.inp');

reset(f);

i:=0;

while not eof(f) do

begin

read(f,x);

i:=i+1;

a[i]:=x;

end;

close(f);

assign(f,'b1.out');

rewrite(f);

n:=a[1];

m:=a[2];

max:=a[3];

p:=n-m;

for i:=3 to n do

if (a[i]<max)and(a[i]<>0)and(n-i>=p) then max:=a[i];

----- đang làm giở chưa xong ...---------------

 

Câu 1 mình cho sai đề là đúng rồi (cảm ơn bạn). Còn câu 2 thì bạn phải đọc kĩ đề chứ

 

Bài 1 : Tính tổng các chữ số trong xâu kí tự

vd : ngày12thang8nam83 ----> Tổng=12+8+83=103

 

Bài 2 : Cho 1 mảng gồm các số nguyên, hãy đưa ra mảng số nguyên tố gần của các số nguyên đó

(TH tìm được 2 số nguyên tố gần với số trong mảng thì đưa ra số nguyên tố gần bé hơn)

vd: Cho mảng ban đầu

1 6 5 15 10 21

Kết quả hiển thị của các số nguyên tố gần của mảng ban đầu là : 2 5 13 11 19

 

* Phân tích đề:

- Bài 1:

+ Đề y/c là tính tổng các chữ số vậy mà ở ví dụ thì lại tính tổng các số !

+ Nếu là tính tổng các số thì cần thêm điều kiện các số cách nhau bởi 1 ký tự  (Cho phù hợp, chứ nếu các số gần nhau thì tình tổng làm gì nữa ?).

+ Nếu là tính tổng các chữ số thì phải cho ví dụ rõ ràng, chính xác !

- Bài 2:

+ Ở đoạn : (vd: Cho mảng ban đầu

 

1 6 5 15 10 21

Kết quả hiển thị của các số nguyên tố gần của mảng ban đầu là : 2 5 13 11 19) thì theeo mình ví dụ sai:

+ Theo mình cái đúng là thế này: 2 5 3 13 11 19   hoặc  2 5 7 13 11 19.

Cho nên bạn transontung nếu ra đề thì cần phải cẩn thận .

----> Nếu bạn muốn hỏi bài thì nên vào chủ đề Ai muốn hỏi bài tập thì vào đây đó là chủ đề do mình lập nên khi đăng bài nếu có thể thì mình sẽ giúp . Cảm ơn.

 

*Bài 1:

program b1;

uses crt;

var s,s1,s2:string;

i,n,j,k,l,p,t:integer;

begin

clrscr;

write('Nhap xau:');readln(s);

s1:='';

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then s1:=s1+s[i];

for i:=1 to length(s1) do

begin

val(s1[i],n,l);

t:=t+n;

end;

writeln('Tong: ',t);

readln

end.

*bai 2:

program bg;

uses crt;

var i,n,j,k,l,p:integer;

a,b:array[1..1000] of integer;

function nto(n:integer):boolean;

var i,s:integer;

kt:boolean;

begin

kt:=false;

s:=0;

for i:=1 to n do

if n mod i=0 then s:=s+1;

if s=2 then kt:=true;

nto:=kt;

end;

function nt(n:integer):integer;

var i,j,k,l,v,u,z,x:integer;

begin

k:=n;

z:=n;

repeat

n:=n-1;

if nto(n) then begin

l:=n;

break;

end;

until nto(n);

repeat

k:=k+1;

if nto(k) then begin

p:=k;

break;

end;

until nto(k);

v:=z-l;

u:=k-z;

if nto(z) then nt:=z else

if u<v then nt:=k else

if u>=v then nt:=l;

end;

begin

clrscr;

write('Nhap so pt:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do

if a[i]<>1 then

b[i]:=nt(a[i]) else b[i]:=2;

write('Day la:');

for i:=1 to n do

write(b[i],'    ');

readln

end.

P/s: chạy trên tubor pascal thì very good nhưng chạy trên free pascal thì bị lỗi ((Ko biết tại sao))

Yêu cầu của cái đề 2 nó chỉ là:

Bài 2 : Cho 1 mảng gồm các số nguyên, hãy đưa ra mảng số nguyên tố gần của các số nguyên đó

(TH tìm được 2 số nguyên tố gần với số trong mảng thì đưa ra số nguyên tố gần bé hơn)

vd: Cho mảng ban đầu

1 6 5 15 10 21

Kết quả hiển thị của các số nguyên tố gần của mảng ban đầu là : 2 5 13 11 19

 

Đề nó yêu cầu là tim số nguyên tố gần với phan tử a[i] nhất. Lấy Vd ở trên là a[i]=15 thì số nguyên tố gần với nó la 13 và 17 nhưng đề yêu cầu  lấy số nguyên tố nhỏ hơn nên sẽ chi lấy số 13 thôi.(nếu còn j ko hieu đề thì cứ nói).

Vậy thằng số 5 ở đề  chạy đi đâu rồi ?

Dàng lẽ là kq= 2 5 3 13 11 19 chứ