Question

Viết chương trình tính chu vi và diên tích của hình vuông có cạnh là a ( được nhập từ bàn phím )

Answer 1

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Answer 2

Bạn nào học pascal mà chưa tìm được ide hỗ trợ code và debug lỗi hiệu quả nhất, có thể sử dụng phần mềm turbo pascal để dùng nha.

Link tải: https://thuvienkhoahoc.net/download-turbo-pascal-phien-ban-moi-nhat.html

Answer 3

program ho_tro;

uses crt;

var a,s,c: integer;

begin

clrscr;

writeln(' nhap canh hinh vuong:'); readln(a);

c:=a*4;

s:=a*a;

writeln(' chu vi la:',c);

writeln(' dien tich la:',s);

readln;

end.