bai tap mang mot chieu

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

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

... mảng A vị trí Begin chẵn có giá trị lẻ đếm Clrscr; Write(‘nhap so phan tu cua mang ‘); Readln(n); Writeln(‘nhap mang A’) For i:=1 to n Begin write(‘A[‘,i,’]=’); Readln(A[i]); of End; GV: Yêu ... định toán? HS: xác định GV: Yêu cầu học sinh lấy ví dụ cụ thể cho kết trường hợp cụ thể? Program bai4 9; HS: Thực Uses crt; Gv: Ý tửơng giải thuật: Var -Khai báo mảng A integer; -Nhập mảng A I,dem,m:byte;...

Ngày tải lên: 07/08/2014, 22:23

... Max F T F F THUẬT TOÁN THỂ 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], ... of integer; Var N, i , max, csmax : integer; a: arrInt; Begin 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; max:=a[1]; csmax:=1; ... of integer; Var N, i , min, csmin : integer; a: arrInt; Begin 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; min:=a[1]; csmin:=1;...

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

... khai báo theo cách 2, sau: Type Mang1 = array[0 10] of Real; Mang2 = array[1 5] of String[18]; Mang3 = array[‘a’ ’d’] of Integer; Var A : Mang1 ; Hten: Mang2 ; B: Mang3 ; Khai báo mảng có gán trị ... hình, đếm xem mảng A có số dương : PROGRAM VIDU1; { Ðếm số dương mảng} Type Kmang = Array[1 20] of Real; Var A: Kmang; i, N, Dem : Integer; Begin Repeat Write(‘ Nhập số phần tử N : ‘); Readln(N); ... tăng dần: PROGRAM VIDU3; { Tìm Max dãy A tăng dần } Uses CRT; Type Kmang = array[1 20] of Real; Var i, j, N : Integer; A: Kmang; z, Max : Real; Begin Clrscr; Repeat Write(‘ Nhập số phần tử N...

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

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

... vẽ không cho dấu tụ ta xác định dựa vào điện (hoặc hiệu điện thế), tụ có điện cao mang dấu + thụ có điện thấp mang dấu − Cách tính điện dung tƣơng đƣơng : Mắc nối tiếp : C td C1 C2 C3 Cn n i 1 ... khác đơn giản hiệu phƣơng pháp điện nút Phƣơng pháp: Chọn gốc điện điểm mạch (thƣờng chọn điểm mang tính tổng quát có liên quan đến nhiều điện trở) Giả sử chiều dòng điện mạch Áp dụng định luật...

Ngày tải lên: 18/03/2014, 07:23

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

... Var 152 Crt; Max = 10; Mang = Array[1 Max,1 Max] of Integer; A,B : Mang; N : Integer; Procedure Nhap; Var i,j : Integer; Begin FillChar(A,Sizeof(A),0); Repeat Writeln( 'Bai toan tu danh sach , ... cot duong mot chieu cao K } Var i,j : Byte; Begin For i:=1 to m For j:=1 to n If H[i,j]>0 then H[i,j]:=H[i,j]-K; End; Function Kmin(i,j : Byte) : LongInt; Var Min : LongInt; { Tim chieu cao cot ... A[i,j]  < 1

Ngày tải lên: 07/09/2014, 07:11

Ngày tải lên: 15/05/2015, 11:00

... t:=0; for i:=1 to n if (a[i] mod = ) then begin dem:=dem + 1; t:= t + a[i]; end; writeln(‘so chan mang la:’, dem); writeln(‘tong so chan la:’, t); readln end Program bt1; Uses crt; Var a : array[1 ... write(‘a[‘,i,’]’); readln(a[i]); end; dem:=0; for i:=1 to n if a[i] = x then dem:=dem + 1; writeln(‘so bang’,x,’ mang la:’, dem); readln end IV - Củng cố - Cách khai báo tham chiếu đến phần tử mảng chiều - Bài...

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

... t:=0; for i:=1 to n if (a[i] mod = ) then begin dem:=dem + 1; t:= t + a[i]; end; writeln(‘so chan mang la:’, dem); writeln(‘tong so chan la:’, t); readln end Bài tập 2: Nhập vào mảng số nguyên, ... write(‘a[‘,i,’]’); readln(a[i]); end; dem:=0; for i:=1 to n if a[i] = x then dem:=dem + 1; writeln(‘so bang’,x,’ mang la:’, dem); readln end IV - Củng cố - Cách khai báo tham chiếu đến phần tử mảng chiều - Bài...

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

Ngày tải lên: 09/07/2015, 13:29

... đệ qui , không sử dụng mảng DP,CP , Max ->32000} Type Chiso = Max; Mang = Array[Chiso] of Integer; Var A : Mang; Procedure Taomang; { Tạo ngẫu nhiên Mảng A(N) } Procedure QuickSort; Var s,D,C,i,j ... Crt; Const Max = 1000; Type Mang = Array[1 Max] of Integer; Var A : Mang; N,i,L: Integer; Procedure Nhap; Var i: Integer; Begin Clrscr; Write('Nhap so phan tu cua mang A = '); Readln(N); Randomize; ... Crt; Const Max = 1000; Type Mang = Array[1 Max] of Integer; Var A : Mang; N,i,L: Integer; Procedure Nhap; Var i: Integer; Begin Clrscr; Write('Nhap so phan tu cua mang A = '); Readln(N); Randomize;...

Ngày tải lên: 12/11/2015, 20:39

... write('Voi tong lon nhat la ',max); readln; end {Tron hai mang duoc sap xep tang dan mot mang duoc sap xep tang dan} WriteLN('NHAP PHAN TU CHO MANG A:'); Writeln(' _'); write('Nhap n:');readln(n); ... writeln(' _'); for k:=1 to n+m write(c[k],' ') ;} {Tron mang theo pp chan o cuoi} {Type mang= array[1 100] of integer; var a,b,c :mang; i,m,k,n,j:integer; begin write('Nhap n:');readln(n); for ... then max:=dem; end; write('Doan dai nhat gom cac so lien tiep la ',max); readln; end {Kiem tra mot day la cap so cong} var a:array[1 100] of integer; d,i,n:integer; kt:boolean; begin write('Nhap...

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

Ngày tải lên: 18/10/2014, 21:44

... in hoa in thường) ví dụ với s ‘Pascal‘ ta có đáp số Program bai4 ; Var s: string; i, j, dem: integer; t: boolean; begin write(‘nhap mot xau ki tu s: ‘);readln(s); dem:=0; for i:=1 to length(s) ... Input: 12 15 Output: Dãy trước xếp: 12 15 Dãy sau xếp: 12 15 Hướng dẫn viết chương trình: Program bai1 ; Uses crt; Var A: array[1 250] of integer; i, N: integer; Begin Clrscr; Write(‘nhap so luong ... cầu Ví dụ: INP.TXT OUT.TXT 14 11199564772383 51641977123893 Hướng dẫn viết chương trình: Program bai2 ; Var A: array[1 100] of integer; i, N, max, min: integer; fi, fo: text; Begin Assign(fi, ‘INP.TXT‘);reset(fi);...

Ngày tải lên: 14/01/2016, 19:49

... N thêm đơn vị WHILE 1/(a+N) >= 0.0001 DO Begin S:=S+1/(a+N); N:=N+1; END; Chương trình Program Bai_ toan; Uses Crt; Var a,N:Integer; S:Real; BEGIN Clrscr; Write(Nhap gia tri cua a= );Readln(a);...

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

... dung mang: "); for(i=0; i< SIZE; i++) printf("%3d", a[i]); for(i=0; i< SIZE; i++) S1 += a[i]; printf("\nTong mang: %d", S1); for(i=0; i< SIZE; i++) if(a[i]%2==0) S2+=a[i]; printf("\nTong mang ... printf("\n nhap so phan tu cua mang: "); scanf("%d",&n); for (int i=0;i=0; i ) if(a[i]%2) S3+=a[i]; printf("\nTong mang le: %d", S3); getch(); }  Cùng Đại học Hoa www.hoasen.edu.vn Sen xây dựng tương lai Duyệt...

Ngày tải lên: 17/06/2014, 15:03

... MangInt = array[1 20] of Integer; ? MangInt MangChar có phần tử? Kiểu MangChar = array[1 20] of Char; số gì? (HS: 20 phần tử; Từ đến 20) Var ? Mỗi phần tử MangInt thuộc kiểu gì? MI, MJ, MK: MangInt; ... Type MangInt = array[1 10] of Integer; trả lời) Var A: MangInt; GV: Lấy thêm vài ví dụ khác (chiếu ví dụ lên hình giải thích cho hs) Ví dụ: ? Cho biết tên kiểu liệu mới? Type HS: MangInt MangChar ... Kiểu ngun X, Y: mangChar; ? Mỗi phần tử MangChar thuộc kiểu gì? M1, M2: array[-10 10] of Integer; HS: Kiểu kí tự M3: array[‘A’ ‘Z’] of Integer; ? MI, MJ, MK gì? (HS: biến có kiểu MangInt) ? M1,...

Ngày tải lên: 09/07/2014, 18:00