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 (2 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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.
1 + 5 =
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

 
galaxy

Những thiết bị vi phạm của Samsung trong vụ kiện với Apple

Thẩm phán Lucy Koh và bồi thẩm đoàn đã tuyên án Samsung vi phạm các bằng sáng chế của Apple trên hầu hết các sản phẩm bị "nhà táo" cáo buộc. Rõ ràng điều này có ảnh hưởng không nhỏ đến uy tín cũng như các sản phẩm của hãng điện tử Hàn Quốc. Sau đây chúng ta sẽ cùng điểm qua 25 thiết bị vi phạm của Samsung trong vụ kiện tụng với Apple.

Mã bưu chính ở Việt Nam

Mã bưu chính ở Việt Nam kể từ năm 2018 được điều chỉnh lại gồm 5 chữ số

Thông thường mã bưu điện chỉ có 5 số, tuy nhiên trên một số website nước ngoài yêu cầu bắt buộc nhập vào 6 chữ số như chuẩn US

3 bước để tạo một Module cho Drupal admin interface

3 bước để tạo một Module cho Drupal admin interface

The example we are going to use to create the admin settings interface is a module which displays a message to users when they login. The message itself will be configurable in the admin interface.

Wordpress Freelancer

 

Wordpress Freelancer