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

 
Headless Websites: Những vấn đề lớn là gì?

Headless Websites: Những vấn đề lớn là gì?

Headless website architecture is gaining traction and popularity. Nearly every developer I’ve spoken to in the past six months is excited about the potential, and with good reason

Sức mạnh tiềm tàng website: tối ưu Domain Authority

Sức mạnh tiềm tàng website: tối ưu Domain Authority

Domain Authority là một đơn vị xếp hạng biểu diễn từ 0 đến 100 trên tất cả các tên miền dựa vào khoảng hơn 150 yếu tố được phân tích từ thứ hạng website trên Google

Thao tác với Excel thay đổi hướng Enter

Thao tác với Excel thay đổi hướng Enter

Bạn có một bản tính có rất nhiều ô (cell), di chuyển giữa các ô nhanh nhất sẽ là rất có hiệu quả trong công việc

Tomdesgin.vn

 

Drupal Services