bai mang mot chieu

... giá trị tổng S, với a là số nguyên và a>2 thì dừng lại. Cho đến khi 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

... báo theo cách 2, như 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ị ... mảng A có bao nhiêu số dương : PROGRAM VIDU1; { Ðếm số dương trong mảng} Type Kmang = Array[1..20] of Real; Var A: Kmang;

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

... lon nhat la ',max); readln; end. {Tron hai mang duoc sap xep tang dan thanh mot mang duoc sap xep tang dan} WriteLN('NHAP PHAN TU CHO MANG A:'); Writeln('_________________________'); ... writeln('___________________'); for k:=1 to n+m do write(c[k],' ') ;} {Tron mang theo pp chan o cuoi} {Type mang= array[1..100] of integer; var a,b,c :m...

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

... biến mảng (tường minh)Ví dụNMLT - Mảng một chiềuint Mang1 Chieu[ 10];0 1 2 3 4 7 85 6 9Mang1 Chieuint Mang2 Chieu[ 3][4];0 1 2 3 4 7 85 6 9Mang2 Chieu1 0 11 VC&BB66Khai báo biến mảng (kô tường minh)Cú ... mảng>[<N1>]…[<Nn>];<tên kiểu mảng> <tên biến mảng>;typedef int Mang1 Chieu[ 10];typedef int Mang2 Chieu[ 3][4] ;Mang1 Chieu m1, m2, m3 ;Mang2 Chi...

Ngày tải lên: 04/09/2012, 15:59

Ngày tải lên: 11/09/2012, 15:25

... 19171921182017 Ví dụ: Nhập nhiệt độ n ngày. b. In mảng một chiều Writeln( Mang vua nhap : ); For i:=1 to n do Write(A[i]:5); Mang vua nhap: - Thông báo - In giá trị của các phần tử 17 20 18 21 19

Ngày tải lên: 29/05/2013, 23:17

... 19171921182017 Ví dụ: Nhập nhiệt độ n ngày. b. In mảng một chiều Writeln( Mang vua nhap : ); For i:=1 to n do Write(A[i]:5); Mang vua nhap: - Thông báo - In giá trị của các phần tử 17 20 18 21 19

Ngày tải lên: 29/05/2013, 23:20

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

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

... báo theo cách 2, như 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ị ... A có bao nhiêu số dương : PROGRAM VIDU101; { Ðếm số dương trong 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 : ‘); Re...

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