[r]
(1)CHƯƠNG TRÌNH ƠN TẬP MƠN TIN HỌC
Câu 1: Nêu cú pháp câu lệnh điều kiện, câu lệnh lặp?
……… ……… ……… Câu 2: Chuyển đổi biểu thức sau dạng pascal?
y y
x
5 18
) 10
(
……… ……… ……… Câu : Viết chương trình nhập vào cạnh tam giác, kiểm tra xem ba số có phải độ dài cạnh tam giác hay không?
Program tam_giac;
Uses crt;
Var a, b, c: real;
Begin
Clrscr;
Write(‘Nhap vao so a, b, c:’) ; readln( a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln(‘a,b, c la canh cua tam giac’)
Else writeln( ‘a,b,c khong phai la ba canh cua mot tam giac’);
Readln;
End
Câu Em viết chương trình tính tổng số tự nhiên từ đến 1000
Program tinh_tong; Var i, S: Integer; Begin
S:=0;
For i:= to 1000 S:= S + i;
Wirteln(‘ tong cac so tu nhien tu den 1000 la:’,S); Readln;