VCT nhập vào xâu S. Tính tổng giá trị của xâu

VCT nhập vào xâu S. Tính tổng giá trị của xâu

VCT nhập vào xâu S. Tính tổng giá trị của xâu. Ví dụ: Lớp 8A1 có 45 bạn điểm 7.

Trường hợp 1

Tổng là: 8 + 1 + 4 + 5 + 7 = 25

Trường hợp 2

Tổng là: 8 + 1 + 45 + 7 = 61

Bài giải trường hợp 1

Program tong_so;
uses crt;
var st:string;
i,d,dem,t,x:integer;
a:array[1..255]of integer;

begin
    clrscr;
    write('st=');readln(st);
    d:=length(st);
    dem:=0;
    for i:=1 to d do
    if st[i] in ['0'..'9'] then
        begin
            inc(dem);
            val(st[i],a[dem],x);
        end;
    t:=0;
    for i:=1 to dem do
    t:=t+a[i];
    writeln('tong cac chu so trong xau la: ',t);
    readln;
end.

Hình minh họa

tong

Bài giải trường hợp 2

Program tong_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: 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;
    
    
    S := 0;
    for i:=1 to n do
        S := S + a[i] ;
    writeln;
    writeln('tong cac chu so trong xau la: ',s);
    readln;
end.

Hình minh họa

tong

Ôn tập Kiểu

Một kiểu dữ liệu là một tập hợp các giá trị mà một biến thuộc kiểu đó có thể nhận được và một tập hợp các phép toán có thể áp dụng trên các giá trị đó. Có hai loại kiểu là kiểu chuẩn và kiểu do người dùng định nghĩa.

*/ Một số kiểu dữ liệu chuẩn:

– Kiểu số nguyên

Bien

– Kiểu số thực

Bien

– Kiểu ký tự / chuỗi ký tự

Bien

* Kiểu do người dùng định nghĩa:

Cú pháp:

TYPE <ten_kieu> = <cac_thanh_phan_cua_kieu>;

Ví dụ:

TYPE Hoaqua=(tao,mit,dua,oi);

che=(buoi,thapcam);

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

 
Động cơ nào khiến Facebook "biếu không" người dùng những công nghệ tuyệt đỉnh

Facebook biếu không người dùng những công nghệ tuyệt đỉnh

Liên tiếp hàng loạt những công nghệ đình đám của Facebook ra mắt trong thời gian gần đây đều được hãng miễn phí cho người dùng

Giới thiệu 4 tools cho dân lập trình Drupal development năm 2015

Giới thiệu 4 tools cho dân lập trình Drupal development năm 2015

Developing Drupal sites can be quite a challenge and adventure. And this comes from those who call themselves Drupal developers

Hướng dẫn tạo bộ cài đặt MacOS X 10.8 Mountain Lion trên USB

Hướng dẫn tạo bộ cài đặt MacOS X 10.8 Mountain Lion trên USB

Cuối cùng Apple cũng đã chính thức phát hành phiên bản MacOS X 10.8 Mountain Lion và người dùng có thể lên kho ứng dụng Mac AppStore để tải trực tiếp về để upgrade cho máy Mac của mình.

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

 

Diet con trung