Question

[Nguyễn Ngọc Hân]

Các bạn ơi cho mình hỏi bài tin học với:

Đề bài: Vẽ một hình vuông màu xanh có độ dày nét vẽ là 3, Với cạnh được nhập từ bàn phím. Tính diện tích hình vuông rồi hiển thị kết quả trên màn hình.

Bài tin học này được lập trình bằng ứng dụng scratch.mit.edu

Ai giỏi lập trình thì đáp lại cho mình với. 

Answer 1

[Ngô Nhật Minh]

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.