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?: 
No votes yet
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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.
11 + 2 =
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

 
Giới thiệu RESTful Web Services trong Drupal 8

Giới thiệu RESTful Web Services trong Drupal 8

REST is one of the most popular ways of making Web Services work. There are other formats such as SOAP or XML-RPC, but we are only going to focus on REST because it is the Drupal standard. REST utilizes HTTP methods, such as GET, POST, and DELETE.

Những lý do tại sao sử dụng Panels trong Drupal CMS

Những lý do tại sao sử dụng Panels trong Drupal CMS

Panels unites the two mindsets. It knows what the incoming data is

Component Twig Templates trong Drupal 8

Component Twig Templates trong Drupal 8

Even though Twig has been in Drupal 8 for quite some time now, there are still a lot of things left to do! I recently started collaborating with the "Twig team" in an effort to help move Drupal in the right direction.

Wordpress Freelancer

 

Wordpress Freelancer