VCT Show các từ dài nhất và chiều dài của chúng trong Pascal

VCT Show các từ dài nhất và chiều dài của chúng trong Pascal

Đếm số từ dài nhất trong xâu. Show các từ dài nhất và chiều dài của chúng

Ôn tập một số phép toán logic

AND, OR, XOR, NOT.

Lưu ý:

– Các phép toán so sánh (<> khác, = bằng, > lớn hơn, < nhỏ hơn >= lớn hơn hoặc bằng, <= nhỏ hơn hoặc bằng) luôn trả về kiểu Booland.

– Các phép toán logic còn áp dụng trên kiểu số nguyên, trên cớ sở biểu diễn số nhị phân của các số nguyên.

X       Y       X OR Y      X AND Y     X XOR Y     NOT X

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

FALSE   FALSE   FALSE       FALSE       FALSE       TRUE

FALSE   TRUE    TRUE        FALSE       TRUE        TRUE

TRUE    FALSE   TRUE        FALSE       TRUE        FALSE

TRUE    TRUE    TRUE        TRUE        FALSE       FALSE

Bài giải

Program DEM_SO_TU;
Uses Crt;

var st, kq: string;
    vt, dai, max, d, i,j: integer;
    a:array[1..100] of string;
begin
    write('Nhap St:');
    readln(st);
    max := 0;
    st := st + ' ';
    d:=0;
    while length(st) <> 0 do
    begin
        vt := pos(' ', st);
        dai := vt - 1;
        kq := copy(st, 1, dai);
        inc(d);
        a[d]:=kq;
        delete(st, 1, vt);
    end;
    for i:=1 to d do
        if length(a[i])>max then
    begin
        max:=length(a[i]);
        j:=1;
    end
    else if length(a[i])=max then inc(j);
        writeln('Co ',j,' tu dai nhat, co chieu dai la: ',max);
    writeln('cac tu do la:');
        for i:=1 to d do
        if length(a[i])=max then writeln(a[i]);   
        readln;
end.

Hình minh họa

tu dai nhat

Bạn thấy bài viết này như thế nào?: 
Average: 9.3 (3 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
5 + 0 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Google Sandbox

Google Sandbox bộ lọc website mới

Vào tháng 5 năm 2004, Google cài đặt một bộ lọc mới được giới webmaster gọi là Sandbox.

4 cách tránh mỏi mắt khi làm việc với màn hình máy vi tính

4 cách tránh mỏi mắt khi làm việc với màn hình máy vi tính

Ngồi lâu trước màn hình máy vi tính dễ khiến mắt bạn mỏi nhừ, dẫn đến nguy cơ bị tật về mắt. Dưới đây là 5 công cụ giúp bạn giảm thiểu nguy cơ đó.

Status trên Facebook lập kỷ lục khó tin

Status trên Facebook lập kỷ lục khó tin

Số ký tự cho phép trong một lần cập nhật trạng thái đã tăng lên ngưỡng 63.206 rồi nhé!

Tomdesgin.vn

 

Drupal Services