VCT Xắp xếp các từ theo thứ tự từ đếm trong Pascal

VCT Xắp xếp các từ theo thứ tự từ đếm trong Pascal

Viết chương trình nhập vào 1 xâu. Xắp xếp các từ theo thứ tự từ đếm

Ôn tập một số hàm số, thủ tục

Hàm         Ý nghĩa             Ví dụ

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

ABS(x)      Trị tuyệt đối x     Abs(-2) -> 2

SQR(x)      Bình phương x       Sqr(2) -> 4

SQRT(x)     Căn bậc hai x       Sqrt(9) -> 3

EXP(x)      Hàm e^x             Exp(3) -> e^3

LN(x)       Hàm ln(x)           Ln(2) ->ln2

SIN(x)      Hàm lượng giác      Sin(PI) -> 0

COS(x)      Hàm lượng giác      Cos(PI) -> 1

ARCTAN(x)   Hàm lượng giác      Arctan(0) ->0

INC(x)      Tăng x lên 1 đơn vị <=> x:=x+1;

DEC(x)      Giảm x xuống 1 đơn vị <=> x:=x-1;

SUCC(x)     Cho giá trị tiếp theo của x succ(5) cho KQ 6

PRED(x)     Cho giá trị trước đó của x PRED(5) cho KQ 4

ROUND(x)    Làm tròn lên        Round(8.6) -> 9

TRUNC(x)    Làm tròn xuống      Trunc(8.6) -> 8

ORD(x)      Lấy mã ASCII ký tự  Ord(‘a’) -> 97

CHR(x)      Cho ký tự có mã ASCII Chr(65) -> ‘A’

ODD(x)      Kiểm chẳn lẽ        Odd(5) -> True

Bài giải

Program SX;

Uses Crt;

var s,t:string;

n,i,j,z,k,l:longint;

a:array[1..100] of string;

begin

    clrscr;

    write('nhap xau:');readln(s);

    z:=1; j:=0;

    s:=s+' ';

    for i:=1 to length(s) do

    if (s[i]=' ') and (s[i-1] <> ' ') then

        begin

        j:=j+1;

        a[j]:='';

        for k:=z to i-1 do

            begin

                a[j]:=a[j]+s[k];

            end;

        z:=i+1;

        end;

    for i:=1 to j-1 do

        for k:=i+1 to j do

            if length(a[i]) > length(a[k]) then

                begin

                    t:=a[i];

                    a[i]:=a[k];

                    a[k]:=t;

                end;

    s:='';

    for i:=1 to j do

        s:=s+' '+a[i];

    writeln('xau da sap xep tu tang dan la:');

    write(s);

    readln;

end.       

Hình minh họa

Xap xep

Bạn thấy bài viết này như thế nào?: 
No votes yet
Ả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

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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.

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

 
[Download] Visual Foxpro 9.0

[Download] phần mềm Visual Foxpro 9.0

Visual FoxPro, ký hiệu vắn tắt là VFP, là một hệ quản trị cơ sở dữ liệu (Database Management System -DBMS) trực quan.

6 lý do khiến blog bị đánh giá "thiếu chuyên nghiệp"

6 lý do khiến blog bị đánh giá "thiếu chuyên nghiệp"

Có đôi khi bạn thấy trang blog của mình quá đơn giản, nhưng độc giả lại thấy nó quá phức tạp. Do đó thiết nghĩ phải dành thời gian để chỉnh lí những yếu tố ...

Ví dụ sử dụng 2 function theme_table() và theme_fieldset() trong Drupal 7

Ví dụ sử dụng 2 function theme_table() và theme_fieldset() trong Drupal 7

In Drupal 7 API there is a chapter dedicated to site theming. All elements of a site, without exclusion, should go through the theming process.

Công ty diệt chuột T&C

 

Diet con trung