bai tap voi when while until

60 Bài tập với vectơ!

60 Bài tập với vectơ!

Ngày tải lên: 07/06/2013, 01:26

8 1,7K 15
bài 17 : bài tập với tệp

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

9 511 1
bài tập câu lệnh While

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

19 783 3
Bài 16 Bài tập với tệp

Bài 16 Bài tập với tệp

Ngày tải lên: 15/07/2014, 11:00

9 1,6K 32
Bài tập với tệp

Bài tập với tệp

Ngày tải lên: 16/07/2014, 20:00

9 846 2
Bài tập với wish ppt

Bài tập với wish ppt

Ngày tải lên: 02/08/2014, 02:20

9 466 4

Bạn có muốn tìm thêm với từ khóa:

w