... a:array [1 100] of longint; st:string; function DOIXUNG(s:string):boolean; var s1:string; i,m,n,kt1,kt2:integer; begin s1:=''; for i:= length(s) downto 1 do s1:=s1+s[i]; val(s1,m,kt1);val(s,n,kt2); ... của mảng lên đầu mảng và in mảng ra màn hình. 1 While (luu>0) do Begin inc(k); b[k]:=luu mod 10 ; luu:=luu div 10 ; End; if k> 1 then begin for h:= 1 to k do t:=t+ b[h]*mu (10 ,k-h); ... nguyên tố tơng đơng với n . 11 / Tìm số nhỏ nhất < ;10 000 không có ớc nguyên tố nào khác 3,5,7 12 / Tìm số nhỏ nhất > ;10 000 không có ớc nguyên tố nào khác 3,7 ,11 13 / Đọc ra tất cả các sô gần...
... Nếu mảng không phải là mảng tăng dần, hãy sắp xếp nó thành mảng tăng dần.Ví dụ: Mảng A: 1 15 6 7 4 7 6 15 1 Kết quả: Mang A doi xung, Mang A khong phai la mang tang dan Mảng A: 2 5 6 7 14 17 ... thay the thanh y } Một số bàitập lập trình Pascal Created by NgoHungVấn đề 3: Mảng1 chiều Bài toán số 3 .1: Nhập xuất và tính tổng các phần tử trong mảng. Ví dụ: A: 1 5 6 7 4 Kết quả: Tong ... quả: Vi tri xuat hien X la 1 Ket qua thay the: 1 15 6 7 4 1 15 15 1 1Hướng dẫn: - Xây dựng hàm tìm kiếm giá trị X trong mảng A, N phần tử. Sử dụng vòng lặp từ 0 đến N -1 để kiểm tra tất cả các...
... con khác Bài tậpMảng1chiều _______________________Thuật toán vềmảng một chiều End;Procedure XepB1; Var i,j,k: Integer; Begin i := 1; While i<=T1 do Begin If B[i] =1 then Inc(i) ... toán vềmảng một chiều + Cách 1 : Mảng A có kích thớc là : Sizeof(A) Byte+ Cách 2 : Kích thớc Mảng = Kích thớc 1 phần tử * Số lợng phần tử .VII / Vấn đề mảng và tự điển :Trong một số bàitập ... Tên_biến _Mảng : ARRAY[m1 . . m2,n1 . . n2] of Kiểu_Phần_tử ;Lu ý : m1 là chỉ số dòng đầu và m2 chỉ số dòng cuốin1 là chỉ số cột đầu và n2 chỉ số cột cuốiIV / Cách truy nhập Mảng :Kí hiệu mảng1 chiều...
... nhất đó (m,n< =10 0). Chẳng hạnDULIEU.INP ⇒ DULIEU.OUT6 5 343 6 8 12 2 2 5 67 5 6 10 68 2 4 5 1 3 5 6 1 3 10 12 3 1 88 8 8 9 1 Program Vi_du _10 ;Varf,g: Text;S:array [1 100] of real;T: ... hoa. Bài tập 6 .17 : Viết chương trình thực hiện phép nhân 2 số nguyên lớn. Gợi ý:- Viết hàm để nhân một số lớn với số có 1 chữ số.- Áp dụng hàm tính tổng 2 số lớn (xem bàitập 10 ). Bài tập 6 .18 : ... Length(st1)>Length(st2) Then For i: =1 To Length(st1)-Length(st2) Do st2:='0'+st2 Else For i: =1 To Length(st2)-Length(st1) Do st1:='0'+st1;End;Function Cong(st1,st2:string):string;Var...
... NI DUNGBCDEFGCHIGEJK 1 .bài toán sắp xếp.5L"#&*&+,A !"#$%&'$()#*+,$-.EãkAQb0,80Ec'<:de' )10 DfgE8h0b0,80eDEi:gh0E8b0,80Df###?LCM4N94L5L ... $<R,5N2,&*L0L"ST*.$<Q*"5L"#&*&+,%L"(P$$6#*0L"ST*.$<Q*" >&9$?@ABCDEFG bài toán sắp xếp bài toán tìm max, min NỘI DUNGBCDEFGCHIGEJK(tương ... DUNGBCDEFGCHIGEJK? V W @ XA@ ? Y X Z VjjUjjjj?UW5N5N 1. TìM GIá TRị MAX.?LCM4N94L5L O&$6#*%L"(P$$6#*@L Q, .&# $<R,5N2,&*L0L"ST*.$<Q*"5L"#&*&+,%L"(P$$6#*0L"ST*.$<Q*"...
... Chủ Đề: Một số bàitậpPascalvềmảng một chiều Đề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k. TÌm và đưa ra màn hình: a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó ... m:');readln(m); for j: =1 to m do begin write('Nhap b[',j,']:');readln(b[j]); end; a[n +1] :=320 01; b[m +1] :=320 01; i: =1; j: =1; for k: =1 to m+n do begin if a<b[j] ... write('Nhap k:'); readln(k); for m: =1 to n do begin write('Nhap a[',m,']=');readln(a[m]); end; max:=a [1] ;min:=a [1] ;d:=0;s:=0;imin: =1; imax: =1; for m:= 2 to n do begin if...
... ThucDon(){ Các dạng bàitập C# :Căn bản mảng1 chiều Saturday, 18 . April 2009, 13 :00:46 Bài tập C# Đa phần các thao tác trên C# đều thực hiện dựa trên hàm, thụât toán vềmảng1 chiều, nếu nắm vững ... nếu nắm vững các thụât toán, thao tác vềmảng1chiều thì C# đối với bạn chỉ khó về mặt kỹ thuật cài đặt thôi. Bàitập căn bản đầu tiên sẽ là vềmảng1 chiều: - Xóa phần tử x trong danh sách.- ... phần tử lớn nhất trong mảng. - Tìm vị trí đầu tiên của phần tử lớn nhất trong mảng. - Xóa tất cả phần tử lớn nhất trong mảng. - Tìm tất cả vị trí của phần tử lớn nhất trong mảng. - Thay thế phần...
... Nội dungNext Bài 3 : Hãy liệt kê các đối tượng cần quản lý khi xây dựng CSDL quản lý sách mượn/trả sách, như người đọc, sách…NextTT Đối tượng Thông tin về đối tượng 1 Người mượn (HS)Số ... lyự saựch, ủen buứ do maỏtã- Mượn/trả sách : Cho mượn, nhận trả sách, thông tin về sách và tác giả.Next Bài 4 : Theo em CSDL, nêu trên cần những bảng nào? Mỗi bảng cần có những cột nào? ... Bài 1 : Tìm hiểu nội quy thư viện, thẻ thư viện, phiếu mượn/trả sách, sổ quản lý sách… cuỷa thử vieọn...
... nguyên dương Bài 21: Tính n! với n là số tự nhiên( 0! =1; n!= 1. 2.3….n) Bài 22: Tính = + + + + 11 1 P 1 2 3 n Với n là số tự nhiên khác 0. Bài 23: Tính -= - + - + + -n 1 111 1 P 1 ( 1) .2 ... 90.OUT4 5 30 1 0 0 00 0 0 0 1 0 11 0 1 0 0 0 0 1 BàiTậpPascal Bài 1: Tính chu vi và diện tích hình chữ nhật biết chiều dài, chiều rộng là các số nguyênnhập từ bàn phím Bài 2: Đổi tiền ... phân. Bài 58: Tính giá trị biểu thức: =- + - + + + -+ + + + +n 1 2 3 4 nX ( 1) . 111 2 1 3 1 4 1 n Với n là sốnguyên dương nhập từ Bàn phím . Bài 59: Cho dãy gồm n số nguyên (1& lt;n< ;10 000)....
... dem:=dem +1; c. Các thao tác xử lí khác Ví dụ: Đếm số ngày có nhiệt độ cao hơn nhiệt độ TB của tuần. TB = 18 .7Dem=076543 21 i 19 1 719 211 82 017 A[i]0 11 233 420 21 19 19 +1+1 +1+ 1 Program ... tác xử lí mảng dùng cấu trúc lặp FOR TO DO. 15 20 19 25 18 12 16 Var A:ARRAY [1 100] OF integer; A[5] = 18 * Đếm các phần tử trong mảng thoả mÃn ®iÒu kiÖn cho tríc dem :=0;For i : =1 to n ... In mảng vừa nhập. Mảng một chiều là một dÃy hữu hạn các phần tử cùng kiểu 17 20 18 25 19 12 19 A 1 2 3 4 5 6 7 Trong đó :Khi tham chiếu đến phần tử thứ i ta viết A[i]. Ví dụ: A[5] = 19 ....
... 8q2n2m2c2a2b2c 1 b 1 a 1 q 1 n 1 m 1 S 1 B 1 A 1 C 1 S2C2A2B2e 1 f 1 g 1 f2e2g2 Đề 8 7n2q2m2c2a2b2c 1 b 1 a 1 q 1 n 1 m 1 S 1 B 1 A 1 C 1 e 1 g 1 f 1 A2B2C2S2f2e2g2 ... g2e2f2S2C2B2A2f 1 g 1 e 1 C 1 A 1 B 1 S 1 m 1 n 1 q 1 a 1 b 1 c 1 b2a2c2m2n2q2 Đề 1 22 Đề 10 10 n2q2m2c2a2b2c 1 b 1 a 1 q 1 n 1 m 1 q2m2n2q 1 n 1 m 1 b2a2c2c 1 b 1 a 1 ... 9a 1 b 1 c 1 c2a2b2m 1 n 1 q 1 n2m2q2 m 1 n 1 q 1 a 1 b 1 c 1 b2a2c2m2q2n2 Đề 9 4a 1 b 1 c 1 c2a2b2m 1 n 1 q 1 n2m2q2 g2e2f2g 1 f 1 e 1 B2A2C2S2C 1 A 1 B 1 S 1 ...