Tin học viết chương trình pascal

[Huỳnh Nam Huy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính diện tích hình vuông

 

[ĐứcNhật!]

Program Dien_tich_hinh_vuong;
Uses crt;
Var a,s: real;
Begin
    clrscr;
    Write('Nhap canh hinh vuong: '); readln(a);
    s:=a*a;
    Write('Dien tich hinh vuong la: ',s:6:2);
    Readln
End.

 

[Nguyễn Như Tuyết]

Code:
uses crt;
var a,s:real;
begin
clrscr;
write('Nhap canh hinh vuong:'); readln(a);
s:=a*a;
Writeln('Dien tich hinh vuong la :',s);
Readln;
end.

 

[ĐứcNhật!]

Code:
uses crt;
var a,s:longint;
begin
clrscr;
write('Nhap canh hinh vuong:'); readln(a);
s:=a*a;
Writeln('Dien tich hinh vuong la :',s);
Readln;
end.

Cho mình 1 like nha.

Phần var là real nhé bạn!
Khi in kết quả thì ghi s:...:... nhé (... là điền số vào, tự điền)
P/s: Không câu like

 

[Nguyễn Như Tuyết]

Phần var là real nhé bạn!
Khi in kết quả thì ghi s:...:... nhé (... là điền số vào, tự điền)
P/s: Không câu like

Dạ em xin tiếp thu.
P/s: em không câu like nữa. xóa rùi.