Bài 1: Viết 1 chương trình bằng ngôn ngữ lập trình pascal thực hiện các công việc sau:
+Nhập từ bàn phím độ dài cạnh của 1 hình vuông.
+Tính chu vi, diện tích hình vuông đó.
+Hiện kết quả chu vi & diện tích ra màn hình, kết quả có 4 chữ số thập phân.
+ Nếu diện tích là số chẵn thì thông báo ra màn hình HINH VUONG CHAN, ngược lại thông báo HINH VUONG LE .
Bài 2: Viết 1 CT bằn ngôn ngữ lập trình pascal thực hiện các công việc sau:
+ Nhập từ bàn phím 3 số nguyên x,y,z .
+Nếu 3 số này âm thì tính giá trị biểu thức S1=3x+2y và S2=6-7y. Hiện kết quả ra màn hình.
Bài 3: Hãy viết 1 CT bằng ngôn ngữ lập trình pascal giải bài toán:
Theo quy định của Đoàn trường Ân thi, mỗi học sinh vi phạm nội quy sẽ bị trừ điểm như sau:
Đi học muộn trừ 5 điểm
Không đeo thẻ trừ 5 điểm
Không đội mũ bảo hiểm trừ 15đ
Trong đợt thi đua chào mừng ngày Nhà giáo Việt Nam năm nay, lớp 11A7 có:
a trường hợp đi học muộn; b trường hợp k đeo thẻ; c trường hợp k đội mũ bảo hiểm
-Hãy nhập a,b,c từ bàn phím.
-Tính tổng số điểm mà 11a7 bị trừ trong đợt. Hiện kết qura ra màn hình.
-Thầy giáo chủ nhiệm lớp 11a7 có thông báo: nesu trong đợt thi đia này lớp bị trưc từ 10 điểm trở xuống thì cuối đợt lớp sẽ tổ chức liên hoan. Em hãy xho biết lớp 11a7 có đc tổ chức buổi liên hoan đó k.
1:
uses crt;
var a,dt,cv:real;
begin
clrscr;
write('nhap canh hinh vuong:'); readln(a);
if a<=0 then writeln('vui long nhap lai')
else begin
cv:=a*4;
dt:=sqr(a);
writeln('chu vi hinh vuong la: ',cv:10:4);
writeln('dien tich hinh vuong la: ',dt:10:4);
if dt mod 2=0 then writeln('hinh vuong chan')
else writeln('hinh vuong le');
end;
readln;
end.
2:
uses crt;
var x,y,z,s1,s2:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
if (x<0) and (y<0) and (z<0) then
begin
s1:=3*x+2*y;
writeln('tong s1=',s1);
s2:=6-7*y;
writeln('tong s2=',s2);
end
else writeln('vui long nhap cac so am');
readln;
end.
3:
uses crt;
var a,b,c,t:integer;
begin
clrscr;
write('nhap so loi di hoc muon:'); readln(a);
write('nhap so loi khong deo the:'); readln(b);
write('nhap so loi khong doi mu bao hiem:'); readln(c);
t:=a*5+b*5+c*15;
writeln('tong so diem lop 11a7 bi tru la: ',t);
if t<=10 then writeln('cuoi dot lop se to chuc lien hoan')
else writeln('cuoi dot lop se khong to chuc lien hoan');
readln;
end.
Cái này là lớp mấy chứ đâu phải lớp 6 tụi em đâu
