0

bai tap voi when while until

bài 17 : bài tập với tệp

bài 17 : bài tập với tệp

Tin học

... để ghi;REWRITE (tep2);CÁC BƯỚC:THỂ HIỆN BẰNG PASCALNhấn F3 để mở tệp BAITAP.INP xem nội dung.Nội dung tệp BAITAP.INPNhap vao bao nhieu so : 6Nhap so thu 1 = 5Nhap so thu 2 = 7Nhap ... TỆPBà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...
  • 9
  • 507
  • 1
bài tập câu lệnh While

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

Tin học

... AA<>BA>BUSCLN Laì ABàõt âáöuSaiÂuïngÂuïngSai 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; BEGINWRITE('NHAP SO TU NHIEN N: '); READLN(N);I:=2; WHILE N MOD I <>0 DOI:=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);...
  • 19
  • 783
  • 3

Xem thêm