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

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

 
5 điểm lưu ý trong quảng cáo Google Adwords năm 2013

5 điểm lưu ý trong quảng cáo Google Adwords năm 2013

Sau nhiều năm phát triển Internet, có thể nói năm 2010 – 2012 là thời gian lan tỏa của công nghệ Internet tại Việt Nam và nhiều nước khác. Do sự phát triển quá mạnh mẽ, bộ máy làm việc của các công cụ tìm kiếm phải cập nhật liên tục, đặc biệt là Google.

Open Public

Giới thiệu Drupal distributions: Open Public phát triển bằng Drupal

Public Open is a government-oriented and political sites distribution. Its purpose is that sites are secure, scalable and transparent. Many government sites are built on Drupal because of its robustness and scalability, from the White House or the Senate of the State of New York to other international sites.

Hướng dẫn cài đặt Alexa Rank và Google PageRank lên website

Hướng dẫn cài đặt Alexa Rank và Google PageRank lên website

Alexa rank và Google pagerank là hai chỉ số dùng để đo thứ hạng, chất lượng các trang web. Đây cũng là những gì mà các nhà quảng cáo nhìn vào đầu tiên để quyết định có nên đặt quảng cáo trên website/blog của bạn hay không.

Tomdesgin.vn

 

Drupal Services