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: 6.5 (2 votes)
Ả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.
9 + 6 =
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

 
Phần 1: Các bước tạo  Symfony2 website

Phần 1: Các bước tạo Symfony2 website

This chapter will cover the first steps when creating a Symfony2 website. We will download and configure the Symfony2 Standard Distribution

Xuất hiện nút “Đọc” và “Nghe” trên Facebook Tickers

Xuất hiện nút “Đọc” và “Nghe” trên Facebook Tickers

Một số người dùng báo cáo rằng họ đã bắt đầu thấy nút “Đọc” và “Nghe” trên Facebook kể từ khi nó được giới thiệu tại hội nghị F8 2011.

Khi nào module media được làm trên Drupal 8

Khi nào module media được làm trên Drupal 8

With Drupal 8 around the corner a lot of people started asking me when will media be ready

Wordpress Freelancer

 

Wordpress Freelancer