TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

[zoejoe]

ChẢ LÀ MỚi VÀo HỌc Pascal ThÌ Ông ThẦy Giao Cho TỚ BÀi TẬp NÀy VỀ NhÀ:

Cho MỘt DÃy SỐ NguyÊn GỒm N PhẦn TỬ ( N NhẬp TỪ BÀn PhÍm):
A/ XuẤt Ra SỐ LỚn NhẤt VÀ SỐ NhỎ NhẤt Trong DÃy SỐ TrÊn
B/ SẮp XẾp DÃy SỐ Theo ThỨ TỰ GiẢm DẦn
C/ XuẤt Ra DÃy SỐ Khi SẮp XẾp

VÌ LÀ LÍnh MỚi NÊn TỚ ChỈ BiẾt Đc MẤy CÁi ĐẦu ThÔi ChỨ PhẦn GiẢi QuyẾt Ở GiỮa ThÌ KhÓ ThẬt!!! Mong Ai Cao Tay CÓ ThỂ GiÚp TỚ NhÉ!!! Thank NhiỀu

Dễ thế
- Câu đầu tứ dùng 1 biến tạm và cho nó là max(hoặc min) rồi so sánh với từng phần tử kể từ sau nó trở đi, cái nào có giá trị lớn hơn (hoặc nhỏ hơn) thì cho nó là max(hoặc min) rồi so sánh tiếp (dùng mảng cho dễ).
- Mở sách giáo khoa lớp 10 (hình như thế) có sơ đồ khối hướng dẫn giải thuật toán sắp xếp tăng dần, rồi dùng 1 biến phụ để chứa mản g đã săp xếp đó, xong rồi gán lại vào biếng chính cũng là mảng theo cách sau : cho nó lặp ngược, rồi phần tử cuối cùng của mảng phụ sẽ đưa vào phần tử đầu của mảng chính. Nếu khá hơn, có thể dùng phuơng pháp nổi bọt ngược để sắp xếp (bubble float )
- Lặp thuận tới khi hết mảng rồi xuất lần lượt ra, dễ mà

[anhtuanhack]

mình học dc một số kỹ thuật lập trình và nhờ sáng tạo minh đã cho ra đời một phiên bản BETA của chương trình hack lấy XU Boom Online mà đông đảo các bạn đều nghe nói đến !
Mình kết hợp Pascal cà C++ và VisualBasic đã đánh lừa dc một số phần mềm an ninh của VNGAME đã lấy tất cả các mã nguồn GAME của họ. Rồi chiết khấu thành bản hack hoàn mỹ như phin viễn tưởng. Tạo liên kết giữa các trò của VNGAME lại với nhau và khi nạp thẻ vào một trò thì tất cả các ACC của trò còn lại đều nhận dc XU hay KNB. Nhưng quả thật, làm dc những thành quả đó mình mất nhiều thời gian lắm khoảng 2 tháng cắm cụi làm. Đây là cảnh báo cho VNGAME:
Nếu không qunr lý chặt chẽ nhân viên của công ty mình thì xin chắc chắn rằng một ngày nào đó VNGAME sạt nghiệp. VINASAT 1 đã phóng lên thì tôi càng dễ làm các bản hack hơn vì nó hộ trợ nhiều cái ví dụ như: dùng di động có thể chuyển tiền trong ngân hàng => USD hoặc EURO để tiêu sài. Như cao thanh lâm đã làm trong phim. Đây chỉ là ví dụ nên xin các đồng bào đừng nóng.co gì xin liên hệ tại địa chỉ 22 ngõ 8/7 tầng 18 địa ngục nếu không tìm dc thì hỏi diêm vương là biết tôi. Tôi là con trai của diêm vương ! ha ha ha ha !

[zoejoe]

giải giùm My bài nỳ theo pascal hay C cũng được nhé
Đề nà :
Cho mảng số thực vuông có tên là a có kích thước 2n x 2n .hãy lập các mảng mới bằng các khối vuông có kích thước n x n của mảng a theo cách sau : mảng ban đầu được cho trong tập tin nhom2.dat.Kết quả được lưu trong tập tin có tên ketqua2.dat

Hồi âm sớm giúp bé nhé ...
rất mong được làm quen với bạn
yahoo My nè : chooco_pie
giải tỉ mỉ nhé, vì mới học nên chưa rành đâu á

Đã hứa là sẽ làm mà, lo gì mà lo thế )

[amida]

Nhớ bài này mình cho bạn My ấy thuật toán rồi mà

[huyenhuyen]

Không cần dùng chương trình con đâu
chỉ cần câu lệnh if-then chắc cũng ổn rồi

[mousegold]

đề nè: thay thế tất cả cụm từ 'anh' = cụm kí tự 'em'
vd: anh va toi..
---> em va toi..

thì phải làm sao?

[Nhoc_chuoi]

Ai có thể làm cho em bài này không:
Tính 100! .............HẾt^_^
nhanh dùm em cái nha thank trước!

[=========> Bổ sung bài viết <=========]

ChẢ LÀ MỚi VÀo HỌc Pascal ThÌ Ông ThẦy Giao Cho TỚ BÀi TẬp NÀy VỀ NhÀ:

Cho MỘt DÃy SỐ NguyÊn GỒm N PhẦn TỬ ( N NhẬp TỪ BÀn PhÍm):
A/ XuẤt Ra SỐ LỚn NhẤt VÀ SỐ NhỎ NhẤt Trong DÃy SỐ TrÊn
B/ SẮp XẾp DÃy SỐ Theo ThỨ TỰ GiẢm DẦn
C/ XuẤt Ra DÃy SỐ Khi SẮp XẾp

VÌ LÀ LÍnh MỚi NÊn TỚ ChỈ BiẾt Đc MẤy CÁi ĐẦu ThÔi ChỨ PhẦn GiẢi QuyẾt Ở GiỮa ThÌ KhÓ ThẬt!!! Mong Ai Cao Tay CÓ ThỂ GiÚp TỚ NhÉ!!! Thank NhiỀu

Bài Giải Chi tiết nè:
Program baigiai;
uses:crt;
var a:array[1..100] of integer;
i,n,max,min,tg:integer;
BEGIN
write (' nhap so luong phan Tu? N:=');
readln(n);
For i:=1 to n do
begin
write('nhap phan tu a[',i,'] =');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
(* tìm số lớn nhất và nhỏ nhất*)
for i:=1 to n do
begin
if a[i]>max then a[i]:=max;
If a[i] < min then a[i]:=min;
end;
writeln(' số lớn nhất mảng là: ',max);
writeln('số nhỏ nhất mảng là: ',min);
(*-----------------------------------*)
(* sắp xếp nè*)
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
tg:=a[i];
a[i]:=a[i+1];
a[i+1]:=a[i];
end;
(----------------------------------------------*)
(* Xuất ra dãy số khi sắp xếp nè:*)
for i:=1 to n do
write(a[i]:2);
(*--------------------------------------------*)
readln
END.


Còn phần hướng dẫn về thuật giải bạn xem bên trên nha ! có gì sai sót mong các tiền bối lượng thứ cho Thank!!!!

[=========> Bổ sung bài viết <=========]

đề nè: thay thế tất cả cụm từ 'anh' = cụm kí tự 'em'
vd: anh va toi..
---> em va toi..

thì phải làm sao?

xài đến hàm Pos('anh',xs);
bài giải chi tiết nè:
PROGRAM bailam;
uses crt;
var i:integer;
BEGIN
Write('nhập xâu S');
readln(S);
i:=pos('anh,S);
While i<>0 then
begin
delete(s,i,3);
Insert('em',s,i);
i:=pos('anh',s);
end;
Write(s);
readln

Hi vọng là đúng!
END.

[can8818]

Có bạn nào có Đề thi tin học không chuyên BRVT và các tỉnh khác một số năm trước không ? Cho mình với. cám ơn các bạn trước nha !

[=========> Bổ sung bài viết <=========]

Có nhiều cách làm bài này. Mình nghĩ cách làm của Chopes là được rồi nhưng có lẽ chưa tối ưu lắm. Có thể làm = cách
Xet:=TRUE;
FOR i:=2 TO n-1 DO
IF A[i-1]+A[i+1]<>(A[i]/2) THEN Xet:=FALSE;
...
Mình nghĩ là thế.

[Nhoc_chuoi]

ko ai giúp em à LAm thế nào để tính 100! vâyyyyyyyyyyyyyy

[tiensusu]

Đây là đoạn code tính giai thừa của những số n<140, kết quả có thể đạt 150000 chữ số

Var a:array[1..150000] of byte;
    n,l:word;
    i:byte;
Function Nhan(x:word):longint;
var j,nho:byte;
    tich:longint;
  Begin
     Nho:=0;
     Tich:=0;
     For j:= 1 to l do
        Begin
             tich:=a[j]*x+nho;
             nho:=0;
             a[j]:=tich mod 10;
             nho:=tich div 10;
        End;
     While nho <> 0 do
        Begin
             inc(l);
             a[l]:= nho mod 10;
             nho:=nho div 10;
        End;
  end;
BEGIN
     Write('n= ');
     readln(n);
     a[1]:=1;
     l:=1;
     for i := 1 to n do
         nhan(i);
     for i:= l downto 1 do
         write(a[i]);
     readln;
END.