27 kết quả cho từ khóa "tin học 11"
TIN HỌC :BÀI TẬP KIỂU MẢNG (T4)
Giáo án, bài giảng lớp 11
TIN HỌC :BÀI TẬP KIỂU MẢNG (T4)
Bài 5: Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2,...An có giá trị tuyệt đối không lớn hơn 1000. Hãy cho biết dãy A có phải là một cấp số cộng hay không và thông báo kết quả ra màn hình.
Chương trình:
program CSCONG;
uses crt;
Var A: array[1..100] of integer;
n,i,d: Byte;
Begin
clrscr...
(New)
1347
1347
399
TIN HỌC :BÀI TẬP KIỂU MẢNG (T3)
Giáo án, bài giảng lớp 11
TIN HỌC :BÀI TẬP KIỂU MẢNG (T3)
Bài 2: Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và in ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì chỉ đưa ra phần tử có chỉ số nhỏ nhất
Chương trình như sau:
Program timmax;
Uses crt;
Var A: array[1..250] of integer;
n,i,max,csmax: Integer;
Begin...
(New)
1189
1189
384
TIN HỌC :BÀI TẬP KIỂU MẢNG (T2)
Giáo án, bài giảng lớp 11
TIN HỌC :BÀI TẬP KIỂU MẢNG (T2)
: Tạo mảng A gồm n (n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
=> Chương trình:
Program Sum 1;
Uses Crt;
Const nmax:=100;
Type Myarray = Array[1..nmax] of integer;
Var A:myarray;
s, n, i, k:integer;
Begin
Clrscr;...
(New)
1232
1232
807
TIN HỌC :BÀI TẬP KIỂU MẢNG
Giáo án, bài giảng lớp 11
TIN HỌC :BÀI TẬP KIỂU MẢNG
Bài 2: Nhập vào 1 dãy số nguyên gồm N phần tử (N <= 100)
a. Nhập vào số nguyên K, tìm xem K có trong dãy không? Nếu có thì đưa ra các vị trí của nó trong dãy. Nếu không thì thông báo “Không tìm thấy”.
Vd: Dãy A gồm 5 phần tử: 1 5 6 12 5
Nhap so can tim: 5
Cac vi tri cua 5 la: 2 5
b. Tính tích các số chẵn trong dãy
Dãy A gồm: 5 13...
(New)
1092
1092
389
TIN HỌC : KIỂU MẢNG (tiết 3)
Giáo án, bài giảng lớp 11
TIN HỌC : KIỂU MẢNG (tiết 3)
: Viết chương trình nhập vào dãy n số(n ≤ 100):
a) Hiển thị dãy số ra màn hình.
b) Tính tổng các số trong dãy và đưa kết quả ra màn hình.
c) Kiểm tra trong dãy có bao nhiêu chữ số chẵn.
Chương trình:
program Bài 1;
uses crt;
const nmax=100;
var A: array[1..nmax] of integer;
n,i: Integer;
begin
clrscr;
{nhập mảng}...
(New)
1073
1073
385
TIN HỌC : KIỂU MẢNG (tiết 2)
Giáo án, bài giảng lớp 11
TIN HỌC : KIỂU MẢNG (tiết 2)
1. Một số ví dụ về mảng một chiều:
a)Ví dụ 1: Tìm phần tử lớn nhất của một dãy số nguyên .
Chương trình như sau:
Program timmax ;
Uses crt ;
Var A : array[1..250] of integer ;
n,i,max,csmax : Integer ;
Begin
Write('Nhap n = ') ;
Readln(n) ;
For i := 1 to n do
Begin...
(New)
953
953
397
TIN HỌC : KIỂU MẢNG (tiết 1)
Giáo án, bài giảng lớp 11
TIN HỌC : KIỂU MẢNG (tiết 1)
Kiểu mảng một chiều
a) Ví dụ: SGK trg 53.
* Ý tưởng:
- Sử dụng 7 biến để lưu nhiệt độ của bảy ngày trong tuần.
- Dùng 7 câu lệnh rẽ nhánh để so sánh nhiệt độ của 7 ngày trong tuần với nhiệt độ trung bình tính được.
* Nhận xét: Với số lượng ngày nhiều (VD: Số ngày của một năm..) thì cách làm trên chương trình sẽ dài, khó theo dõi.
a) Khái niệm mảng một ch...
(New)
892
892
408
TIN HỌC : Bài tập Lập trình tính
Giáo án, bài giảng lớp 11
TIN HỌC : Bài tập Lập trình tính
Bài 5: Lập trình tính
a) Y =
b) E(n) = 1+ cho đến khi
Bài 6: Lập trình để giải bài toán cổ sau:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Hỏi có bao nhiêu con mỗi loại?
Đáp án:
Bài 5a:
program Bai5a;
Uses crt;
Var n:Integer;...
(New)
889
889
391
TIN HỌC : Lập trình tính
Giáo án, bài giảng lớp 11
TIN HỌC : Lập trình tính
Bài 8: Một người gửi tiết kiệm không kỳ hạn với số tiền a đồng, lãi suất 1% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút hết tiền thì sẽ nhận được số tiền ít nhất là B đồng? Biết rằng việc gửi tiết kiệm không kỳ hạn thì lãi không được cộng vào vốn.
Chương trình:
program Bai8;
Uses crt;
Var a,b,lai: real;
t: Word;
Begin
clrscr;...
(New)
885
885
395
TIN HỌC : Bộ số Pitago
Giáo án, bài giảng lớp 11
TIN HỌC : Bộ số Pitago
Chương trình:
Program Pitago;
Uses crt;
Var a,b,c: integer;
a2,b2,c2: longint;
Begin
Clrscr;
Writeln('Nhap a,b,c:');
Readln(a,b,c);
a2:=a;
b2:=b;
c2:=c;
a2:=a2*a;
b2:=b2*b;
c2:=c2*c;
if (a2 =b2+c2) or (b2 =a2+c2) or (c2 =b2+a2) then writeln('ba so da nhap la bo so pitago')
else
writeln('...
(New)
993
993
378
Xem thêm
×
