De cuong on tap tin 8 HK2

Câu hỏi ôn tập hk2
Bài 1 : Viết chương trình tính tiền điện với tiền điện = số kwh * 1,500 , số kwh nhập từ
bàn phím
Bài 2 : Nhập họ và tên , năm sinh in ra số tuổi
Bài 3: Viết chương trình tính điểm trung bình của Toán , Lý , Hóa
Bài 4 : Viết chương trình tính tổng bình phương 2 số nguyên , 2 số nguyển nhập từ bàn
phím
Bài 5 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho
2 hay không .
Bài 6 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ bé đến lớn
Bài 7 : Viết chương trình tính tổng từ 1 --> 50
Bài 8 : Nhập vào 1 số nguyên N . In ra tổng các số từ 1/1.2+1/2.3+1/3.4+…+1/n(n+1) .
Bài 9 : In ra bảng cưu chương N , N nhập từ bàn phím
Bài 10:Nhập vào 1 số nguyên N < 20 . In ra tích các số chẵn tứ 1 đến N .
Bài tập 11:Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi
biết ba cạnh của tam giác.
Bài tập 12:Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n (Với n được
nhập).
Bài tập 13:Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại. Ví dụ
nhập 3, 5, 7 thì in ra 7, 5, 3.
Bài tập 14: Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa
nhập.
Bài tập 15: Viết chương trình nhập dãy n số và in ra dãy số, giá trị lớn nhất của dãy số
vừa nhập.


Bài 1: program vd;
uses crt;
var tiendien,kwh:real;
begin
writeln('Đây là chương trình tính tiền điện');

writeln('Nhập kwh=');readln(kwh);
tiendien:=kwh*1500;
write('tiendien=',tiendien:5:2);
end.
Bài 2 : program vd;
uses wincrt;
var a,tuổi:integer;
b:string;
begin
writeln('HovaTen');readln(b);
writeln('Nhap Nam sinh');readln(a);
tuổi:=2016-a;
writeln('tuổi=',tuổi);
end.
Bài 3: program dtb;
uses crt;
var Toán,Lý,Hóa,tb:real;
begin
writeln('Nhập điểm toán=');readln(Toán);
writeln('Nhập điểm lý=');readln(Lý);
writeln('Nhập điểm hóa=');readln(Hóa);
tb:=(Toán+Lý+Hóa)/3
write('Điểm trung bình của Toán , Lý , Hóa=',tb:5:2);
end.
Bài 4: program vd;
uses crt;
var songuyen1,songuyen2,tbp:real;
begin
writeln('Nhập số nguyên thứ nhất=');readln(songuyen1);
writeln('Nhập số nguyên thứ hai=');readln(songuyen2);

tbp:=(songuyen1+songuyen2)*( songuyen1+songuyen2);
write('Tổng bình phương 2 số nguyên=',tbp:5:2);
end.
Bài 5 : program vd;
uses crt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If N mod 2 = 0 then write('N chia hết cho 2');
If N mod 2 <> 0 then write('N không chia hết cho 2');
readln
end.
Bài 6: program vd;
uses crt;
var A,B,C:integer;
begin
write('Nhập số nguyên thứ nhất=');readln(A);
write('Nhập số nguyên thứ hai=');readln(B);
write('Nhập số nguyện thứ ba=');readln(C);
If (A > B) and (A > C) and (B > C) then write('C,B,A');
If (A > C) and (A > B) and (C > B) then write('B,C,A');
If (B > A) and (B > C) and (A > C) then write('C,A,B');
If (B > C) and (B > A) and (C > A) then write('A,C,B');


If (C > A) and (C > B) and (A > B) then write('B,A,C');
If (C > B) and (C > A) and (B > A) then write('A,B,C');
end.
Bài 7: program vd;
uses crt;

var i:integer;
Tổng:longint;
begin
Tổng:=0;
writeln('Đây là chương trình tính tổng từ 1 đến 50');
For i:= 1 to 50 do Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.
Bài 8: program vd;
uses crt;
var I,n:integer;
Tổng:longint;
begin
Tổng:=0;
writeln('Nhap so so hang n = ‘); readln(n);
For i:= 1 to n do Tổng:=Tổng+1/i*(i+1);
write('Tổng=',Tổng:6:2);
readln
end.
Bài 9:program vd;
uses crt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
For i:=1 to 10 do writeln(N,' x ' , i:2, ' = ' , N*i:3);
end.
Bài 10: program vd;
uses crt;
var N,i:integer;
Tích:longint;

begin
writeln('Nhập số nguyên =');readln(N);
Tích:=1;
If N < 20 then
For i:=1 to N do If i mod 2 = 0 then Tích:=Tích*i;
write('Tích=',Tích);
end.
Bài 11: Program Tam_giac_vuong;
uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln('La tam giac vuong')
else
writeln('Khong phai la tam giac vuong');
readln
end.
Bài 12: Program In_So_Le;
Uses crt;
var S,i,n: integer;


Begin
Clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do if i mod 2 =1 then S:= S+i;
Writeln('Tong cac so le nho hon ',n,' la: ',S);

readln
end.
Bài 13: Program mang_1;
uses crt;
var n, i: integer;
M: array[1..100] of real;
Begin
write('Nhap so n: ');readln(n);
for i:=1 to n do
Begin
write('M[',i,']='); readln(M[i]);
end;
for i:= n downto 1 do write(m[i],’ ,’);
readln
end.
Bài 14:Program Mang_Tong_Le;
uses crt;
var i,n:byte;
M:array[1..100] of integer;
tong:longint;
begin
write('Nhap so phan tu cua day: ');readln(n);
for i:=1 to n do
begin
write('M[',i,']'); readln(M[i]);
end;
tong:=0;
for i:=1 to n do if M[i] mod 2 =1 then
tong:=tong+M[i];
write('Tong cac so le trong day la: ',tong);

readln
end.
Bài 15: Program solonnhat;
uses crt;
var i,n:byte;
M:array[1..100] of integer;
Max:longint;
begin
write('Nhap so phan tu cua day: ');readln(n);
for i:=1 to n do
begin
write('M[',i,']'); readln(M[i]);
end;
max:=M[1];
for i:=2 to n do if M[i]>max then max:=M[i];
write('Số lon nhat trong day vua nhap la’,max:3);
readln
end.