Bài tập tin 8
Chia sẻ bởi Đinh Thị Giang |
Ngày 17/10/2018 |
38
Chia sẻ tài liệu: Bài tập tin 8 thuộc Tin học 8
Nội dung tài liệu:
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`
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Đinh Thị Giang
Dung lượng: 168,61KB|
Lượt tài: 1
Loại file: docx
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)