bài tập pascal kiểu mảng 1 chiều

... longint; 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 s1:=s1+s[i]; val(s1,m,kt1);val(s,n,kt2); ... n nguyên tố tơng đơng với n 11 / Tìm số nhỏ 10 000 ớc nguyên tố khác 3,7 ,11 13 / Đọc tất sô gần nguyên tố lớn nhỏ N (n

Ngày tải lên: 04/12/2013, 11:11

... nhiƯt ®é TB cđa tn For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Προγραµ ϖ 1; Υσεσ χρτ; ςαρ Khai b¸o m¶ng chiỊu Α: Αρραψ [1 366] οφ ιντεγερ; ι,ν,δεµ: ... :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 S = 45 Th«ng th­êng, c¸c thao t¸c xư lÝ m¶ng mét chiỊu ®Ịu dïng c©u lƯnh FOR DO 19 H·y nhí! 15 20 19 25 18 12 16  M¶ng mét ... * Mảng chiều có 10 0 phần tử kiểu Boolean, chiếm 10 0 byte dung lượng nhớ nhớ bao nhiêu? ** C¸c thao t¸c xư lÝ m¶ng mét chiỊu Ø NhËp m¶ng mét chiỊu VÝ dơ: NhËp nhiƯt ®é n ngµy A 17 C¸c b­íc 20 18 ...

Ngày tải lên: 06/01/2015, 14:58

... tài 11 B8 Thường xuyên 11 B7 Thường xuyên 11 B6 không thường xuyên 11 B1 Không áp dụng Giỏi Yếu Kém 37,5% 37,5% 0% 0% 21, 6% 43,2% 35,2% 0% 0% 25% Khá TB 11 ,1% 27,8% 47,2% 13 ,9% 7,6% 20,5% 56,4% 12 ,8% ... trình pascal, mặt cú pháp câu lệnh sau đúng? a, Type 1chieu=array [1 100] of char; b, Type mang=array (1 100) of char c, Type mang1c=array [1- 100] of char; d, Type mang1c=array [1 100] of char; Câu 10 : ... điều tra Đối với 40 học sinh lớp 11 B1, 11 B6, 11 B7, 11 B8 học môn Tin học, theo phương pháp chọn mẫu ngẫu nhiên lấy ngẫu nhiên 10 học sinh lớp có STT từ 10 đến 15 từ 25 đến 20 Em có cảm giác sợ...

Ngày tải lên: 11/12/2015, 21:15

... cách dấu cách Sau ví dụ file vậy: 45 -1 12 10 -1 1 10 -11 -1 Viết chương trình nhập liệu từ file vào mảng số N x M Var f:text; n,m,i,j:integer; a:array [1 100 ,1 100] of integer; Begin assign(f,'data.txt'); ... ((st[l]= '1' )and(st[l -1] ='0'))or((st [1] = '1' )and(st[2]='0')) then Writeln('Không thể biến đổi được!') Else Begin assign(fou,'output.txt'); rewrite(fou); Writeln(fou,st); If (st[l]= '1' )and(st[l -1] = '1' ) then ghi1(l -1) ; ... '+st; Repeat l:=length(st1); p:=pos(';', st1); If (p0) then Begin st:=copy(st1, 1, p); Writeln(fou, st); st1:=copy(st1, p +1, l-p); End; Until (p=0); End; Writeln(fou, st1); close(fin); close(fou);...

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

... trị cho phần tử mảng int a[4] = {0}; 0 a 0 0 0  Tự động xác định số lượng phần tử int a[] = {2 912 , 17 06, 15 06, 19 04}; a 2 912 17 06 15 06 19 04 2 912 17 06 15 06 19 04 NMLT - Mảng chiều 10 VC VC & & BB ... 15 06 19 04 2 912 17 06 15 06 19 04 a  Khởi tạo giá trị cho số phần tử đầu mảng int a[4] = {2 912 , 17 06}; a 2 912 17 06 2 912 17 06 0 0 NMLT - Mảng chiều VC VC & & BB BB Khởi tạo giá trị cho mảng lúc khai ... int b [10 ][20]; NMLT - Mảng chiều VC VC & & BB BB Khởi tạo giá trị cho mảng lúc khai báo  Gồm cách sau  Khởi tạo giá trị cho phần tử mảng int a[4] = {2 912 , 17 06, 15 06, 19 04}; 2 912 17 06 15 06 19 04...

Ngày tải lên: 26/06/2014, 23:20

Ngày tải lên: 17/02/2015, 17:00

... số tập lập trình Pascal Created by NgoHung Vấn đề 4: Mảng chiều Bài toán số 4 .1: Viết chương trình thao tác mảng chiều với công việc sau: + Nhập xuất mảng chiều + Đếm số lần xuất giá trị mảng ... mảng chiều nhập vào Hướng dẫn: + Khai báo kiểu liệu mảng chiều Type Mang2C = Array [1 10, 10 ] of Real; + Xây dựng thủ tục nhập liệu cho mảng chiều A với kích thước MxN Lưu ý: tham số: A (tên mảng) , ... (A[i -1] +A[i]); A[i -1] := k; A[i] := k; End; End; Bài toán số 3.4: Kiểm tra mảng có đối xứng hay không? Kiểm tra mảng có tăng dần hay không? Mảng đối xứng mảng có phần tử Ai = AN-i -1 Nếu mảng mảng...

Ngày tải lên: 15/08/2015, 14:00

... HIỆN BẰNG PASCAL B1 Nhập N dãy a1…aN; Write(‘nhap so luong phan tu cua mang:’); Readln(N); For i: =1 to N Begin Write(‘phan tu thu’,i); Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu ... KIỂM TRA BÀI CŨ Phát biểu khái niệm mảng chiều, cú pháp khai báo mảng, cách thức để tham chiếu đến phần tử mảng? MÔN TIN HỌC Tiết 21: MỘT SỐ VÍ DỤ bµi to¸n t×m max, bµi ... trị max, a Bài toán b Thuật toán c Chương trình Sắp xếp a Khái niệm b Thuật toán c Chương trình MỘT SỐ VÍ DỤ Thuật toán tim max: ̀ Đầu tiên mảng tri ̣ của phầ n tử thứ nhấ t cho B1: Nhậpgán...

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

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

... (A[i -1] +A[i]); A[i -1] := k; A[i] := k; End; End; Bài toán số 3.4: Kiểm tra mảng có đối xứng hay không? Kiểm tra mảng có tăng dần hay không? Mảng đối xứng mảng có phần tử Ai = AN-i -1 Nếu mảng mảng ... xuất nhiều mảng Bài toán số 3.3: Tìm kiếm thay Tìm kiếm vị trí xuất x mảng A Thay giá trị Ai x thành y Ví dụ: A: 5 1 X=5 Y =15 Kết quả: Vi tri xuat hien X la Ket qua thay the: 15 15 15 1 Hướng dẫn: ... vị trí k mảng A, N phần tử Xoá phần tử vị trí h mảng A Ví dụ: A : 12 X = 20 , 17 k=3 h=2 Kết chèn: 12 Kết xoá: 20 12 20 5 17 17 Hướng dẫn: Viết thủ tục chèn phần tử X vào vị trí k cho mảng A (có...

Ngày tải lên: 10/10/2013, 15:11

... for (int i = 0; i < len; i++) if (a == x) return i; return -1; } static bool xoaPhanTuX(int x) { int vt = timPhanTuX(x); if (vt == -1) return false; else { for (int i = vt; i < len; i++) a = a; ... == x) return true; return false; } static int timPhanTuLonNhat() { int max = a[0]; for (int i = 1; i < len; i++) if (max < a) max = a; return max; } static void XoaCacPhanTuLonNhat() { int max ... int.Parse(Console.ReadLine()); Random r = new Random(); for (int i = 0; i < len; i++) a = r.Next (10 ); } static void xuatMang() { for (int i = 0; i < len; i++) Console.Write("\t{0}", a); } static...

Ngày tải lên: 25/01/2014, 10:20

... j -1 If A[i]>A[i +1] Then begin Tg := A[i]; A[i]:=A[i +1] ; A[i +1] :=Tg; end; Writeln( Day so duoc sap xep ); For i: =1 to n Write(A[i]:5); Readln; END Khai báo mảng chiều Nhập mảng chiều Xử lí mảng ... nhị phân Với k = 21 dãy A gồm 10 số hạng sau: A 21 22 30 31 33 i 10 Lượt thứ nhất: agiữa a5 = 9; < 21 vùng tìm kiếm thu hẹp phạm vi từ a6 a10; Lượt thứ hai: agiữa a8 = 30; 30 > 21 vùng tìm kiếm ... phần tử -1, chạy ? Begin A[i]>A[i +1] Tg := A[i]; tráo đổi vị trí A[i] A[i +1] thông qua biến trung gian (Tg) A[i] := A[i +1] ; A[i +1] :=Tg; end; PROGRAM Sapxep; Uses crt; Type dayso = Array [1 250]...

Ngày tải lên: 19/07/2014, 08:00

... nhiệt độ TB tuần For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảng chiều A: Array [1 366] of integer; i,n,dem: ... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng ... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảng chiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ...

Ngày tải lên: 19/07/2014, 08:00

... Bài  Tìm hiểu cách sử dụng lệnh kiểu liệu mảng chiều qua chương trình có sẵn • • • • • • • • • • Program sum1; Uses crt; Const nmax =10 0; Type Myarray=array [1 nmax] of integer; ... đếm số phần tử âm mảng • Posi:=0;neg:=0; • If a[i]>0 then Posi:=Posi +1 • else if a[i]

Ngày tải lên: 11/08/2014, 06:23

... - Kiểu số: thường đoạn số nguyên liên tục có dạng n1 n2, với n1 số đầu, n2 số cuối - Kiểu phần tử: kiểu phần tử mảng *Tham chiếu đến phần tử mảng [chỉ số] VD1:Type mmc=array [1 100] ... mmc=array [1 100] of integer; Var A : mmc; 14 25 A[5] = 25 A[7] = 6… Bài tập1 : Nhập vào mảng số nguyên Đếm xem mảng vừa nhập có số chẵn, Tính tổng số chẵn Gợiý: - Các biến cần khai báo - Nhập vào mảng ... đến phần tử mảng + Kí tự (char) chiều? Hãy khai báo mảng chiều chứa tối đa 50 phần tử có kiểu nguyên, tham chiếu đến phần tử mảng Trả lời: *Tham chiếu đến phần tử mảng [chỉ số]...

Ngày tải lên: 12/06/2015, 03:00

Ngày tải lên: 31/05/2013, 00:21

... không âm Bài 63: Tạo mảng chứa phần tử dãy số a [1] ,a[2]…a[n] n, a [1] nhập từ bàn phím = 2.ai -1 – (i > 1) Bài 64: Tìm số hạng thứ n dãy Fibonaci ( Bằng cách dùng mảng, Không dùng mảng) Bài 65: ... hình tấy số tự nhiên có K chữ số mà tổng chữ số vị trí lẻ 10 lần tổng chữ số vị trí chẵn Mỗi dòng 10 số ( Ví dụ: K=3 11 9 911 317 713 …) Bài 83: Tìm in hình tất số tự nhiên không chữ số lớn gấp ... trái phải hàng rào MẢNG HAI CHIỀU Bài 75: Cho mảng gồm NxM số nguyên Hỏi có số chẵn, in dãy số hình, dòng số Bài 76: Cho mảng gồm NxM kí tự Hỏi có kí tự A; Kí tự S Bài 77: Cho mảng gồm NxM số nguyên...

Ngày tải lên: 17/08/2013, 16:10

... nhiệt độ TB tuần For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1 +1 +1 +1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảng chiều A: Array [1 366] of integer; i,n,dem: ... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng ... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảng chiều dùng câu lệnh FOR DO Ghi nhớ! 15 20 19 25 18 12 16 ...

Ngày tải lên: 28/11/2013, 09:11

Ngày tải lên: 24/07/2014, 03:21

Ngày tải lên: 24/07/2014, 03:21