... For i : =1 to n do IF A[i]>TB then dem:=dem +1; c. Các thao tác xử lí khác Ví dụ : Đếm số ngày có nhiệt độ cao hơn nhiệt độ TB của tuần. TB = 18 .7 Dem=0 76543 21 i 19 1 719 211 82 017 A[i] 0 1 1 2 3 ... 20 21 19 19 +1 +1 +1+ 1 Program vd1; Uses crt; Var A: Array [1. .366] of integer; i,n,dem: integer; S,TB : real ; BEGIN Clrscr; write( Nhap vao so ngay : ) ; readln(n) ; S := 0 ;...
... BÀI TẬP MẢNG MỘT CHIỀU Bài 1 : Nhập dãy số thực a và số k. Xét xem trong dãy có k số dương đứng cạnh nhau hay không ? Bài 2 ... : Nhập dãy số nguyên. Xét xem : - Trong dãy có số chẵn? - Tất cả các số trong dãy đều chẵn? Bài 10 : Nhập dãy số thực dương. Tách dãy sô thành hai nữa saocho trị tuyệt đối của tổng hai nữa đạt
... N = 10 000; Type M1 = Array [1. .N] of Integer; M2 = Array [1. .4] of Integer; Var A : M1; H : M2; i,j,m,k,s,x : Integer; Begin Clrscr; Randomize; For i: =1 to N do A[i] := Random (10 ); For i: =1 to ... không âm ( D 0 , D 1 , ...., Dm ) với D i <= i để phân tích N thành dạng tổng : N = D 0 + D 1 * 2! +...+ Dm * (m +1) ! Chú thích : (M +1) ! = 1. 2.3...(M).(M +1) Bài 18 : Tìm 10...
... thế những giá trị A i là x thành y. Ví dụ: A: 1 5 6 7 4 1 5 5 1 1 X=5 Y =15 Kết quả: Vi tri xuat hien X la 1 Ket qua thay the: 1 15 6 7 4 1 15 15 1 1 Hướng dẫn: - Xây dựng hàm tìm kiếm giá trị ... trong mảng. Ví dụ: A: 1 5 6 7 4 1 5 5 1 1 X: 6 Kết quả: So lan xuat hien X la 1 So lan xuat hien cua cac phan tu: 1 ==> 4 5 ==> 3 6 ==> 1 7 ==> 1 4 ==> 1...
... For i : =1 to n do IF A[i]>TB then dem:=dem +1; c. Các thao tác xử lí khác Ví dụ : Đếm số ngày có nhiệt độ cao hơn nhiệt độ TB của tuần. TB = 18 .7 Dem=0 76543 21 i 19 1 719 211 82 017 A[i] 0 1 1 2 3 ... 20 21 19 19 +1 +1 +1+ 1 Program vd1; Uses crt; Var A: Array [1. .366] of integer; i,n,dem: integer; S,TB : real ; BEGIN Clrscr; write( Nhap vao so ngay : ) ; readln(n) ; S := 0 ;...
... Thị Tú Lớp: Tin 4A *Giải thuật: - Nhập vào nhiệt độ của mỗi ngày trong tuần (t1, t2, t3, t4, t5, t6, t7). - tb:= (t1 + t2 + t3 + t4 + t5 + t6 + t7)/7; - dem:= 0; - Kiểm tra lần lượt nhiệt độ của ... có lớn hơn nhiệt độ tb hay không? Nếu đúng thì tăng biến đếm lên: dem:= dem +1; - Đưa kết quả ra màn hình. Input: t1, t2, t3, t4, t5, t6, t7 Output: tb, dem TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC SVTH:
... 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 17 19
Kết quả in ra màn hình:
Ví ... phần tử]
Nhiều thao tác xử lí mảng dùng
cấu trúc lặp FOR TO DO.
15 20 19 25 18 12 16
Var A:ARRAY [1 100] OF integer;
A[5] = 18
Nhập vào nhiệt độ (trung bình) của mỗi ngày tron...
... function DOIXUNG(s:string):boolean;
var s1:string; i,m,n,kt1,kt2:integer;
begin
s1:='';
for i:= length(s) downto 1 do s1:=s1+s[i];
val(s1,m,kt1);val(s,n,kt2);
if m=n then DOIXUNG:=true
... a:array [1 100] of longint;
b: array [1 10] of 0 9;
function MU(a,n:longint):longint;
begin
if n=0 then mu: =1
else MU:=a*MU(a,n -1) ;
end;
Begin
Clrscr;
Write('N='); R...
... mảng 1 chiều
Saturday, 18 . April 2009, 13 :00:46
Bài tập C#
Đa phần các thao tác trên C# đều thực hiện dựa trên hàm, thụât toán về mảng 1 chiều, nếu
nắm vững các thụât toán, thao tác về mảng 1 ... System.Collections.Generic;
using System.Text;
namespace Thao_tac _mang_ 1_ chieu_ 2_
{
class Program
{
static void Main(string[] args)
{
ThucDon();
}
static int[] a = new int [10 0];
s...