Chữa bài tập chưong IV

Giáo sinh thực hiện: Nguyễn Văn Triển
ĐÀ NẴNG
Kiểm tra bài cũ
1. Viết chương trình nhập 2 số a, b và đưa ra màn hình số nhỏ nhất.
Ví dụ: Nếu nhập vào 2 số 3, 7 thì đưa ra màn hình số nhỏ nhất là: 3

Click Xem k?t qu?
Tiết 34
Bài tập 1. Viết chương trình nhập mảng số nguyên và in ra màn hình phần tử nhỏ nhất của mảng số nguyên đó.





Click Xem Chương trình
Ví dụ: nhập vào mảng số 2 4 5 13 7 9 20. Thì đưa ra thông báo kết số nhỏ nhất của mảng là 2.
Thuật toán:
Bước 1: Nhập N và mảng số nguyên A1, A2,…An;
Bước 2: Gán Min = A1; Cho i chạy từ 2 đến n
Bước 3: Nếu i>n thì đưa ra Min rồi kết thúc;
Bước 4:
4.1 Nếu Ai< Min thì gán Min = Ai;
4.2 Gán i:=i+1 quay lại bước 3
Bài tập 2: Nhập một xâu từ bàn phím và đưa ra màn hình :
- Độ dài của xâu là bao nhiêu?
- In ra xâu đã bị xóa đi kí tự đầu của xâu?
- In ra xâu đã bị xóa đi kí tự cuối?





Click Xem Chương trình
Yêu cầu bài toán:
- Cho biết độ dài của xâu?
- In ra xâu đã bị xóa đi kí tự đầu của xâu?
- In ra xâu đã bị xóa đi kí tự cuối?

Bài tập 3: Viết chương trình nhập từ bàn phím thông tin của học sinh: Hoten, diemtoan, diemvan, diemtin.
In ra màn hình những thông tin sau:
- Hoten,
- Diemtoan
- Diemvan
- Diem tin
-Tongdiem
Phần khai báo
Type { phan Khai bao}
Hocsinh = record
Hoten : string[30];
diemtoan,diemvan,diemtin,Tong:integer;
end;
Var A: ARRAY[1..100] of Hocsinh;
i,n: integer;
Nhập số lượng học sinh
Write(` Nhap vao so hoc sinh trong lop : `);
readln(n);
Nhập dữ liệu bản ghi
For i:=1 to n do
Begin
writeln(`Nhap so lieu cho hoc sinh thu `,i);
Write(`Ho Va Ten : `); readln(A[i].Hoten);
Write(` Diem toan : `);readln(A[i].diemtoan);
Write(` Diem van : `);readln(A[i].diemvan);
Write(` Diem Tin : `);readln(A[i].diemtin);
End;
Cách tính tổng điểm cho học sinh
For i:=1 to n do
A[i].Tong := A[i].diemtoan+ A[i].diemvan+ A[i].diemtin;
Xuất dữ liệu ra màn hình
{ Xuat bang du lieu ra man hinh}
For i:=1 to n do
Writeln(`BANG KET QUA THI`);
Writeln(` Ho va ten diemtoan diemvan diem tin Tong diem `);
Writeln(A[i].Hoten:5);
Write(A[i].diemtoan:8);
Write(A[i].diemvan:8);
Write(A[i].diemtin:8);
Write(A[i].tong:8);






Program hocsinh;
Type { phan Khai bao}
Hocsinh = record
Hoten : string[30];
diemtoan,diemvan,diemtin,Tong:integer;
end;
Var A: ARRAY[1..100] of Hocsinh;
i,n: integer;
BEGIN
Write(` Nhap vao so hoc sinh trong lop : `); readln(n);
For i:=1 to n do
Begin
writeln(`Nhap so lieu cho hoc sinh thu `,i);
Write(`Ho Va Ten : `); readln(A[i].Hoten);
Write(` Diem toan : `);readln(A[i].diemtoan);
Write(` Diem van : `);readln(A[i].diemvan);
Write(` Diem Tin : `);readln(A[i].diemtin);
End;
For i:=1 to n do
A[i].Tong := A[i].diemtoan + A[i].diemvan+ A[i].diemtin;
Writeln(`BANG KET QUA THI`);
Writeln(` Ho va ten diemtoan diemvan diem tin Tong diem `);
For i:=1 to n do
Writeln(A[i].Hoten:5,A[i].diemtoan:8,A[i].diemvan:8,A[i].diemtin:8,A[i].tong:8);
Readln;
END.
Click Chạy Chương Trình
Ghi nhớ
- Ghi nhớ một số kiến thức về:
+ Kiểu mảng: cách khai báo, cách truy cập, in mảng.
+ Kiểu xâu : Cách khai báo, thao tác xử lý xâu.
+ Kiểu bản ghi: Cách khai báo, các thao tác với bản ghi
- Dặn dò:
+ Các em về xem lại lý thuyết về Kiểu mảng, kiểu xâu và kiểu bản ghi để tiết sau chúng ta học bài ôn tập.
Bài học của chúng ta hôm nay đến đây kết thúc
Thân ái chào các em





Program Min_ab;
Uses crt;
Var a,b : integer;
Begin
Clrscr;
Write(`Nhap so thu nhat: `);
Readln(a);
Write(`Nhap so thu hai: `);
Readln(b);
if a < b then
Writeln(`Gia tri nho nhat la:`,a)
else
Writeln(`Gia tri nho nhat la:`,b);
Readln;
End.
Click Chạy Chương Trình
Back





Program Min;
Uses crt;
Var A: array[1..100] of integer;
Min,i, N : integer;
Begin
Clrscr;
Write(`So phan tu cua mang: `); Readln(N);
For i:=1 to N do
Begin
Write(` A[`, i,`]= `);
Readln(A[i]);
End;
Min:=A[1];
For i:=2 to N do
if A[i] < Min then Min:= A[i];
Writeln(` Gia tri nho nhat cua mang la:`,Min);
Readln;
End.
Click Chạy Chương Trình
Back





Program Xoaxau;
Uses crt;
Var a:string;
n, vt, k:integer;
Begin
Clrscr;
write(`Nhap vao mot xau `); readln(a);
write(`Nhap vi tri muon xoa `); readln(vt);
write(`Nhap so luong ki tu muon xoa `); readln(n);
k:=length(a);
delete(a,vt,n);
writeln(` Do dai cua xua la:`, k);
writeln(`Xau ket qua sau khi xoala:`,a);
readln;;
End.
Click Chạy Chương Trình
Back