VCT In ra màn hình số lớn nhất trong xâu đó

VCT In ra màn hình số lớn nhất trong xâu đó

Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.

Ôn tập Biến

– Biến là một ô nhớ trong bộ nhớ của máy tính, giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình. Chương trình quản lý biến thông qua tên biến và mỗi biến tương ứng với một kiểu dữ liệu nhất định.

– Cú pháp khai báo biến:

VAR <ten_bien>:<kieu_du_lieu>;

Ví dụ:

VAR a:integer;

b,c:real;

qua:Hoaqua;

(* với Hoaqua la kieu du kieu da dinh nghia *)

Phân tích

– Cho số lớn nhất là số đầu tiên: Max:=a[1].

– Duyệt qua các phần tử a[i], với i chạy từ 2 tới N: Nếu a[i]>Max thì thay Max:=a[i];

Bài giải

Program Max_so;

uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;

begin
    clrscr;
    write('Nhap xau:');readln(st);
        l:=length(st); i:=1; n:=0;
    repeat
        if (st[i] in so) then
            begin
                b:='';
                repeat
                    b:=b+st[i];
                    inc(i);
                until (not(st[i] in so)) or (i>l);
                inc(n);
                val(b,a[n],c);
            end;
        inc(i);
    until i>l;
    
    
    Max:=a[1];
    
    for i:=2 to n do
        If Max<A[i] Then Max:=A[i];
     Writeln('Phan tu lon nhat cua mang:', Max);
    readln;
end.

Hình minh họa

Max

Bạn thấy bài viết này như thế nào?: 
Average: 9.2 (5 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

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.
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

 
Chỉ số sức mạnh của 1 trang web trong SEO

Chỉ số sức mạnh của 1 trang web trong SEO

Bài viết này trình bày những yếu tố cấu thành nên chỉ số sức mạnh của 1 trang web (webpage không phải website) để làm cơ sở trong việc nghiên cứu từ khóa cho các chiến dịch SEO.

Dịch vụ quét mã độc WordPress miễn phí

Dịch vụ quét mã độc cho mã nguồn WordPress miễn phí năm 2020

Dịch vụ quét mã độc WordPress miễn phí dành cho khách hàng mua WordPress Hosting.

Nook Tab Full Review And Price

Nook Tab Full Review And Price

The Nook Tablet, a competitor of the Amazon /kindle, just out of the bag is loaded with Android OS. The Nook Tablet is an heir to the Barnes and Noble throne after the Nook color, and is stealing the limelight.

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

 

Diet con trung