Viết chương trình tính tổng 3 số a,b,c . Trong đó a,b,c nhập từ bàn phím

Thảo luận trong 'Học Online' bắt đầu bởi họC Ng, 3 Tháng mười 2021.

  1. họC Ng

    Bài viết:
    7
    Bài tập 1: Viết chương trình tính tổng 3 số a, b, c với Pascal

    Mã:
    program tongabc;
    
    uses crt;
    
    var T, a, b, c:interger;
    
    begin
    
    write('gia tri cua a');
    
    read(a);
    
    write('gia tri cua b');
    
    read(b);
    
    write('gia tri cua c');
    
    read(c);
    
    T:=a+b+c ;
    
    write ('tong ba so a, b, c la':, T);
    
    Readln
    
    End.

    Tìm số lớn nhất:

    Mã:
    program tim _so_lon_nhat;
    uses crt;
    var a, b, c: integer;
    Begin
    write ("Nhap so nguyen a = "); readln(a);
    write ("Nhap so nguyen b = "); readln(b);
    write ("Nhap so nguyen c = "); readln(c);
    max:=a;
    if max < b then max:=b;
    if max < c then max:=c;
    writeln ("So lon nhat trong 3 so la :",max);
    readln;
    End. 

    Bài tập 2: Viết chương trình tính chu vi, diện tích hình vuông.

    Mã:
    program cv_hinh_vuong;
    
    uses crt;
    
    var a, cv, dt:interger;
    
    begin
    
    clrscr;
    
    write('nhap do dai a');
    
    readln(a);
    
    cv:= a*4, dt:= a*a.
    
    Write ('Chu vi hinh vuong: ', cv);
    
    Write ('Dien tich hinh vuong la: ', dt) ;
    
    readln
    
    end.
     
    Thùy MinhAdmin thích bài này.
    Last edited by a moderator: 16 Tháng mười 2022
  2. Đăng ký Binance
Trả lời qua Facebook
Đang tải...