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

 
Motorola’s XT531 brings Android 2.3 Gingerbread to the unwashed masses

Motorola’s XT531 brings Android 2.3 Gingerbread to the unwashed masses

Motorola has taken the wraps off of its latest budget-minded Android smartphone, the XT531.

Giới thiệu sơ lược Apache Hadoop

Giới thiệu sơ lược Apache Hadoop

Các cỗ máy tìm kiếm như Google chọn lọc thông tin và trả về kết quả trong tích tắc. Kỹ thuật thường được sử dụng là chia nhỏ nhiệm vụ(job) để hàng loạt máy tính cùng nhau thực hiện. Kỹ thuật này cũng được biết đến với tên gọi Cloud computing. Tìm hiểu hadoop sẽ giúp chúng ta làm quen với Cloud computing.

Bạn đã từng biết Drupal’s Community Working Group chưa?

Bạn đã từng biết Drupal’s Community Working Group chưa?

In early 2013 our fearless and benevolent leader, Dries Buytaert, formalised a governance structure and started a number of working groups for the Drupal project as a whole, and for our home on the Web

Tomdesgin.vn

 

Drupal Services