Trang 2 / 2 FirstFirst 12
Hiển thị kết quả từ 11 đến 15 / 15
  1. #11
    Tham gia
    23-01-2010
    Bài viết
    146
    Like
    0
    Thanked 0 Times in 0 Posts

    Giận dữ !

    Quote Được gửi bởi alviss1011 View Post
    tai sao lai dung if kt then??????????/
    Hey! Bác có học Pascal ko vậy?
    câu hỏi vớ vẩn thế mà cũng hỏi, ko kiểm tra nó xuất rồi hay chưa mà đã thống kê thì xuất ra cả đống trùng nhau!

    vd:
    3 3 4 0 4 3

    kq:
    số lần xuất hiện của 3 là : 3
    số lần xuất hiện của 3 là : 3
    số lần xuất hiện của 4 là : 2
    số lần xuất hiện của 0 là : 1
    số lần xuất hiện của 4 là : 2
    số lần xuất hiện của 5 là : 3


    @QuyNam: ý tưởng của bạn khá hay nhưng phần code sẽ bị lỗi test đấy bạn
    Được sửa bởi cristianly lúc 16:37 ngày 11-02-2010

  2. #12
    Tham gia
    18-01-2009
    Location
    Long An
    Bài viết
    28
    Like
    0
    Thanked 1 Time in 1 Post
    tại sao bạn hok dùn kiểu xâu nhỉ!!!!!! đâu nhất thiết phải dùng kiểu mảng 1 chiều nhỉ!mình xin trình bày cach của minh nha!!!!!!
    program aaaa;
    uses crt;
    var a:string;
    c:char;
    x,i,j:byte;
    begin
    clrscr;
    writeln('nhap vao cac chu~ so ') readln(a);
    x:length(a);j:=0;
    for c:='1' to '9' do
    begin
    for i:=1 to x do
    if a[i]:= c then inc(j);
    writeln(' so lan xuat hien ',c,' la ',j);
    end;
    realdn
    end.
    mình hok bit co dúng hay sai mong cac bạn có thể chỉ giáo thêm cho mình nha!!!!!!! thanks các bạn nhìu lắm!!!!!!! DongHwa

  3. #13
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Có 1 vài chỉnh sửa lại của nguyenthong1593:
    code:{mình có bỏ cái clscr}
    program aaaa;
    var a:string;
    c:char;
    x,i,j:byte;
    begin
    writeln('nhap vao cac chu~ so '); readln(a);
    x:=length(a);j:=0;
    for c:='1' to '9' do
    begin
    for i:=1 to x do
    if a[i]=c then inc(j);
    writeln(' so lan xuat hien ',c,' la ',j);
    end;
    readln;
    end.

    Ko biết có sửa lại đúng ý bạn ko nhung sao chạy ko ra kết quả:
    1/hạn chế ko thể nhập dấu cách " "
    2/ Chạy ko ra ^^
    nhập 12345
    kq:
    so lan xuat hien cua 1 la 1
    so lan xuat hien cua 2 la 2
    so lan xuat hien cua 3 la 3
    so lan xuat hien cua 4 la 4
    so lan xuat hien cua 5 la 5
    so lan xuat hien cua 6 la 5
    so lan xuat hien cua 7 la 5
    so lan xuat hien cua 8 la 5
    so lan xuat hien cua 9 la 5
    (^^)

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

    Năm mới happy khai bút
    Mình có cách làm như thế này:
    Không biết có trùng với ý tưởng của bạn cris ko
    code:
    program aaaa;
    var A:array[1..100] of integer;
    B:array[1..100] of boolean;
    i,j,n,dem:integer;

    procedure test;
    begin
    B[i]:=true;
    for j:=i+1 to n do
    If (A[i]=A[j]) and (B[j]=false) then
    begin
    dem:=dem+1;
    B[j]:=true;
    end;
    end;

    begin
    write('nhap so luong : '); readln(n);
    for i:=1 to n do
    begin
    write('nhap so thu: ',i,' ');
    readln(A[i]);
    end;
    fillchar(B,sizeof(b),false);
    dem:=1;
    for i:=1 to n do
    begin
    If B[i]=false then
    begin
    test;
    writeln('so lan xuat hien cua ',A[i],' la: ',dem);
    end
    else
    test;
    dem:=1;
    end;
    readln;
    end.
    (Đã test 1 vài trường hợp và thấy đúng ^^ )
    Tuy nhiên hơi dài, vì để loại khỏi trường hợp lặp lại như cris nói mình đã làm thêm 1 procedure nữa. Bạn nào có cách tối ưu hơn thì post lên nhé keke
    Được sửa bởi nhokdragon94 lúc 18:16 ngày 14-02-2010 Reason: Bổ sung bài viết

  4. #14
    Tham gia
    15-05-2011
    Location
    Nam Dinh
    Bài viết
    8
    Like
    0
    Thanked 0 Times in 0 Posts

    Bai` sua? lai dung' rui` day'

    Var a:array[1..100] of integer;
    n,i,j,k,dem:integer;
    kt:boolean;
    begin
    clrscr;
    write('n=');readln(n);
    for i:=1 to n do
    begin
    write('a[',i,']=');readln(a[i]);
    end;
    for i:=1 to n do
    begin
    kt:=true;
    for j:=1 to i-1 do if a[i]=a[j] then kt:=false;
    if kt=true then
    begin
    dem:=0;
    for k:=1 to n do
    if a[i]=a[k] then inc(dem);
    writeln(a[i],' xuat hien ',dem,' lan');
    end;
    end;
    readln;
    end.

  5. #15
    Tham gia
    18-04-2017
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    ban dancuipascal oi!
    minh chay thu code nay nhung chi dem duoc gan het thoi con so cuoi cung nho nhat khong dem duoc
    ban xem lai di minh tim cach mai ma khong duoc! cam on nhe

Trang 2 / 2 FirstFirst 12

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •