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: 8 (8 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

 
Thủ thuật xóa nhanh các nội dung trong Drupal

Thủ thuật xóa nhanh các nội dung trong Drupal

Trong quá trình xây dựng website với Drupal chúng ta sẽ phải tạo nhiều nội dung test và qua thời gian làm cho những nội dung đó trở nên rác và làm dữ liệu không được "đẹp".

Những vấn đề mắc phải trong quy trình SEO

Những vấn đề mắc phải trong quy trình SEO

Trách nhiệm của dân làm SEO là phải thay đổi, cập nhật thường xuyên để có thể thích nghi và theo kịp với thời đại tiếp thị số, tuy nhiên, hầu hết tiến trình làm SEO vẫn nguyên sơ như ban đầu.

Apple tổ chức sự kiện giới thiệu iPad mới vào ngày 7/3

Apple tổ chức sự kiện giới thiệu iPad mới vào ngày 7/3

Apple đã xác nhận tổ chức một sự kiện báo chí vào thứ Tư, ngày 7/3, mà nhiều khả năng sẽ là nơi hãng cho giới thiệu chính thức mẫu máy tính bảng iPad 3 rất được trông đợi.

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

 

Diet con trung