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

 
Sử dụng Grunt, bootstrap, Compass and SASS trong Drupal 7 sub theme

Sử dụng Grunt, bootstrap, Compass and SASS trong Drupal 7 sub theme

We wanted to bridge the gap between our theme developers, UX designers, front end coders, and create an all encompassing boilerplate that could be used as a starting point for any project

iPad 3 có thể ra mắt vào 7/3

iPad 3 có thể ra mắt vào 7/3

Theo iMore, iPad thế hệ thứ ba có thể được giới thiệu vào ngày 7/3 sắp tới. Mốc thời gian này rất phù hợp với tin đồn trước đó về việc iPad mới ra mắt vào tuần đầu tiên của tháng 3.

DrupalCon Austin monitoring session submissions

DrupalCon Austin monitoring session submissions

This is my fifth DrupalCon monitoring session submissions. My fifth time nervously counting the submissions as they come rolling in, first at a trickle, maybe 20 in a week. Then stagnation, followed by a bit of a panic - did we remember to tell people??

Tomdesgin.vn

 

Drupal Services