Tham khảo

program hcn;

uses crt;

var d,r,dt:longint;

cv:real;

begin

write('nhap chieu dai va chieu rong cua hcn:');

readln(d,r);

cv:=(d+r)*2;

dt:=d*r;

writeln(' chu vi hcn do la:',cv);

writeln(' dien tich hcn do la:',dt);

readln

end.

# Hàm tính diện tích hình vuông

def dien_tich_hinh_vuong(canh):

     dien_tich = canh ** 2

     return dien_tich

# Hàm tính diện tích hình chữ nhật

def dien_tich_hinh_chu_nhat(dai, rong):

     dien_tich = dai * rong

     return dien_tich

# Kiểm tra và in kết quả

canh = float(input("Nhập vào cạnh hình vuông: "))

dai = float(input("Nhập vào độ dài hình chữ nhật: "))

rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))

if canh <= 0 or dai <= 0 or rong <= 0:

     print("Kích thước không hợp lệ!")

else:

     dien_tich_hv = dien_tich_hinh_vuong(canh)

     dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)

     print("Diện tích hình vuông là: ", dien_tich_hv)

     print("Diện tích hình chữ nhật là: ", dien_tich_hcn)

Đây là chương trình mình viết bằng ngôn ngữ C++, mình sử dụng biến mảng a đánh số từ 0 tới 45. Khi in ra màn hình thì số điểm của mỗi học sinh sẽ viết trên mỗi dòng.
CODE:

#include <iostream>

using namespace std;
int a[45];
int main()
{
    for(int i=0;i<45;i++){
        cin>>a[i];
    }
    for(int i:a){cout<<i<<endl;}
    return 0;
 

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}

function cv(x,y:integer):integer;

begin

cv:=x+y;

end;

{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}

function dt(x,y:integer):integer;

begin

dt:=x*y;

end;

{-------------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',cv(a,b));

writeln('Dien tich la: ',dt(a,b));

readln;

end.

Var r,s,c:real;

Begin

Write('Ban kinh = ');readln(r);

s:=3.14*r*r;

c:=2*3.14*r;

Writeln('Dien tich la ',s:10:2);

Write('Chu vi la ',c:10:2);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

double x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;

return 0;

}

uses crt;

var a:array[1..100]of real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end.