1. Trang chủ
  2. » Tất cả

Tëp Huên Tin Häc Trî

12 2 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 12
Dung lượng 92,5 KB

Nội dung

TËp huÊn Tin häc trÎ Båi d ìng Tin häc trÎ KiÕn thøc c¬ b¶n C¸c kiÓu d÷ liÖu ® häc +KiÓu sè nguyªn Byte, Word, Sortint,Integer, Longint + KiÓu sè thùc Read, Double + KiÓu Boolean True, False(Sai) + ki[.]

Bồi dỡng Tin học trẻ Kiến thức bản: - Các kiểu liệu đà học: +Kiểu số nguyên: Byte, Word, Sortint,Integer, Longint + KiÓu sè thùc: Read, Double + KiĨu Boolean: True, False(Sai) + kiĨu Char b¶ng m· ASCII + Kiểu String: DÃy ký tự không 255 ký tự +Kiểu liệt kê: VD: Gioitinh:(Nam,nu); h:(-1,0,1,0); +Kiểu đoạn con: chuso:’0’ ‘9’; chuthuong: ‘a’ ‘z’;’ Chuhoa: ‘A’ ‘Z’ - ThiÕt kÕ bµi sư dơng xư lý tƯp Program; Uses crt; Const fi= ‘cumtu.inp’; fo= ‘cumtu.out’; Var f:Text; Procedure Doctep; Var Begin Assign(f,fi); Reset(f); End; Procedure xuly; Var Begin End; Procedure Ketqua; Var Begin Assign(f,fo); Rewrite(f); Close(f); End; BEGIN Clrscr; Doctep; Xuly; Ketqua; END - Các câu lệnh lặp: + For to + While +Re until +Break: Là vòng lặp chứa +Exit +Halt - Copy doan chơng trình: CTRL KH - Lu kết quả: F2 - Dóng hình xem ket quả: Alt+F3 - Tạo tệp CUMTU.INP, CUM.OUT: F3, lu F2 - Chạy kết dòng lệnh Alt +F5, - Đa trỏ chuột vào tệp CUMTU.OUT phần viết chơng trình để xem kết Dạng mảng: Bài 1: Cho xâu S không 250 ký tự HÃy xác định xâu S cã xt hiƯn cơm tõ “hoc sinh gioi “ hay không Nếu có xác định số lơng cụm từ xuất vị trí bắt đầu xuất cụm từ xâu S Dữ liệu vào tệp văn CUMTU.INP ghi xâu ký tự S Dữ liệu tệp văn CUMTU.OUT có cấu tróc - NÕu cơm tõ “ hoc sinh gioi” kh«ng xuất xâu S ghi không xuất - Ngợc lại ghi vị trí bắt đầu xuất cụm từ, vị trí ghi dòng, dòng cuối ghi số lợng xuất program cumtu; uses crt; const Nmax=1000; fi='cumtu.inp'; fo='cumtu.out'; var f:text; s,s1:string; i,dem:integer; kq:array [1 Nmax] of integer; procedure doctep; begin assign(f,fi); reset(f); readln(f,s); close(f); end; procedure xuly; var j:integer; begin s1:='hoc sinh gioi'; dem:=0; for i:=1 to length(s) if s[i]=s1[1] then begin j:=1; while (j

Ngày đăng: 19/01/2023, 11:14

w