Mọi người giúp em 3 bài Pascal sau với ạ:
Bài 1: Viết chương trình nhập vào chiều dài và chiều rộng của hình chữ nhật và in hình chữ nhật đó ra màn hình bằng dấu *.Ví dụ: nhập dài=7, rộng=3,hình chữ nhật sẽ có dạng sau: *******
* *
*******
Bài 2 Viết chương trình nhập vào từ bàn phím lần lượt các số nguyên, dấu hiệu chấm dứt là số 0. Tính tổng và trung bình cộng các số đã nhập.
Bài 3: Viết chương...
Đọc tiếp
Mọi người giúp em 3 bài Pascal sau với ạ:
Bài 1: Viết chương trình nhập vào chiều dài và chiều rộng của hình chữ nhật và in hình chữ nhật đó ra màn hình bằng dấu *.Ví dụ: nhập dài=7, rộng=3,hình chữ nhật sẽ có dạng sau: *******
* *
*******
Bài 2 Viết chương trình nhập vào từ bàn phím lần lượt các số nguyên, dấu hiệu chấm dứt là số 0. Tính tổng và trung bình cộng các số đã nhập.
Bài 3: Viết chương trình in ra bảng tính căn bậc 2 của một trăm số nguyên dương đầu tiên.
Bài 1:
uses crt;
var cd,cr,i,j:integer;
begin
clrscr;
write('chieu dai='); readln(cd);
write('chieu rong='); readln(cr);
if (cd>0) and (cr>0) and (cd>=cr) then
begin
for i:=1 to cr do
begin
for j:=1 to cd do
write('*');
writeln;
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var a,s,dem:integer;
begin
clrscr;
s:=0;
dem:=0;
repeat
write('nhap so a:'); readln(a);
s:=s+a;
dem:=dem+1;
until a=0;
writeln('tong cua cac so da nhap la: ',s);
writeln('trung binh cong cua cac so da nhap la: ',s/dem:4:2);
readln;
end.
Bài 3:
uses crt;
var i:integer;
begin
clrscr;
writeln('bang tinh can bac 2 cua 100 so nguyen duong dau tien la: ');
for i:=1 to 100 do
begin
write('can bac 2 cua ',i,' la: ');
writeln(sqrt(i):4:2);
end;
readln;
end.