pascal ve mang 1 chieu

Bài tập về mảng 1 chiều trong pascal

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

... tăng dần Ví dụ: Mảng A: 15 7 15 Kết quả: Mang A doi xung, Mang A khong phai la mang tang dan Mảng A: 14 17 26 26 31 Kết quả: Mang A khong doi xung, Mang A khong phai la mang tang dan Hướng dẫn: ... ( N 0 ) and ( M A[i -1] + k) then flag:=false;...

46
4.1K
13

thuat toan ve mang 1 chieu

Ngày tải lên : 29/09/2013, 12:10

... i: =1 to N TX[i]:=X[i]; For i: =1 to N TX[i+N]:=X[i]; For i: =1 to N TC[i]:=C[i]; For i: =1 to N TC[i+N]:=C[i]; TX[j] := X[j]; For i:= j +1 to j+N -1 TX[i] := TX[i]+TX[i -1] ; For i:= j +1 to j+N -1 TC[i] ... Bài 17 : Nhập số nguyên dơng N Tìm số nguyên không âm ( D0 , D1 , , Dm ) với Di

39
1K
16

BÀI TẬP VỀ MẢNG 1 CHIỀU(TT)

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

... tăng dần Ví dụ: Mảng A: 15 7 15 Kết quả: Mang A doi xung, Mang A khong phai la mang tang dan Mảng A: 14 17 26 26 31 Kết quả: Mang A khong doi xung, Mang A khong phai la mang tang dan Hướng dẫn: ... chuong trinh } Program Mang1 C; Uses crt; Type Mang2 0 = array [1 20] of Integer; Var N:Integer; A :Mang2 0; { Thu tuc nhap mang A voi N la so phan tu } Procedure NhapMang1C(Var A : Mang2 0 ;Var N:Integer); ... công sai k = 5? Ví dụ: 11 16 21 26 31 Function KtraMangCapSoCong (A :Mang2 0; N:Integer; k:Integer):Boolean; Var flag :boolean; i :Integer; Begin for i: =1 to N if(A[i] < > A[i -1] + k) then flag:=false;...

17
4.5K
54

Gián án Các bài tập hay về mảng 1 chiều

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

... 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

9
6.1K
239

BAI GIANG HAY VE MANG 1 CHIEU pptx

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

... từ đến -1 NMLT - Mảng chiều VC VC & & BB BB Khai báo biến mảng (tường minh)  Ví dụ int Mang1 Chieu [10 ]; 9 Mang1 Chieu int Mang2 Chieu[ 3][4]; 10 11 Mang2 Chieu NMLT - Mảng chiều VC ... 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 BB Truy xuất đến phần tử  Thông qua số [][]…[

47
948
3

Bài tập Pascal - Mảng 1 chiều

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

1
1.6K
35

Mảng 1 chiều pascal có code đi kèm

Ngày tải lên : 04/10/2015, 08:50

... for i: =1 to n C[i]:= A[i]; for j: =1 to m C[j+n]:=B[j]; end; begin for i: =1 to (n+m) -1 for j:=i +1 to n+m if C[i] > C[j] then begin tg:=C[i]; C[i]:=C[j]; C[j]:=tg; end; end; writeln; write( 'mang ... phan tu de xoa') else if (k < n) and (k > 1) then begin write(' mang sau xoa phan tu thu ' , k , 'la :'); for i:=k to n -1 A[i]:=A[i +1] ; for i: =1 to n -1 write(A[i]:4:2, ' ' , ' '); end; if k > ... readln(k); j:=0; for i: =1 to n begin if k = A[i] then begin j:=j +1; A[i]:=A[i +1] ; for i:=i to n A[i +1] :=A[i+2]; end; end; writeln(' mang co ' , j , ' phan tu bi xoa '); writeln; write(' mang sau xoa la...

18
3K
6

mảng 1 chiều

Ngày tải lên : 04/06/2013, 01:25

... 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: ... 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 Mảng chiều dãy ... array [1 365] of integer; Var A,B : 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)...

13
664
4

Bài tập mảng 1 chiều: Tìm max, min, sắp xếp

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

... 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 ... tri ̣ của phầ n tử thứ nhấ t cho B1: Nhậpgán giá A cho trước; (n phần tử) biế n max, tiế p theo lầ n lươ ̣t so sánh giá tri ̣ B2: max  A1, i  1; của max với tấ t cả các phầ ... Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu i>N đưa Max KT B4 B 41 Nếu a[i]>Max Max ←a[i] B42 i ←i +1 quay lại B3 csMax: =1; For i:=2 to N if a[i]>Max then begin Max:=a[i]; csMax:=i; end; Writeln(‘GTLN...

11
2.7K
36

Bài tập mảng 1 chiều

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

1
1.5K
11

thuat toan ve mang 2 chieu

Ngày tải lên : 29/09/2013, 12:10

... -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 1 1 1 1 -1 1 1 -1 1 1 -1 -1 -1 -1 -1 -1 -1 -1 1 1 1 1 1 1 1 -1 1 1 -1 1 1 -1 1 1 -1 1 -1 -1 1 -1 -1 1 1 -1 -1 1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 Day ... M =15 , N =16 1 -1 -1 1 -1 1 1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 1 1 -1 -1 1 -1 -1 -1 -1 -1 -1 -1 -1 1 -1 -1 1 -1 -1 1 1 -1 1 1 -1 1 1 -1 1 1 -1 1 -1 -1 1 -1 -1 1 1 -1 1 1 -1 -1 -1 -1 -1 -1 ... 11 10 11 10 11 8 12 10 13 12 10 13 10 15 14 16 15 10 17 16 15 14 13 12 11 10 14 17 16 15 12 13 11 10 Bài 25: Nớc ma ( Thi Tin học trẻ 96 ) Cho lới MxN ô vuông có cạnh độ dài đơn vị ( M,N < 51...

57
2.8K
51

BÀI TẬP VỀ MẢNG MỘT CHIỀU

Ngày tải lên : 08/10/2013, 21:56

... a[',i,']:');readln(a); end; write('Nhap m:');readln(m); for j: =1 to m 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 begin if a

7
21K
529

mang 1 chieu

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

... 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: ... 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 Mảng chiều dãy ... array [1 365] of integer; Var A,B : 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)...

13
408
0

mang 1 chieu(tiet 1)

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

... TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC Input: t1, t2, t3, t4, t5, t6, t7 Output: tb, dem *Giải thuật: - Nhập vào nhiệt độ ngày tuần (t1, t2, t3, t4, t5, t6, t7) - tb:= (t1 + t2 + t3 + t4 + t5 + t6 + t7)/7; ... dem:= 0; - Kiểm tra nhiệt độ ngày có lớn nhiệt độ tb hay không? Nếu tăng biến đếm lên: dem:= dem +1; - Đưa kết hình SVTH: Nguyễn Thị Tú Lớp: Tin 4A TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC Chương trình: SVTH:...

4
334
1

Bài soạn Tin hoc 11: Mang 1 chieu

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

... 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: ... 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 Mảng chiều dãy ... array [1 365] of integer; Var A,B : 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)...

13
613
7

Tài liệu Các dạng bài tập C# :Căn bản mảng 1 chiều docx

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

... xoaTatCaPhanTuX(x); Console.WriteLine( "Mang sau xoa tat ca cac phan tu {0}", x); xuatMang(); break; case (int)LietKe.xoaSoAm: Console.WriteLine( "Mang sau xoa cac so am: "); xoaSoAm(); xuatMang(); break; case (int)LietKe.thayThePhanTu: ... = int.Parse(Console.ReadLine()); switch (chon) { case (int)LietKe.tongMang: Console.WriteLine("Tong cua mang la: {0}", tongMang()); break; case (int)LietKe.xoaTheoViTri: Console.WriteLine("Nhap ... tu lon nhat cua mang: {0}", timPhanTuLonNhat()); break; case (int)LietKe.XoaCacPhanTuLonNhat: Console.WriteLine( "Mang sau xoa cac phan tu lon nhat!"); XoaCacPhanTuLonNhat(); xuatMang(); break;...

7
3.6K
60

Chuyên đề mảng 1 chiều ppt

Ngày tải lên : 21/06/2014, 09:20

... int ChieuDai; int b [10 0], nb; for (i nt i =0; i

57
1K
9

BAI GIANG HAY VE MANG 2 CHIEU ppt

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

... n -1 0 m -1 An … … Am,n … n -1 n -1 NMLT - Mảng hai chiều VC VC & & BB BB Ma Trận … n -1 … n -1 0 … … n -1 n -1 n -1 dòng > cột dòng = cột … n -1 0 dòng < cột … n -1 … n -1 … … … An … n -1 … An n -1 n -1 n -1 ... a [10 ][20], b [10 ][20]; int c[5] [10 ]; int d [10 ][20];  Không tường minh (thông qua kiểu) typedef int MaTran10x20 [10 ][20]; typedef int MaTran5x10[5] [10 ]; MaTran10x20 a, b; MaTran11x 11 c; MaTran10x20 ... n -1 dòng + cột = n -1 dòng + cột > n -1 dòng + cột < n -1 NMLT - Mảng hai chiều VC VC & & BB BB Khai báo kiểu mảng chiều  Cú pháp typedef [][];  N1, N2: số lượng phần...

33
2.3K
40

Bài tập (Mảng 1 chiều)

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

... 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] ... Readln(n); For i: =1 to n begin write( Phan tu thu ,i, = ); readln(a[i]) end; Max a1 ; i 1; Max:=a [1] ; csmax: =1; Nếu i>N đưa MAX số i => Kết thúc; For i :=2 to n Nếu a[i]>max maxa[i], i i +1 => quay...

15
1.5K
18

Bài 11: Kiểu mảng và biến có chỉ số (Bài 11a: Mảng 1 chiều)

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: ... 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 Mảng chiều dãy ... array [1 365] of integer; Var A,B : 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)...

13
860
4