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

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

(Đề thi HSG cấp huyện lớp 8 năm 2014-2015 ; Huyện Tây Hòa)
Bài 1;Viết chương trình nhập vào từ bàn phím một dãy số nguyên cho đến khi gặp số 0. hãy in ra màn hình
a. Tổng các số dương
b. Trung bình cộng các số âm
INPUT
OUTPUT
-9 -5 10
Tong cac so duong =10
trung binh cong cua cac so am=-7.00

Bài 2:Viết chương trình cho phép nhập số nguyên dương N rồi thực hiện
a. cho biết N có phải là lũy thừa ba của một số hay không
b. Viết N dưới dạng một lũy thừa với số mũ là số tự nhiên của 5, viết không nếu N không phải là lũy thừa của 5
c. Tìm số dư khi N mũ n chia cho 7
INPUT
OUTPUT
Giải thích
N=8
CO
KHONG
1
8 la lũy thừa 3 của một số (8=23)
8 không là lũy thừa của 5
88 chia 7 dư 1
N=25
KHONG
5^2
4
25 không là lũy thừa 3 của một số
25 là lũy thừa của 5
2525 chia 7 dư 4

Bài 3. Viết chương trình nhập từ bàn phím dãy số thực co N phần tử (1<N<100). hãy in ra màn hình
a. dãy số ban đầu đã nhập
b. dãy số đã sắp xếp lại. biết sắp xếp các phần tử theo nguyên tắc sau: a1 đổi chỗ cho an, a2 đổi chỗ cho an-1,....
INPUT
OUTPUT
-9.10 -9.11 3.20 3.19
Dãy số ban đầu đã nhập: -9.10 -9.11 3.20 3.19
Day so da sap xep lai: 3.20 3.19 -9.11 -9.10

----Hết----

Nhận xét

Đăng 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...