Bai 11 Kieu mang

Bài toán 1 Viết chương trình cho phép nhập vào nhiệt độ trung bình các ngày trong tuần rồi xuất ra màn hình nhhiệt độ trung bình trong tuần... trong Thì sẽ gặp B3: Xuất Tb những khó khăn[r]

Một số văn trình bày dạng bảng Thời Khóa Biểu Tiết Thứ Thứ Thứ Thứ Thứ Thứ Chào cờ Địa Lí Sinh Học GDCD Toán Hóa Học Văn Học Hóa Học Toán Tin Học Vật Lí Sinh Học Toán Văn Học Lịch Sử Văn Học Địa Lí Văn Học Toán Kĩ Thuật Anh Văn Vật Lí Tin Học Anh Văn Lịch Sử SHL Bài toán Viết chương trình cho phép nhập vào nhiệt độ trung bình các ngày tuần xuất màn hình nhhiệt độ trung bình tuần Input: t1, ? t2, t3, t4, t5, t6, t7 Output ? Tb Thuật toán Chương trình Var t1, t2, t3, t4, t5, t6, t7, Tb: real; Begin Writeln(‘nhap vao nhiet ngay’); B1: Nhập t1, t2,Quan t3, t4, t5, t6, trình t7 sát chương Readln(t1, t2, t3, t4, t5, t6, t7); hãy cho biết muốn Tb:=(t1+ t2+ t3+ t6+t7)/7; tính t4+ nhiệtt5+ độ trung bình B2:Tb (t1+ t2+ t5+ t6+ Nt3+ ngàyt4+ năm (ví t7):7 Writeln(‘nhiet tuan ’, Tb:5:1); dụT.binh N=365) Thì gặp B3: Xuất Tb khó khăn gì? Readln End Khó khăn Vart1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14, t15,t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28, t29,t30,t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42, t43,t44,t45,t46,t47,t48,t49,t50,……….,t365, TB: Khai báo số lượng biến quá nhiều real; Để khắc phục khó khăn Câu lệnh tính toán dài Begin dòng dễ kiểu sai trên, ta sử dụng …………………… liệu mảng chiều Tb:=(t1+t2+t3+t4+t5+t6+t7+t8+t9+t10+t11+t12+t13+t14,+ t15+t16+t17+t18+t19+t20+t21+t22+t23+t24+t25+t26+t27+t28+ t29+t30+t31+t32+t33+t34+t35+t36+t37+t38+t39+t40+t41+t42+ T43+t44+t45+t46+t47+t48+t49+t50+……….+t365)/365; …………………………… Readln; End KHÁI NIỆM MẢNG MỘT CHIỀU Mảng chiều là dãy hữu hạn các phần tử cùng kiểu Vd1: A 32.5 29.4 30.0 31.5 34.1 28.6 34.1 32.5 Trong đó :  Tên biến mảng : A  Số phần tử mảng:  Kiểu liệu các phần tử: Kiểu thực  Khi tham chiếu đến các phần tử: A[5] = 34.1 Khai báo mảng chiều PASCAL * Cách 1: Khai báo trực tiếp Var <DS biến mảng>: array[Kiểu số] of <Kiểuphần tử>; Chú ý:  Kiểu số thường là đoạn số nguyên liên tục: [n1 n2] Ví dụ1: [1 7] [1 N] ? [2 8] Khai báo mảng chiều PASCAL * Cách 1: Khai báo trực tiếp Var <DS biến mảng>: array[Kiểu số] of <Kiểuphần tử>; Ví dụ 2: Khai báo biến mảng lưu trữ giá trị nhiệt độ ngày tuần T 32.5 29.4 30.0 31.5 34.1 28.6 Var T : array[ ] of real; 32.5 Khai báo mảng chiều PASCAL * Cách 1: Khai báo trực tiếp Var <DS biến mảng>: array[Kiểu số] of <Kiểuphần tử>; Ví dụ 3: Khai báo biến mảng lưu trữ giá trị nhiệt độ N ngày năm Var T : array [1 365] of real; Hoặc Const max=365; Var T : array [1 max] of real; Khai báo mảng chiều PASCAL * Cách 2: Khai báo gián tiếp TYPE <tên kiểu mảng> = array[Kiểu số] of <Kiểu phần tử>; Var <DS biến mảng> : <tên kiểu mảng>; Ví dụ 1: Khai báo biến mảng lưu trữ giá trị nhiệt độ ngày tuần TYPE mang1 = array[1 7] of real; Var T : mang1; * Cách 2: Khai báo gián tiếp TYPE <tên kiểu mảng> = array[Kiểu số] of <Kiểu phần tử>; Var <DS biến mảng> : <tên kiểu mảng>; Ví dụ 2: Khai báo biến mảng có tên C với kiểu liệu là kiểu mảng có tên kiểu là kmang C 32.5 29.4 30.0 31.5 34.1 28.6 32.5 TYPE kmang = array[1 7] of real; Var C : kmang; Tham chiếu tới phần tử mảng Cú pháp: <Tên biến mảng>[chỉ số] Vd1: A 32.5 29.4 30.0 32.5 A[1]=32.5 31.5 34.1 A[6]=28.6 28.6 28.6 32.5 Nhập mảng chiều A Nhập giá trị cho biến mảng chiều A có tối đa phần N tử Readln(A[1]); For i:=1 To N Do begin Writeln(‘nhap phan tu thu’,i); NDo … For i:= to readln(A[i]); Readln(A[i]); N Readln(A[ 7]); end; Xuất mảng chiều Xuất giá trị biến mảng chiều A có tối đa N phần tử Writeln(A[1]); For i:=1 To N Do begin For i:= to N Do Writeln(A[i]); … Write(‘phan tu thu’,i); Writeln(A[i]); Writeln(A[N]); end; * Giải bài toán kiểu liệu mảng Var T: Array [1 7] [1 365] of real; of real; Var t1, t2, t3, t4, t5, t6, t7, Tb: real; Tb,S: real; i: integer; ArrayN}[1 7] of real; Begin T: {Nhập For i:=1 to N7 begin write(‘Nhiet thu’,i); readln(T[i]); Writeln(‘nhap vao nhiet ngay’); end; Readln(t1, t2, t3, t4, t5, t6, t7); S:=0; For i:=1 to Ndo S:=S+T[i]; Tb:=(t1+ t2+ t3+ t4+ Tb:=S/7;N; t5+ t6+t7)/7; Writeln(‘nhiet T.binh tuan ’, Tb:5:1); Readln End Chương trình chạy và cho kết sau Nhiet thu 18 Nhiet thu 30 Nhiet thu 26 Nhiet thu 25 29 Nhiet thu 23 Nhiet thu Nhiet thu 20 Nhiet trung binh tuan 24.4 Câu Cho Khai báo biến mảng có tên B với kiểu liệu là kiểu mảng có tên kiểu H B 15 12 20 30 10 Chọn khai báo đúng A Type B= array [1 12] of integer; Var H: B; B Type H= array [1…12] of integer; Var B: H; C.Type H = array [1 12] of integer; Var B: H; 40 11 50 12 Câu 2.Cú pháp câu lệnh nào sau đây là đúng A.Var A : array[1…100] of byte; B Var A : array[1 .100] of byte; C Var 1A : array[1 100] of real; D.Type mang = array[0 100] of integer; var A: kmang; Câu 3: Cú pháp câu lệnh nào sau đây là sa A Const N=100; Var mang : array[1 n] of real; B Var A,B : array[1 50] of byte; C Type mang:array[-100,100] of integer; D Var mang : array[m n] of real; Một số kiểu liệu chuẩn đã học byte word - Kiểu số nguyên Integer Longint - Kiểu số thực Real Extended - Kiểu kí tự Char - Kiểu logic Boolean