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.
Image CAPTCHA
Enter the characters shown in the image.

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

 
Ý kiến Git và Bash aliases từ Alex Pott đang làm ở Chapter Three

Ý kiến Git và Bash aliases từ Alex Pott đang làm ở Chapter Three

I create a branch for every Drupal core issue that I work on and use the issue’s node id as a branch name. For example:

Facebook sẽ tung ra smartphone vào năm sau?

Facebook sẽ tung ra smartphone vào năm sau?

Sau thời gian dài liên tục xuất hiện các thông tin về việc Facebook nhúng tay vào mảng điện thoại di động, theo nguồn tin mới nhất, sản phẩm đầu tiên của mạng xã hội này có tên là Buffy, sử dụng hệ điều hành Android và do HTC sản xuất.

Thị trường bất động sản du lịch những năm gần đây nở rộ khiến lĩnh vực này “khát” nhân sự, đặc biệt là nhân sự cao cấp.

Khát nhân sự Bất Động Sản du lịch đặc biệt là nhân sự cao cấp

Thị trường bất động sản du lịch những năm gần đây nở rộ khiến lĩnh vực này “khát” nhân sự, đặc biệt là nhân sự cao cấp.

Tomdesgin.vn

 

Drupal Services