Tin học lớp 11
Bài tập tin học lớp 11 về kiểu mảng, kiểu xâu, chương trình con
Bài tập tin học lớp 11 về kiểu mảng, kiểu xâu, chương trình con
Bài tập ôn tập học kì
có đáp án( kiểu mảng, kiểu xâu, chương trinh con..)
Bài làm
Program baitap1;
Uses crt;
Const max= 100;
Type m1c=array [1..100] of integer;
Var A: m1c;
I, n: integer;
S: real;
Begin
Write(‘nhap chieu cua day so = ‘);
Readln (n);
Writeln (‘nhap cac phan tu: ‘);
For i:=1 to N do;
Begin
Writeln (‘A[‘,I,’]= ‘);
Readln(A[i]);
End;
S:=0
For i:=1 to n do;
S:= s+ A[i];
Writeln (‘tong cac phan tu cua day so la : ‘,s);
Readln;
End.
Bài 2: Viết chương trình nhập từ bàn phím 1 dãy gồm 10 phần tử nguyên dương kiểm tra xem các số nhập vào có là khác nhau từng đôi một hay không? Đưa thông báo ra màn hình.
Giải
Program baitap2;
Uses crt;
Const max= 100;
Type m1c=array [1..100] of integer;
Var
i,n,dem: integer;
A: m1c;
Begin
Clrscr;
Write (‘A[‘,i,’]= ‘);
Readln (A[i]);
End;
Dem:=0;
For i:=1 to n do;
If A[i] = A [i + 1] then inc (dem);
End.
Bài 3: viết chương trình
nhập từ bàn phím 1 xâu và 1 kí tự k bất kì . Đếm số lượng kí tự này trong xâu
thông báo kết quả ra màn hình.
Program baitap3;
Uses crt;
Var
Dem,i,x: integer;
S: string;
Begin
Clrscr;
Writeln(‘nhap xau= ‘);
Readln(s);
X:= length(s);
Dem:=0;
For i:= 1 to x do
If (s[i] in [‘0’..’9’] then inc(dem);
Writeln (‘ so ki tu la so trong xau la: ‘,dem);
Readln
End.
Bài 4: Viết chương trình nhập từ bàn phím một xâu kí tự . Đưa ra màn hình các chữ số có mặt trong xâu.
Program baitap4;
Uses crt;
Var
Dem,i, x: integer;
S: string;
K:char;
Begin
Clrscr;
Writeln(‘nhap xau = ‘);
Readln(s);
Writeln(‘nhap ki tu = ‘);
Readln(k);
Dem:=0;
X:= length(s);
For i:=1 to x do;
If s[i] = k then
inc(dem);
Writeln(‘so lan xuat hien ki tu trong xau la : ‘,dem);
Readln;
End.
Bài 5: Viết chương trình con tính bội chung nhỏ nhất của 2 số dương.
Program baitap5;
Var
A,B: integer;
Procedure ctc(Var x,y: integer);
Var UCLN, BCNN: integer;
Begin
BCNN: = x *y ;
While x<>y do
If x>y then x:=x-y else y:=y-x;
UCLN:=x;
BCNN:=BCNN div UCLN;
Writeln(‘boi chung nho nhat cua 2 so la: ‘, BCNN);
End;
Begin
Clrscr;
Writeln(‘nhap 2 so nguyen duong: ‘);
Readln (A,B);
Readln;
End.