Question

Câu 1:Viết chương trình in ra họ tên của mình?

Câu 2:Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh là a,b(được nhập từ bàn phím)

Câu 3:Viết chương trình tính xem 1 tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác(hướng dẫn-nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a^2=b^2+c^2 hoặc b^2=a^2+c^2 hoặc c^2=a^2+b^2 thì là tam giác vuông và ngược lại)

Câu 4:Viết chương trình xét xem tam giác có là tam giác cân hay không khi biết 3 cạnh(huongs dẫn-Nhập 3 cạnh của tam giác vào 3 biến a,b,c;-Nếu a=b hoặc c=a thì tam giác là tam giác cân và ngược lại)

Câu 5:Dùng lệnh for...do viết chương trình tính tổng của n số tự nhiên đầu tiên với n là số tự nhiên được nhập từ bàn phím

Câu 6:Dùng lệnh for...do tính tổng S=1/2+1/3+1/4+...+1/100

Câu 7:Viết chương trình in ra tất cả các ước của một số n(với n là số được nhập từ bàn phím)

Hướng dẫn:Cho biến i chạy từ 1đến n. Nếu n chia hết cho i thì in ra i

Câu 8:Viết chương trình in ra các số lẻ<hoặc bằng n(n được nhập từ bàn phím)

Hướng dẫn. Sử dụng biến thực số lẻ đầu tiên=1.Số lẻ sau =số lẻ trước+2

-Cho biến i có giá trị ban đầu =1

-Dùng vòng lặp While...do với điều kiện i<n và công việc bên trong là in i và tăng i lên 2

Answer 1

Câu 1:Chương trình in ra họ tên:

program ho_ten;

uses crt;

begin

clrscr;

write('Ho:Tran_____Ten:Minh Dat');

readln;

end.

Answer 2

Var a,b,S,C : real;

Begin

Write (' chieu dai : '); Readln(a);

Write (' chieu rong : ');Readln(b);

S:=1;C:=1;

S:=a*b;

C:=(a+b)*2;

Writeln(' Dien tich hcn : ',S);

Writeln(' chu vi hcn :',C);

Readln;

end.

Answer 3

Câu 3:

Var a,b,c :real;

Begin

Write ('nhap canh 1: '); Readln(a);

Write (' nhap canh thu 2 :');Readln(b);

Write (' nhap canh thu 3 :'); Readln(c);

If ((a+b) >c ) and ((a+c)>b) and ((b+c)>a) then

If (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then Writeln (' ba canh vua nhap la tam giac vuong ')

else Writeln(' ba canh vua nhap khong phai tam giac vuong')

else (' ba canh vua nhap khong phai la tam giac ');

Readln;

end.

Answer 4

Caau 4:

Var a,b,c :real;

Begin

Write ('nhap canh 1: '); Readln(a);

Write (' nhap canh thu 2 :');Readln(b);

Write (' nhap canh thu 3 :'); Readln(c);

If ((a+b) >c ) and ((a+c)>b) and ((b+c)>a) then

If (a=b) or (b=c) or ( a=c) then Writeln (' ba canh vua nhap la tam giac can')

else Writeln(' ba canh vua nhap khong phai tam giac can')

else (' ba canh vua nhap khong phai la tam giac ');

Readln;

end.

Answer 5

Cau 5:

Var i,n,S:integer;

Begin

Write(' nhap n = ');

Readln(n);

S:= 0;

For i:= 1 to n do S:= S+i;

Writeln(' tong cua ',n,' so tu nhien la :',S);

Readln;

end.

Answer 6

Cau 6:

Var i:integer;

S:real;

Begin

S:= 0;

For i:= 1 to 100 do S:= S+1/i;

Writeln(' tong cua ',n,' so tu nhien la :',S);

Readln;

end.

Answer 7

Var i,n:integer;

Begin

Write(' nhap n = ');

Readln(n);

For i:= 1 to n do If n mod i = 0 then Write ('uoc cua ',n,' la :',i:3);

Readln;

end.

Answer 8

Cau 8:

Var i,n :integer;

Begin

Write(' nhap n = ');

Readln(n);

i:=1;

While i<=n do If n mod i=1 then Writeln (' cac so le <=',n,' la : ',i:3);

Readln;

end.