Phần 1: Câu điều kiện
1. Viết chương trình tìm số lớn nhất trong ba số nhập từ bàn phím
2. Viết chương trình giải phương trình bậc nhất bx + c = 0. Với a, b nhập từ bàn phím
3. Viết chương trinhfkieemr tra một số nhập từ bàn phím là chẵn hay lẻ?
4. Viết chương trình kiểm tra kết quả học tập của mình đã đạt loại gì? (diem>=8 thì 'gioi'...)
5. Viế chương trình nhập vào độ dài ba cạnh, kiểm tra ba cạnh có thể lập thành tam giác không? Nếu có tính chu vi và diện tích hình tam giác dó
6. Viết chương trình nhập vào 2 số từ bàn phím, kiểm tra xem tổng của hai số chẵn hay lẻ?
Phần 2: Câu lệnh lặp:
1. Viết chương trình tính tổng S= 1+ 2 +...+n ( n: số nguyên, n nhập từ bàn phím)
2. Viết chương trình tính tổng sau. Trong đó n là số nguyên nhập từ bàn phím?
A= 1+ 1/2+ 1/3+.....+1/n
3. Viết chương trình tính tích của n số tự nhiên dầu tiên, đọc là n giai thừa.
N!= 1.2.3....n
4. Viết chương trình sau:
p= căn x + căn x nằm trong căn x I + căn x nằm trong căn của căn x II ( nhập từ bàn phím mk ko cóa căn nên v nếu các cậu hiểu thì giải giúp mk vs)
Trong đó, n được nhập từ bàn phím
5. Viết chương trình tìm tổng 50 số tự nhiên đầu tiên
HELP ME!! đề Thi HKI của mk á mn giúp mk vs. Thanhs.....
1) Tham khảo :
program tim_max;
uses crt;
var m,n,k:real;
max:real;
begin
clrscr;
write('nhap so thu nhat ='); readln(m);
write('nhap so thu hai ='); readln(n);
write('nhap so thu ba ='); readln(k);
max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln('gia_tri_lon_nhat=',max:4:0);
readln;
end.
Phần 1: Câu lệnh điều kiện
1:
uses crt;
var ln,a,b,c:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
ln:=a;
if ln<b then ln:=b;
if ln<c then ln:=c;
writeln('so lon nhat la: ',ln);
readln;
end.
2:
Uses crt;
Var c,b,x: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: BX + C=0');
Writeln('------------------------------------------------------------');
Write ('Nhap b= '); readln(b);
Write ('Nhap c= '); readln(c);
If(b=0) then
If(c=0) then Writeln(' Phuong trinh co vo so nghiem')
Else writeln(' Phuong tring vo nghiem')
Else Writeln('Phuong trinh co nghiem x=',-c/b: 4: 2);
Readln;
End.
3:
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
4:
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('yeu');
if (diem>=5) and (diem<6,5) then writeln('trung binh');
if (diem>=6,5) and (diem<8) then writeln('kha');
if diem>=8 then writeln('gioi');
readln;
end.
5:
uses crt;
var a,b,c,cv:integer;
p,s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('ba canh nay co the lap duoc tam giac');
cv:=a+b+c;
writeln('chu vi tam giac nay la: ',cv);
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich tam giac nay la: ',s:4:2);
end
else writeln('ba canh nay khong lap duoc tam giac');
readln;
end.
6:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a+b mod 2=0 then writeln('tong cua hai so ',a,' va ',b,' la so chan')
else writeln('tong cua hai so ',a,' va ',b,' la so le');
readln;
end.
Phần 2: Câu lệnh lặp
1:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln('tong cua day so tu 1 toi ',n,' la: ',t);
readln;
end.
2:
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+1/i;
writeln('tong cua day so tu 1/1 toi 1/',n,' la: ',t:4:2);
readln;
end.
3:
uses crt;
var i,n:integer;
gt:longint;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!'=',gt);
readln;
end.
5:
uses crt;
var t,i:integer;
begin
clrscr;
t:=0;
for i:=0 to 49 do
t:=t+i;
writeln('tong cua 50 so tu nhien dau tien la: ',t);
readln;
end.
