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

BÀI TẬP VỀ NHÀ (25/05/2016)


Bài 1:   Cho  tệp tin input.txt chứa dữ liệu như sau
Dòng 1: chứa 1 câu tối đa 255 từ
Yêu cầu:
Xuất dữ liệu ra tệp OUTPUT.txt dữ liệu như sau
-         dòng 1: xâu vừa đọc mà không có bất kỳ kí tự rỗng nào
-         dòng 2: tất cả các kí tự số có trong xâu
-         dòng 3: tổng tất cả các kí tự số
INPUT.TXT
OUTPUT.TXT
Chao cac ban lop 12 a 11
Chaocacbanlop12a11
1211
5
 Bài 2:  Cho tệp inp.inp chứa dãy số;Yêu cầu :
- Tính trung bình cộng của các số nguyên dương, ghi vào dòng 1 tệp out.out
- Dòng 2: in ra tất cả các số song tố có trong dãy, nếu không có ghi không;(số song tố là số mà tổng các chữ số của nó cũng là một số nguyên tố)
inp.inp
out.out
 5 12 6 3 9  7
…..
…….

Bài tập 3: Viết chương trình tính điểm trung bình môn toán cho tất cả học sinh lớp 9a, gồm N học sinh; điểm trung bình được tính như sau;

Dtb= (Điểm kt thường xuyên*1+ điểm kt định kỳ *2 + điểm kt học kỳ *3)/tổng hệ số;
Giả sử môn toán có: 2 cột kt  thường xuyên, 1 cột kt định kỳ, 1 cột kiểm tra học kỳ;
Viết chương trình  thực hiện:

  1. nhập danh sách học sinh, điểm kiểm tra của từng học sinh
  2. in ra danh sách các học sinh đạt loại giỏi
  3. nhập vào  điểm số k, in ra danh sách các học sinh đạt  điểm trung bình lớn hơn hoặc bằng K; nếu không có thông báo khô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...