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

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

 
Hãy xây dựng “Domain Authority”, đừng chú tâm xây dựng Link

Hãy xây dựng “Domain Authority”, đừng chú tâm xây dựng Link

Xây dựng liên kết (Link Building) là một quá trình không thể thiếu cho một chiến dịch SEO và điều này không thể thay đổi trong một sớm một chiều. Những liên kết này là chìa khóa rất quan trọng để Google đánh giá độ phổ biến và chất lượng của website. Chính vì thế, nói một cách đơn giản : “Bạn cần Links”.

Những bức ảnh thực tế được cho là của iPhone 5S vừa được đăng tải trên mạng

Những bức ảnh được cho là của iPhone 5S

Những bức ảnh thực tế được cho là của iPhone 5S vừa được đăng tải trên mạng, tuy nhiên, có vẻ như chiếc điện thoại thế hệ mới của Apple không có nhiều khác biệt so với mẫu iPhone 5 hiện tại.

Giới thiệu the Content Preview System (CPS) trong Drupal

Giới thiệu the Content Preview System (CPS) trong Drupal

Drupal traditionally excels in the area of content organization – not only as a content management system

Tomdesgin.vn

 

Drupal Services