bài 17 : bài tập với tệp
... để ghi; REWRITE (tep2); CÁC BƯỚC: THỂ HIỆN BẰNG PASCAL Nhấn F3 để mở tệp BAITAP.INP xem nội dung. Nội dung tệp BAITAP.INP Nhap vao bao nhieu so : 6 Nhap so thu 1 = 5 Nhap so thu 2 = 7 Nhap ... TỆP Bài 1: Đọc vào một dãy n số nguyên (n<=100), ghi dãy số đó vào tệp có tên BAITAP.INP - Khai báo; Program bai1 ; Uses crt; Var tep2: TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; - Gán ... = 8 - - Khai báo; Program Bai2 ; Uses crt; Var tep: TEXT; A:ARRAY[1 100] of Integer; S,i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN(tep, 'D:\TP\BAITAP.INP’); - Mở tệp ra để đọc; RESET(tep); B...
Ngày tải lên: 24/06/2013, 01:25
bài tập câu lệnh While
... A A<>B A>B USCLN Laì A Bàõt âáöu Sai Âuïng Âuïng Sai 1. Cuù phaùp: WHILE <ióửu kióỷn> DO <Cỏu lóỷnh>; 2. Giaới thờch: * WHILE, DO: Tổỡ khoaù lóỷnh * ióửu kióỷn: Mọỹt bióứu thổùc quan ... USES CRT; VAR N,I : INTEGER; BEGIN WRITE('NHAP SO TU NHIEN N: '); READLN(N); I:=2; WHILE N MOD I <>0 DO I:=I+1; IF I=N THEN WRITELN('SO:', N, ' LA SO NGUYEN TO') ELSE ... WRITE('NHAP SO NGUYEN DUONG A:'); READLN(A); WRITE('NHAP SO NGUYEN DUONG B:'); READLN(B); WHILE A<>B DO IF A>B THEN A:=A-B ELSE B:=B-A; WRITELN('UOC SO CHUNG LON NHAT LA:',A); ...
Ngày tải lên: 21/08/2013, 22:10
Thiết kế một số bài giảng giúp học sinh giải bài tập hình học phẳng ở trường trung học phổ thông với sự hỗ trợ của phần mềm vi thế giới
Ngày tải lên: 09/11/2012, 10:54
Tuyển chọn và xây dựng hệ thống bài tập hóa học gắn với thực tiễn dùng trong dạy học hóa học ở trường THPT
Ngày tải lên: 30/01/2013, 11:42
Xây dựng hệ thống bài tập trắc nghiệm khách quan về hóa học có nội dung gắn với thực tiễn
Ngày tải lên: 30/01/2013, 11:53
Bạn có muốn tìm thêm với từ khóa: