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.
3 + 0 =
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

 
Nữ sinh Trung Quốc đổi 5 “đêm” lấy iPhone 4S

Nữ sinh Trung Quốc đổi 5 “đêm” lấy iPhone 4S

Mới đây, một nữ sinh viên ở thành phố Nam Kinh, thủ phủ của tỉnh Giang Tô, Trung Quốc đã tuyên bố cô sẵn sàng ngủ với bất cứ người đàn ông nào

Mở khóa học Advanced Drupal Developer tại Bình Dương

Mở khóa học Advanced Drupal Developer tại Bình Dương

Quản lý dự án, Patch, Documentation, Token, Queue, Cache, Stream Wrapper

Hướng dẫn làm No more View pages

Hướng dẫn làm No more View pages

Views has long been one of the magic pieces that makes Drupal my CMS of choice.  Views allows us to easily create queries of content in the 

Tomdesgin.vn

 

Drupal Services