Chuyển đến nội dung chính

Đề thi HSG môn Tin Học cấp huyện lớp 9 năm 2014-2015 ; Huyện Tây Hòa

(Đề thi HSG cấp huyện lớp 9 năm 2014-2015 ; Huyện Tây Hòa)
Bài 1: (5đ) Phương trình bậc nhất
Viết chương trình giải và biện luận phương trình bậc nhất ax+b=0
yêu cầu:
-         nhập dữ liệu 2 hệ số a,b
-         Xuất ra màn hình: Kết quả của phương trình (chỉ lấy đến 2 chữ số thập phân)
Ví dụ:                   Nhap A=2
Nhap B=3
Phương trình có nghiệm x=-1.50
Bài 2: (5đ) Số tự nhiên N
Viết chương trình nhập vào một số tự nhiên n và thực hiện 3 yêu cầu sau:
-         Kiểm tra tính chẵn lẻ
-         Xem số đó có chia hết cho 3 không
-         Tổng các chữ số đó có chia hết cho 6 không?
Ví dụ:nhập số N=15 thì kết quả trên màn hình là
15 la so le15 chia het cho 3
tong cac so 15 la 6 chia het cho 6
Bài 3: (5đ) Mảng 1 chiều
Viết chương trình nhập mảng một chiều gồm N phần tử (N<=50) với kiểu dữ liệu số nguyên và thực hiện:
-         Đếm số lượng phần tử dương có trong mảng  và cho kết quả ra màn hình
-         Tìm vị trí phần tử =K Với K nhập từ bàn phím, nếu có nhiều phần tử thì hiển thị ra màn hình tất cả  các vị trí phần tử K đó.
Ví dụ: Nhap so luong phan tu cua mang: 5
nhap phan tu thu 1 A[1]  5
nhap phan tu thu 2 A[2]  -3
nhap phan tu thu 3 A[3]  4
nhap phan tu thu 4 A[4]  6
nhap phan tu thu 5 A[5]  4
So luong phan tu duong cua mang la: 4
nhap gia tri can tim vi tri k=4
 cac vi tri xuat hien cua 4 trong mang la vi tri thu 3 5
Bài 4: (5đ) Số PALINDROM
Một số nguyên gọi là Palindrom nếu nó đọc từ trái sang phải cũng bằng đọc từ phải sang trái. Ví dụ 121 là so palindrom
yêu cầu:
Viết chương trình nhập số nguyên n, kiểm tra số nguyên n có phải là số palindrom hay không và cho kết quả ra màn hình.
Ví dụ: nhap so n=121
So n=121 la so palindrom      
-----hết----



Nhận xét

Bài đăng phổ biến từ blog này

DÃY ĐAN DẤU TRONG PASCAL

DÃY ĐAN DẤU TRONG PASCAL Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau. ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu Thủ tục kiểm tra dãy đan dấu trong dãy số: procedure dandau; var i,j:integer;     kt:boolean; begin kt:=true; for i:=1 to N-1 do                 begin                 j:=i+1;                 if a[i] *a[j] >0 then kt:=false;                 end; If kt=true then write('Day A la day dan dau') else write('Day A khong phai day dan dau'); end;

Tam giác số (Pascal)

TAM GIÁC SỐ  (Câu 4. Hội thi Tin Học Trẻ Phú Yên lần thứ XIX - năm 2016)                              7                          3       8                      8      1       0                   2     7        4       4                 4    5      2       6       5 Cho một tam giác gồm các số nguyên không âm (xem hình trên). Hãy viết chương trình tính tổng lớn nhất của các số nằm trên lộ trình từ đỉnh xuống: - Tại mỗi bước đi, lộ trình có thể đi xuống phía bên trái hoặc xuống phía bên phải. - Số hàng trong tam giác lớn hơn...

VÒNG LẶP KHÔNG XÁC ĐỊNH WHILE..DO; REPEAT .. UNTIL

VÒNG LẶP KHÔNG XÁC ĐỊNH  WHILE..DO; REPEAT .. UNTIL - Vòng lặp While..do While <điều kiện > Do  <câu lệnh>; Câu lệnh sau do được thực hiện khi điều kiện được thỏa mãn (điều kiện =true); vòng lặp kết thúc khi điều kiện không thỏa (điều kiện =false) - Vòng lặp Repeat .. until; Repeat <câu lệnh>; Until <điều kiện>; Lặp lại câu lệnh cho đến khi nào  thỏa mãn điều kiện  (điều kiện =true) thì dừng lại;  Bài tập: Nhập vào một số nguyên A thỏa mãn (0<A<100), Tính tổng các số nguyên từ 1 đến A (S=1+2+...+A). Vận dụng câu lệnh While .. do uses crt; var A,I:  Integer; S:longint; begin          a:=0;          while not ((a>0) and (a<100)) do          begin          write('Nhap gia tri cua A:'); read(A);           end;          s:=0...