Chào mừng quý vị đến với Website Phòng GD&ĐT Huyện Quảng Trạch.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Bài tập tin 8
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Đinh Thị Giang (trang riêng)
Ngày gửi: 16h:06' 20-04-2016
Dung lượng: 168.6 KB
Số lượt tải: 111
Nguồn:
Người gửi: Đinh Thị Giang (trang riêng)
Ngày gửi: 16h:06' 20-04-2016
Dung lượng: 168.6 KB
Số lượt tải: 111
Số lượt thích:
0 người
Bài toán: Tìm số kề sau. Cho một số tự nhiên N (0 1100; 1321 ---> 2113
program CT; type day=array[1..1000]of integer; dai=array[1..1000]of longint; var i,j,k,x:integer; a:day; b:dai; n,z,g:longint; f1,f2:text; procedure hoanvi(a:day;m:integer); var i,j,tg:integer; begin if m=1 then begin k:=k+1; b[k]:=0; for i:=1 to x do b[k]:=10*b[k]+a[i]; end else for i:=m downto 1 do begin tg:=a[i]; a[i]:=a[m]; a[m]:=tg; if m>1 then hoanvi(a,m-1) end; end; begin assign(f1,`d: hu.inp`);reset(f1); assign(f2,`d: hu.out`);rewrite(f2); read(f1,n); g:=0; z:=n; k:=0; i:=1; while n<>0 do begin a[i]:=n mod 10; n:=n div 10; i:=i+1; end; x:=i-1; hoanvi(a,x); for i:=1 to k-1 do for j:=i+1 to k do if b[i]>b[j] then begin n:=b[i]; b[i]:=b[j]; b[j]:=n; end; for i:=1 to k do if b[i]=z then g:=b[i+1]; write(f2,g); close(f1); close(f2); end.
2. Nhập vào một số nguyên dương N, in ra các ước số nguyên tố của nó. VD N=200 --> ước số nguyên tố là: 2 và 5
Program Bai_VD; Uses crt; Var n:integer; Function KTNT (n:integer):boolean; Var dem,i:integer; Begin dem:=0; For i:=1 to n do If n mod i=0 then dem:=dem+1; if dem=2 then KTNT:=True else KTNT:=False; End; Procedure In_so (n:integer); Var i:integer; Begin Write (`Cac uoc so nguyen to cua `,n,` la: `); For i:=1 to n do If (n mod i=0) and (KTNT (i)) then Write (` `,i); End; Begin Clrscr; Write (`Nhap vao so n: `); Readln (n); Writeln; In_so (n); Readln; End.
3. Nhập vào một dãy N số nguyên. Tìm và in ra số lớn thứ nhì dãy số đó?
program gtln; type mmc=array[1..100] of longint; var a:mmc; max1,max2:longint; i,n:integer; begin write(`Nhap so phan tu cua day n=`); readln(n); for i:=1 to n do begin write(`a[`,i,`]=`); readln(a[i]); end; max1:=a[1]; for i:=2 to n do if max1/
/
program bai_tap_phan_so; uses crt; var f1,f2: text; tu,mau,tem,a,b,c,d: integer; function uc(a,b:integer): integer; begin while a<>b do if a>b then a:=a-b else b:=b -a; uc:=a; end; {chuong trinh chinh} BEGIN clrscr; assign(f1,`d:phanso.inp`);reset(f1); assign(f2,`d:phanso.out`
program CT; type day=array[1..1000]of integer; dai=array[1..1000]of longint; var i,j,k,x:integer; a:day; b:dai; n,z,g:longint; f1,f2:text; procedure hoanvi(a:day;m:integer); var i,j,tg:integer; begin if m=1 then begin k:=k+1; b[k]:=0; for i:=1 to x do b[k]:=10*b[k]+a[i]; end else for i:=m downto 1 do begin tg:=a[i]; a[i]:=a[m]; a[m]:=tg; if m>1 then hoanvi(a,m-1) end; end; begin assign(f1,`d: hu.inp`);reset(f1); assign(f2,`d: hu.out`);rewrite(f2); read(f1,n); g:=0; z:=n; k:=0; i:=1; while n<>0 do begin a[i]:=n mod 10; n:=n div 10; i:=i+1; end; x:=i-1; hoanvi(a,x); for i:=1 to k-1 do for j:=i+1 to k do if b[i]>b[j] then begin n:=b[i]; b[i]:=b[j]; b[j]:=n; end; for i:=1 to k do if b[i]=z then g:=b[i+1]; write(f2,g); close(f1); close(f2); end.
2. Nhập vào một số nguyên dương N, in ra các ước số nguyên tố của nó. VD N=200 --> ước số nguyên tố là: 2 và 5
Program Bai_VD; Uses crt; Var n:integer; Function KTNT (n:integer):boolean; Var dem,i:integer; Begin dem:=0; For i:=1 to n do If n mod i=0 then dem:=dem+1; if dem=2 then KTNT:=True else KTNT:=False; End; Procedure In_so (n:integer); Var i:integer; Begin Write (`Cac uoc so nguyen to cua `,n,` la: `); For i:=1 to n do If (n mod i=0) and (KTNT (i)) then Write (` `,i); End; Begin Clrscr; Write (`Nhap vao so n: `); Readln (n); Writeln; In_so (n); Readln; End.
3. Nhập vào một dãy N số nguyên. Tìm và in ra số lớn thứ nhì dãy số đó?
program gtln; type mmc=array[1..100] of longint; var a:mmc; max1,max2:longint; i,n:integer; begin write(`Nhap so phan tu cua day n=`); readln(n); for i:=1 to n do begin write(`a[`,i,`]=`); readln(a[i]); end; max1:=a[1]; for i:=2 to n do if max1
/
program bai_tap_phan_so; uses crt; var f1,f2: text; tu,mau,tem,a,b,c,d: integer; function uc(a,b:integer): integer; begin while a<>b do if a>b then a:=a-b else b:=b -a; uc:=a; end; {chuong trinh chinh} BEGIN clrscr; assign(f1,`d:phanso.inp`);reset(f1); assign(f2,`d:phanso.out`
Các ý kiến mới nhất