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

ĐỀ THI KHẢO SÁT CHỌN ĐỘI TUYỂN HỌC SINH GIỎI DỰ THI CẤP TỈNH NĂM HỌC : 2015-2016

ĐỀ THI KHẢO SÁT CHỌN ĐỘI TUYỂN HỌC SINH GIỎI DỰ THI CẤP TỈNH
NĂM HỌC : 2015-2016
Bài 1: (4đ)
Viết chương trình nhập vào số nguyên dương N(N<100) và dãy A gồm N số nguyên dương. In ra màn hình các kết quả sau
-          Tính tổng các số nguyên dương vừa nhập trong dãy A
-          Đếm xem trong dãy A có bao nhiêu số nguyên dương chẵn
-          Tạo mảng mới B có N phần tử và mỗi phần tử trong mảng b gấp 3 lần  các phần tử twong ứng trong mảng A
-          sắp xếp mảng B theo thứ tự tăng dần
Bài 2: (3 đ)
Bạn Nam thường xuyên thi lập trình trên mạng. Vì đạt được thành tích cao nên Nam được gửi tặng một phần mềm diệt Virus. nhà sản xuất phần mềm cung cấp cho Nam một mã số là một số nguyên dương N có không quá 255 chữ số. Để cài đặt phần mềm , Nam phải nhập vào mật khẩu của phần mềm. mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng các giá trị các chữ số của N.
yêu cầu: hãy tìm số nguyên dương M
Dữ liệu vào: cho trong file văn bản MK.INP có cấu trúc như sau:
-          Dòng 1: ghi số nguyên dương N.
Dữ liệu ra: Ghi ra file văn bản MK.OUT theo cấu trúc như sau
-          Dòng 1: Ghi số nguyên dương M tìm được
Ví dụ:
MK.INP
MK.OUT
84915388247
59
Bài 3: (3đ)
Viết chương trình nhập vào xâu kí tự bất kỳ S, sau đó in ra màn hình 2 kết quả: Xâu con S1 gồm các ký tự trong xâu S và tổng các giá trị các ký tự số trong xâu S.
Ví dụ: xâu S=’A312BC24DE’
xâu con S1=’ABCDE’
Tổng:= 3+1+2+2+4=12

----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...